VB如何运行“输入的文字”?

比如:在form1.text1.text里输入“form2.text2.text=30”,那么form2.text2.text就等于30,如果输入“form3.text1... 比如:在form1.text1.text里输入“form2.text2.text=30”,那么form2.text2.text就等于30,如果输入“form3.text1.text=20”,那么form3.text1.text就等于20,这个如何做到?
我不需要显示数字,我要知道怎么运行
展开
 我来答
络绎云睿
推荐于2016-06-28 · 超过10用户采纳过TA的回答
知道答主
回答量:39
采纳率:0%
帮助的人:29.9万
展开全部
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Command1_Click()
If Text1.Text <> "" Then
Dim Result As Boolean
Result= ExecuteLine(Text1.Text)
End If
End Sub

在文本框中输入Msgbox "Hello",看看有什么结果。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友d8f3578
2008-05-17 · TA获得超过652个赞
知道小有建树答主
回答量:100
采纳率:0%
帮助的人:116万
展开全部
Private Sub Form_Load()
Form2.Show
Form3.Show

End Sub

Private Sub Text1_Change()
If Mid(Text1, 1, 5) = "Form2" Then
Form2.Text1 = Mid(Form1.Text1, Len(Form1.Text1) - 1, 2)
ElseIf Mid(Text1, 1, 5) = "Form3" Then
Form3.Text1 = Mid(Form1.Text1, Len(Form1.Text1) - 1, 2)
End If
End Sub

因为写的简单,所以请你注意输入时的大小写,它是即时显示的,所以显示你当前在Form1输入的最后2个字符,不管是不是输完
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
施流逸gK
2008-05-17 · 超过25用户采纳过TA的回答
知道答主
回答量:98
采纳率:0%
帮助的人:72.7万
展开全部
在对应的每个TEXT控件的Change事件中输入语句,绝对正确!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
lxz_8086_cn
2008-05-17 · TA获得超过205个赞
知道答主
回答量:349
采纳率:0%
帮助的人:364万
展开全部
好像只能分解字符串,然后用select case 来完成。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式