出来的效果总不是正确的,请教一下高手:
(1)设计一个Form上有1个文本框、2个复选框,其标题分别为:“ck1”和“ck2”、3个命令按钮:“显示”、“清除”和“退出”。
(2)单击“显示”按钮,在文本框中显示2个复选框的状态,如:ck1选中,ck2未选中等。
(3)单击“清除”按钮时,清空文本框中的内容。
(4)单击“退出”按钮结束程序运行。
參考答案://按下清除按钮cmd_Clean
Private Sub cmd_Clean_Click()
Text1.Text = "" //将文本框Text1内容置空
Text1.Refresh
End Sub
//按下显示按钮cmd_Display
Private Sub cmd_Display_Click()
Dim str1 As String
str1 = "ck1" + IIf(ck1.Value, "选中", "未选中") + ",ck2" + IIf(ck2.Value, "选中", "未选中") //将文本框Text1内容ck1和ck2的选择状态
Text1.Text = str1
Text1.Refresh
End Sub
//按下退出按钮cmd_Quit
Private Sub cmd_Quit_Click()
Unload Me
End Sub