一個vb問題~~~

Question

為什麼下面的程式碼在Private Sub Form_Load()中
需要把所有的值歸零 和將粗體斜體加底線的樣式取消呢
作用為何? 不這樣做會怎樣?

Private Sub Command1_Click()


If Bold_chk.Value = 1 Then
show_lbl.FontBold = True
Else
show_lbl.FontBold = False

If Italic_chk.Value = 1 Then
show_lbl.FontItalic = True
Else
show_lbl.FontItalic = False

If Underline_chk.Value = 1 Then
show_lbl.FontUnderline = True
Else
show_lbl.FontUnderline = False

show_lbl = input_txt
End If
End If
End If

End Sub

Private Sub Command2_Click()
show_lbl.FontBold = False
show_lbl.FontItalic = False
show_lbl.FontUnderline = False
show_lbl = ""


Bold_chk.Value = 0
Italic_chk.Value = 0
Underline_chk.Value = 0
input_txt = ""


End Sub

Private Sub Command3_Click()
End

End Sub

Private Sub Form_Load()
show_lbl.FontBold = False
show_lbl.FontItalic = False
show_lbl.FontUnderline = False

input_txt = " "

Bold_chk.Value = 0
Italic_chk.Value = 0
Underline_chk.Value = 0
End Sub

Answer 1

因為這個程式是判斷check元件，是否有被打勾而來執行相對應的功能。
例如bold_chk.value=1則show_lbl.FontBold = True。
所以程式一開始時，這些check預設應該不能有打勾的情形，所以要在form_load()中取消。
至於如果不取消會怎麼樣的話，要看你的元件屬性設定的情形…所以不一定。
了解嗎??