关于VB文本框文字合并的小问题
比如文本框A中有三行字符(以换行符分隔的:AA（第一行)BB(第二行)CC(第三行)文本框B中有三行字符(以换行符分隔：aa(第一行)bb(第二行)cc(第三行)文本框C...
比如文本框A中有三行字符(以换行符分隔的:AA（第一行) BB(第二行) CC(第三行) 文本框B中有三行字符(以换行符分隔：aa(第一行) bb(第二行) cc(第三行) 文本框C中为A与B文本框循环合并的结果，我在循环的时候总提示下标越界！文本框C中应显示为: AA aa(第一行) AA bb(第二行) AA cc(第三行) BB aa(第四行) BB bb(第五行)……
展开
1个回答
展开全部
vb中内容框变化使用Text1_Change。
Private Sub Text1_Change() 'Text1文本值只要一改变就会触发
If IsNumeric(Text1) = False Then MsgBox "不是数字，请输入数字", 0, "提示":exit sub
'==上面判断text1输入是否为数字
if val(text1)>0 then
text2="0.2" '如果text1输入大于0，text2 为0.2
elseif val(text1)<=0 then
text2="0.3" '如果输入小于0，则text2为0.3
End If
End Sub
Private Sub Text1_Change() 'Text1文本值只要一改变就会触发
If IsNumeric(Text1) = False Then MsgBox "不是数字，请输入数字", 0, "提示":exit sub
'==上面判断text1输入是否为数字
if val(text1)>0 then
text2="0.2" '如果text1输入大于0，text2 为0.2
elseif val(text1)<=0 then
text2="0.3" '如果输入小于0，则text2为0.3
End If
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
