作者dieb (小狼)
看板Visual_Basic
标题Re: [VB6 ] 新手程式码的问题...麻烦了!!
时间Fri Nov 3 11:54:18 2006
正确的程式码：
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