社区 › VB › 示例代码(用户表单，模块)

mark 发表于 2006-10-17 10:22:56

有道理！
谢谢各位。

mark 发表于 2006-10-17 10:43:37

感谢Mark - theswamp是网上最好的AutoCAD论坛！

mark 发表于 2006-10-17 10:48:40

同上
，没有，学习Autocad和编程的最佳场所

mark 发表于 2006-10-17 11:58:46

好的，快速（我希望）问题。为什么以下方法不起作用？
Public Sub RunMe()
    '
    ' test module
    '
    Load MyForm
    MyForm.Show
   
    MyForm.Label1.Caption = "Hello"          <=== here
    MyForm.TextBoxMsg.Text = "what"      <=== here
   
    Unload MyForm
    End
End Sub

这当然可以。
Private Sub UserForm_Initialize()
    Me.Label1.Caption = "Hello"
    Me.TextBoxMsg.Text = "what"
End Sub

mark 发表于 2006-10-17 12:06:54

问题，MyForm是包含RunMe的dvb的一部分吗？ 如果是这样，则不必加载它。
第二件事 - 我不知道为什么它不起作用。 我会去测试它

查看完整版本: 示例代码(用户表单，模块)