如何执行变量中的语句？

一下子不太说得清楚，请看例子：      
  dim     aa          
  aa="text1.text='你好'"      
  如何利用     aa     变量      
  达到          
  text1.text="你好"          
  这句语句的效果？      
  突然想到的怪问题，不知道怎么解决，奇怪。。。      
  急等答案！！！ 问题点数：20、回复次数：11Top

1 楼wangchong（网虫）回复于 2005-08-04 15:49:02 得分 0

好像不行！！！我们有做成功！！！Top

2 楼chen2831278（云）回复于 2005-08-04 15:58:59 得分 0

这个问题本身就很奇怪     感觉没设么讨论的必要Top

3 楼jameschan（jameschan）回复于 2005-08-04 16:22:29 得分 0

因为奇怪，所以想找答案，谢绝没有创意的人。Top

4 楼chen2831278（云）回复于 2005-08-04 16:29:19 得分 0

偶是菜鸟　希望大哥别介意Top

5 楼alone_walk（）回复于 2005-08-04 19:32:05 得分 0

利用VBSCRIPT控件可以实现Top

6 楼microtry（米醋）回复于 2005-08-04 19:45:47 得分 0

只要格式化字符串，就能实现Top

7 楼jameschan（jameschan）回复于 2005-08-05 08:44:59 得分 0

请各位能人详细说明一下，感谢！！！Top

8 楼lsftest（）回复于 2005-08-05 09:41:49 得分 11

一个简单例子：  
  '在form中加两个text，一个label，两个command，一个microsoft   Script   Control  
  Option   Explicit  
   
  Private   Sub   Command1_Click()  
  ScriptControl1.Language   =   "VBScript"  
  ScriptControl1.AddCode   (Text1.Text)  
  ScriptControl1.Run   ("Test")  
  End   Sub  
   
  Private   Sub   Command2_Click()  
  ScriptControl1.Language   =   "VBScript"  
  ScriptControl1.ExecuteStatement   (Text2.Text)  
  End   Sub  
   
  Private   Sub   Form_Load()  
  'Expose   the   form   as   frmMainWindow  
  ScriptControl1.AddObject   "frmMainWindow",   Me  
  Text1   =   "sub   Test()frmMainWindow.label1=""hello""   end   sub"  
  Text2   =   "frmMainWindow.BACKCOLOR=VBRED"  
  End   Sub  
   
  Top

9 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2005-08-05 10:02:01 得分 9

Option   Explicit    
   
  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    
   
  Private   Sub   Form_Load()    
  EbExecuteLine   StrPtr("dim   a   as   long,b   as   long,c   as   long"),   0,   0,   0    
  EbExecuteLine   StrPtr("a="   &   3),   0,   0,   0    
  EbExecuteLine   StrPtr("b="   &   5),   0,   0,   0    
  EbExecuteLine   StrPtr("c="   &   2),   0,   0,   0    
  EbExecuteLine   StrPtr("clipboard.settext   (a+b)/c"),   0,   0,   0    
  MsgBox   Clipboard.GetText    
  End   Sub    
  Top

10 楼jameschan（jameschan）回复于 2005-08-05 11:18:47 得分 0

非常感谢上面两位朋友给我详细例程。Top

11 楼lsftest（）回复于 2005-08-05 13:27:50 得分 0

EbExecuteLine只能在ide情况下使用，程序编译成exe后就不行了。。。。。。。。。Top

相关问题

• vbscript
• ebexecuteline
• scriptcontrol
• frmmainwindow
• strptr
• 奇怪
• sub
• byval
• aa
• as long

• 帖主：jameschan
• lsftest
• zyg0

• Visual Basic类图书
• Visual Basic类源码下载