Option Compare Database '------------------------------------------------------ Public Sub PreviewReport_Click() createtNewReport End Sub '------------------------------------------------------ Public Sub createtNewReport() Dim txtNew As TextBox Dim lblNew As Label Dim rpt As Repo ...
ACCESS 窗体本身没找到相关的属性,希望以后版本的ACCESS能加入该功能。 现在用 API 可以解决: 缩放状态 Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long 是否最小化 Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long 是否可见 Declare Function IsWindowVisible Lib "user ...