VB怎么运行TXT里面的内容

VB如何运行TXT里面的内容？

VB code

Dim i As Integer, S As Stringi = FreeFileOpen "c:\a.txt" For Input As #i '在此改成你所需的文本文件名Do While Not EOF(i)Line Input #i, Scall s'我想把这里用call 来执行TXT里面的代码 需要怎么修改？？？求救Loop

这样为什么调用不了？？？？而c:\a.txt"里面内容为call ChangeSkinToBlue（frm_form）

S‘里面的内容为调用Module1模块里面的下面这段代码

VB code

ChangeSkinToBlue（frm_form）Public Sub ChangeSkinToBlue(m_Form As Form)    Call InitSkinStruct("Blue")    Call ChangeSkin("Blue", m_Form)        With m_Form        .iml_Toolbar.ListImages.Clear        .iml_Toolbar.ListImages.Add 1, , LoadPicture(App.Path & "\Skins\Blue\Toolbar Icons\icn_Back.gif")        .iml_Toolbar.ListImages.Add 2, , LoadPicture(App.Path & "\Skins\Blue\Toolbar Icons\icn_Forward.gif")        .iml_Toolbar.ListImages.Add 3, , LoadPicture(App.Path & "\Skins\Blue\Toolbar Icons\icn_Home.gif")        .iml_Toolbar.ListImages.Add 6, , LoadPicture(App.Path & "\Skins\Blue\Toolbar Icons\icn_Document.gif")    End WithEnd Sub

[解决办法]
比如你的文本文件里存的不是你的那段文本，比如是个 1，可以在程序里这么做：
s = "1"

Select Case s
Case "1": call ChangeSkinToBlue(frm_form)
Case "2": call ChangeSkinToBlue(frm_form1)
Case "3": call ChangeSkinToBlue(frm_form2)

End Select

当然你也可以这样：

s = "call ChangeSkinToBlue（frm_form）"

Select Case s
Case "call ChangeSkinToBlue（frm_form）":
call ChangeSkinToBlue(frm_form)
Case "call ChangeSkinToBlue（frm_form1）":
call ChangeSkinToBlue(frm_form1)
Case "call ChangeSkinToBlue（frm_form2）":
call ChangeSkinToBlue(frm_form2)

End Select

这就是字符串识别，当然过程可以自己来做，比如分析对号等，还可以做成解释性语言。
不过解释性语言不知 Call 字符串 就搞定的。
[解决办法]
静态链接与动态链接，看你的意思应该是一个动态链接，那就做成.dll吧~~~

查看更多 下一篇