Re: [VB6 ] 新手程式碼的問題...麻煩了!!
正確的程式碼：
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
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
26
79