在VB中,怎样才能使两个标签交换?
窗体要求:两个标签:1号写“178”,2号写“177”。两个按钮:1号是“交换”,2号是“取消”...
窗体要求:两个标签:1号写“178”,2号写“177”。
两个按钮:1号是“交换”,2号是“取消” 展开
两个按钮:1号是“交换”,2号是“取消” 展开
展开全部
你要的是这种效果吧
Private Sub Command1_Click()
Dim s As String
If Command1.Caption = "确定" Then
s = Label1.Caption
Label1.Caption = Label2.Caption
Label2.Caption = s
Command1.Caption = "交换"
Else
Command1.Caption = "确定"
End If
End Sub
Private Sub Command2_Click()
Command1.Caption = "交换"
End Sub
Private Sub Command1_Click()
Dim s As String
If Command1.Caption = "确定" Then
s = Label1.Caption
Label1.Caption = Label2.Caption
Label2.Caption = s
Command1.Caption = "交换"
Else
Command1.Caption = "确定"
End If
End Sub
Private Sub Command2_Click()
Command1.Caption = "交换"
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
按钮1下的代码如下:
label1.caption=label2.caption
label2.caption=label1.caption
label1.caption=label2.caption
label2.caption=label1.caption
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
a=label1.caption
label1.caption=label2.caption
label2.caption=a
label1.caption=label2.caption
label2.caption=a
追问
我想请问一下,为什么要代入a啊?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询