MyException - 我的异常网
当前位置:我的异常网» VB » VB怎么运行TXT里面的内容

VB怎么运行TXT里面的内容

www.MyException.Cn  网友分享于:2013-01-30  浏览:17次
VB如何运行TXT里面的内容?
VB code
Dim i As Integer, S As String
i = FreeFile
Open "c:\a.txt" For Input As #i '在此改成你所需的文本文件名
Do While Not EOF(i)
Line Input #i, S
call 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 With
End 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吧~~~

文章评论

代码女神横空出世
代码女神横空出世
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
程序员和编码员之间的区别
程序员和编码员之间的区别
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
一个程序员的时间管理
一个程序员的时间管理
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
程序员必看的十大电影
程序员必看的十大电影
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
总结2014中国互联网十大段子
总结2014中国互联网十大段子
漫画:程序员的工作
漫画:程序员的工作
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
Java程序员必看电影
Java程序员必看电影
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
 程序员的样子
程序员的样子
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
我的丈夫是个程序员
我的丈夫是个程序员
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
鲜为人知的编程真相
鲜为人知的编程真相
旅行,写作,编程
旅行,写作,编程
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
如何成为一名黑客
如何成为一名黑客
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
老程序员的下场
老程序员的下场
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
每天工作4小时的程序员
每天工作4小时的程序员
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
10个调试和排错的小建议
10个调试和排错的小建议
编程语言是女人
编程语言是女人
程序员都该阅读的书
程序员都该阅读的书
程序员的鄙视链
程序员的鄙视链
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
为什么程序员都是夜猫子
为什么程序员都是夜猫子
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
程序员应该关注的一些事儿
程序员应该关注的一些事儿
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有