Re: [VB6 ] 新手程式碼的問題...麻煩了!!

[dieb (小狼)]

正確的程式碼：

Private Sub Command1_Click()
    If Check1 = 1 Then
        Label1.FontBold = True
    Else
        Label1.FontBold = False
    End If
    If Check2 = 1 Then
        Label1.FontUnderline = True
    Else
        Label1.FontUnderline = False
    End If
    If Option1.Value = True Then
        Label1.Alignment = 0
    End If
    If Option2.Value = True Then
        Label1.Alignment = 2
    End If
    If Option3.Value = True Then
        Label1.Alignment = 1
    End If
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Form_Load()
    Label1.FontBold = False
    Label1.FontUnderline = False
    Option1.Value = True
    Label1.Alignment = 0
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 203.67.21.66