我编写的如下代码: Private Sub Check2_Click(Index As Integer) If Check2.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub 但是编写完成后运行却弹出如下提示
另外,在编写代码的过程中,提示代码也没有发现check2控件有value属性,如下图所示
看不到图 if check2(index).value = 1 then 是控件数组吧,要像2楼这样使用 Check2控件是控件數組,要以控件數組方式使用。 Ding..........
Private Sub Check1_Click() If Check1.Value = 1 Then DTP1.Enabled = True Else DTP1.Enabled = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then DTP2.Enabled = True Else
......