Question

关于vb按钮的caption问题？

如何使command按一次由“开始”变为“结束”再按继续是“开始”，“结束”如此循环下去？而且必须用do...loop语句？谢谢啦~~

Answer 1

这题目是谁给你出的啊？Do...Loop语句在这里根本用不上的。一定要加的话，就放个空的即可：

Private Sub Form_Load()
   Command1.Caption = "开始"
End Sub
Private Sub Command1_Click()
   Do
      Command1.Caption = IIf(Command1.Caption = "开始", "结束", "开始")
   Loop While False
End Sub

再次说一句：给你出题目的那个人是个2B

Answer 2

Dim i As Integer
Private Sub Form_Load()
    Command1.Caption = "开始"
End Sub
Private Sub Command1_Click()
    i = i + 1
    Do
        If i = 1 Then Command1.Caption = "结束": Exit Do
        If i = 2 Then Command1.Caption = "开始": i = 0: Exit Do
    Loop
End Sub

其实我在写这代码的时候一直在想：为什么一定要用do...loop语句 - -!!!

Answer 3

命令按钮的默认属性是Value而不是Caption！
默认属性：
文本框Text：Text，如Text1=1即Text1.Text=1
标签控件Label：Caption，如Label1=1即Label1.Caption=1
命令按钮Command：Value，如Command1=True即Command1.Value=True，此时将触发Click事件，如果没有定义Command1_Click，Command1.Value=True将没有任何反应。

Command1.Value=True用于调用Command1的Click事件，为跨窗体调用而设计。
如：
Private Sub Command2_Click()
If a=0 Then Command1.Value=True
End Sub
再如在Form2中：
Private Sub Command1_Click()
Form1.Command1.Value=True'相当于点击了Form1的Command1
End Sub

Answer 4

Private Sub Form_Load()
Command1.Caption = "开始"
End Sub
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "结束"
Else
Command1.Caption = "开始"
End If
End Sub

追问

要求必须用do...loop语句啊。。。

追答

给你出题目的那个人是个SB