vb 中点击按钮,点击第一次调用text1的内容,点击第2次,调用text2的内容,点击第3次调用text3的内容 10
vb中点击按钮,点击第一次调用text1的内容,点击第2次,调用text2的内容,点击第3次调用text3的内容。。。。依次类推比如:a是个变量。每次调用都把内容赋值于a...
vb 中点击按钮,点击第一次调用text1的内容,点击第2次,调用text2的内容,点击第3次调用text3的内容。。。。依次类推
比如:a是个变量。每次调用 都把内容赋值于a
或者:
a是个变量, 按钮,点击第一次,把“qq”这个内容赋值于a;点击第二次,把“123” 这个值赋予a;点击第三次,把“wr”赋值于a。依次类推。。。
注:赋值于a的内容,提前是设定好的,每次赋予的内容是固定不变的。
简单一点的代码,类聚1 2 3次就行了。剩下的我自己添加。 把这两种情况都写出来吧。
希望我写的您能看懂。也希望您写的我也能看懂。呵呵。谢谢! 展开
比如:a是个变量。每次调用 都把内容赋值于a
或者:
a是个变量, 按钮,点击第一次,把“qq”这个内容赋值于a;点击第二次,把“123” 这个值赋予a;点击第三次,把“wr”赋值于a。依次类推。。。
注:赋值于a的内容,提前是设定好的,每次赋予的内容是固定不变的。
简单一点的代码,类聚1 2 3次就行了。剩下的我自己添加。 把这两种情况都写出来吧。
希望我写的您能看懂。也希望您写的我也能看懂。呵呵。谢谢! 展开
3个回答
展开全部
按16进制数(10进制)发送命令:
Option Explicit
Dim bytSend() As Byte
Private Sub Command1_Click() 'Open
ReDim bytSend(4)
bytSend(0) = &H43
bytSend(1) = &H30
bytSend(2) = &H30
bytSend(3) = &HD
bytSend(4) = &HA
MSComm1.Output = bytSend
End Sub
Private Sub Command2_Click() 'Close
ReDim bytSend(4)
bytSend(0) = &H43
bytSend(1) = &H30
bytSend(2) = &H31
bytSend(3) = &HD
bytSend(4) = &HA
MSComm1.Output = bytSend
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 '
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub
Option Explicit
Dim bytSend() As Byte
Private Sub Command1_Click() 'Open
ReDim bytSend(4)
bytSend(0) = &H43
bytSend(1) = &H30
bytSend(2) = &H30
bytSend(3) = &HD
bytSend(4) = &HA
MSComm1.Output = bytSend
End Sub
Private Sub Command2_Click() 'Close
ReDim bytSend(4)
bytSend(0) = &H43
bytSend(1) = &H30
bytSend(2) = &H31
bytSend(3) = &HD
bytSend(4) = &HA
MSComm1.Output = bytSend
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 '
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
b=b+1
a="text"+b
注意把B转换成字符串后才能相加
a="text"+b
注意把B转换成字符串后才能相加
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询