我用vb6做了一个工程，代码全部写在txt文件里，请问如何调用执行

Question

也就是说，我把平时写代码的地方全部清空，并将代码全部剪切转移到了程序目录下的一个1.txt文本文档里，其中包括Form_Load、command1_click等部分，请问如何调用这外部的代码，并最终以正常结果执行呢？

1.txt里面的内容

Private Sub Form_Load()
command1.caption="弹出"
end sub

Private Sub command1_click()
msgbox"abcde"
end sub

Answer 1

很难，关键不是TXT的代码，而是事件无法响应TXT中的事件，所以必须为每个可能的事件去搜索TXT文件，同样如果有自定义事件、过程或函数，都要去搜索！不是区区一个Microsoft Script Control 就能解决的！

Answer 2

vb6 动态运行vb6语句可以使用
Microsoft Script Control

Private Sub Form_Load()
Text1.Text = "cmdText1.Visible = False"
Call ScriptControl1.AddObject(cmdText1.Name, cmdText1)
End Sub

Private Sub Command1_Click()
Call ScriptControl1.ExecuteStatement(Text1.Text)
End Sub

但是你把事件绑定都放在文本里，我没有试过，你试试看看
http://support.microsoft.com/kb/184745

Answer 3

1.很复杂~不是一个人两个人几天能干完的事
就是自己编写一个能识别代码，并后台编译运行的程序
2.控件 ScriptControl
慢慢找吧~~机器上有的

Answer 4

form1中:
Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Write #1, "张一：", Text1.Text
Write #1, "张二：", Text2.Text
Write #1, "张三：", Text3.Text
Write #1, "张四：", Text4.Text
Close
End Sub

form2中:
Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Write #1, "张五：", Text1.Text
Write #1, "张六：", Text2.Text
Write #1, "张七：", Text3.Text
Close
End Sub

form3中:
Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Write #1, "李四：", Text1.Text
Write #1, "王麻子：", Text2.Text
Close
End Sub

上面都是分行保存，如果在一行保存：
Write #1, "张一：", Text1.Text & " ", "张二：", Text2.Text & " ", "张三：", Text3.Text & " ", "张四：", Text4.Text
写在一行即可。" "是各记录中的空格（每个数据间空6个字符间距）

Answer 5

form1中:
Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Write #1, "张一：", Text1.Text
Write #1, "张二：", Text2.Text
Write #1, "张三：", Text3.Text
Write #1, "张四：", Text4.Text
Close
End Sub

form2中:
Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Write #1, "张五：", Text1.Text
Write #1, "张六：", Text2.Text
Write #1, "张七：", Text3.Text
Close
End Sub

form3中:
Private Sub Command1_Click()
Open "D:\123.txt" For Append As #1
Write #1, "李四：", Text1.Text
Write #1, "王麻子：", Text2.Text
Close
End Sub

上面都是分行保存，如果在一行保存：
Write #1, "张一：", Text1.Text & " ", "张二：", Text2.Text & " ", "张三：", Text3.Text & " ", "张四：", Text4.Text
写在一行即可。" "是各记录中的空格（每个数据间空6个字符间距）
另外,团IDC网上有许多产品团购,便宜有口碑