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次就行了。剩下的我自己添加。 把这两种情况都写出来吧。
希望我写的您能看懂。也希望您写的我也能看懂。呵呵。谢谢!
展开
 我来答
lovewj221
2011-01-01 · TA获得超过170个赞
知道小有建树答主
回答量:323
采纳率:0%
帮助的人:224万
展开全部
dim times as interger
dim a as string
private sub button1_click
times = times+1
if times = 1 then
a= text1.text
else if times = 2 then
a= text2.text
else if times = 3 then
a= text3.text
end if
end sub
ichrud
2011-01-01 · TA获得超过1234个赞
知道小有建树答主
回答量:1162
采纳率:0%
帮助的人:969万
展开全部
按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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
木子李也
2011-01-01 · TA获得超过258个赞
知道答主
回答量:48
采纳率:0%
帮助的人:10.7万
展开全部
b=b+1
a="text"+b
注意把B转换成字符串后才能相加
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式