Private Sub Form_Load()
yz1 = duini("土嘎嘎文章采集配置", "post提交", "1", "/AAAcaijiAAA/peizhi.ini")
If InStr(yz1, "1") Then
Check28.Value = 1
Else
Check28.Value = 0
End If
End Sub
Private Sub Check28_Click()
If Check28.Value = 1 Then
Dim userInput As String
userInput = InputBox("请输入密码才可以开启此功能：", "密码验证")
If userInput = "tugaga" Then
i = MsgBox("此功能会开启check28！！" & Chr(10) & Chr(10) & Chr(10) & "确定要开启吗", 1, "请选择")
If i = 1 Then
Check28.Value = 1
Else
Check28.Value = 0
End If
Else
MsgBox "密码错误！"
Check28.Value = 0
End If
End If
End Sub
通过添加 isFormLoad 标志变量，并在 Form_Load 中进行设置，在执行 Check28_Click 事件时检查该标志变量的值，以决定是否执行相应的代码。这样，当 Check28.Value = 1 由 Form_Load 触发时，不会执行 Check28_Click 中的代码。