按t將Microsoft script control 1.0添加到項目中。
並添加到form1(腳本控件1);
將text1的multiline設置為true(在設計時)。
私有子命令1_Click()
ScriptControl1。ExecuteStatement文本1
末端接頭
私有子窗體_Load()
ScriptControl1。AddObject "Form1 ",Me,True
末端接頭
-
運行,寫入文本1:
form 1 . caption =現在
msgbox“測試”
form1.backcolor=vbred
按command1,可以看到這些代碼被執行。