示例代码(用户表单，模块)

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

好的，快速（我希望）问题。为什么以下方法不起作用？

copy

Public Sub RunMe()
    '
    ' test module
    '
    Load MyForm
    MyForm.Show
    
    MyForm.Label1.Caption = "Hello"          <=== here
    MyForm.TextBoxMsg.Text = "what"        <=== here
    
    Unload MyForm
    End
End Sub

这当然可以。

copy

Private Sub UserForm_Initialize()
    Me.Label1.Caption = "Hello"
    Me.TextBoxMsg.Text = "what"
End Sub

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

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

示例代码(用户表单，模块)

发表回复

精选推荐