VB:创建一个工程,在窗体上添加一个文本框Text1,两个命令按钮Command1和Command2,单击Command1按钮

2024-11-19 23:15:41
推荐回答(2个)
回答(1):

Private Sub Form_Load()
 Command1.Caption = "确定"
 Command2.Caption = "取消"
 Command2.TabIndex = 0
End Sub
Private Sub Command1_Click()
 Text1 = "确定"
End Sub

Private Sub Command2_Click()
 Text1 = "取消"
End Sub
'请参考采纳!谢谢!

回答(2):

Private Sub Command1_Click()
    Text1.Text = "确定"
End Sub

Private Sub Command2_Click()
    Text1.Text = "取消"
End Sub

然后设置 Command2 的 tabindex 属性为 0 。Command1 的设置为 1.