访问97从VB创建对象

Question

在访问97中，是否有可能使用VB添加一些元素到窗体，就像标题为“Hello Word”，高度为300和宽度700的命令按钮？

Answer 1

尝试以下操作：

Function AddCommandButtonFunction() 
Dim btn As CommandButton 

DoCmd.OpenForm "TestForm", acDesign 

On Error Resume Next 
DeleteControl "TestForm", "NewButton" 

On Error GoTo lberr 
Set btn = CreateControl("TestForm", acCommandButton) 

btn.Name = "NewButton" 
btn.Caption = "Hello World!" 
btn.Top = 500 'twips. 1 twip = 1/1440 in 
btn.Left = 500 'twips 
btn.Width = 2000 'twips 
btn.Height = 500 'twips 

DoCmd.Close acForm, "TestForm", acSaveYes 
DoCmd.OpenForm "TestForm", acNormal 

Exit Function 

lberr: 
    MsgBox Err.Description 
End Function 

请注意添加/控制的删除（程序）是只允许在设计模式