请问怎么执行一个字符串的内容??

cat7035 2003-01-03 12:35:40
str="text1.enable=flase"
如何在程序中执行str中的内容??
...全文
5 点赞 收藏 12
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cat7035 2003-01-03
我写的text1.enable=false是举个例子,str的内容不定的
回复
zmcpu 2003-01-03
还是得自己写代码:


如:
if str="text1.enable=flase" then text1.enable=flase
否则好象没办法.

回复
xl_xl 2003-01-03
if str=="text1.enable=flase" then
text1.enable=flase
end if


回复
cat7035 2003-01-03
没办法吗?
回复
Erice 2003-01-03
没这可能吧
回复
of123 2003-01-03
为什么总是有人要发明永动机?
回复
litsnake1 2003-01-03
当然没有拉,兄弟不要老往牛角尖钻,懂得急流勇退也是很好的,
还是有很多变通的方法的嘛
回复
cat7035 2003-01-03
这种方法不太好用,还有别的吗?
回复
zyl910 2003-01-03
以前有人问过
acptvb(微软全球技术中心 VB技术支持)的回答:


回复人: acptvb(微软全球技术中心 VB技术支持) ( ) 信誉:99 2002-6-26 16:53:41 得分:0


感谢您使用微软产品。

您可以利用Microsoft Script Control来实现这个功能。

首先,你需要在工程里引用一下Microsoft Script Control。然后加入一下代码:

Private Sub Form_Load()

Dim scr As New ScriptControl
Dim mycode As String

scr.Language = "vbscript"
mycode = "public function Test()" + vbCrLf
mycode = mycode + "MsgBox ""Hello VB""" + vbCrLf
mycode = mycode + "End function"

scr.AddCode (mycode)
scr.Eval ("Test()")

End Sub

这样,在字符串mycode里定义的函数Test()就会被调用了。

参考:

HOWTO: Use Script Control Modules and Procedures Collections
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q184745


- 微软全球技术中心 VB技术支持

本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
回复
yefm 2003-01-03
不可能!
这不是SQL的脚本
回复
holydiablo 2003-01-03
找是找到了,只是它只能执行VBScript,所以有些功能是受限的..
MicroSoft Script Control 1.0
回复
holydiablo 2003-01-03
有一个控件可以,只是我现在想不起来了,搜索中....
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告