以编程方式更改控件的默认值

Question

我正在尝试使用VBA设置控件的默认值，这样当我离开表单并稍后返回时，默认值将是我之前设置的值。

我希望这可行：

Private Sub searchButton_Click()
    Me.searchType.DefaultValue = Me.searchType.Value
End Sub

是否可以设置控件的默认值？

Answer 1

只能在“设计视图”中对DefaultValue进行持久更改。查看here和Allen Browne的回复here

Answer 2

我猜（你的问题不清楚）你加载表单，做东西，保存默认值，关闭（卸载）表单。在新加载时，您需要设置保存的默认值。

要使其正常工作，您需要将默认值保存在表单外部的变量中。卸载表单后，该表单中的所有变量都将从内存中释放。

所以在加载表单的代码模块中创建一个变量。

举个例子，把它放在代码模块中：

Option Explicit
Public Default_value As Boolean

Sub jzz()

'load and show form
Load testForm
testForm.Show

'load and show form again
Load testForm
'set default value:
testForm.Default_checkbox.Value = Default_value
testForm.Show

End Sub

一个名为testForm的用户表单，包含2个元素，一个名为Default_checkbox的复选框和一个Commandbutton。

Option Explicit

Private Sub OK_button_Click()
'save default value in Module1:
Module1.Default_value = Me.Default_checkbox.Value

'unload form
Unload Me
End Sub