栋栋的个人博客

Access-控件解析-窗体-01-弹出

  • 608 字

Part 1：本篇目标

  1. 本篇介绍窗体。涉及功能为：点击按钮后，弹出一个窗体
  2. 严格来说窗体不是控件，它是控件的载体

效果动图

图片

Part 2：实现步骤

  1. 本项目中涉及到两个窗体

    • 窗体main作为主窗体，有一个按钮，点击后弹出窗体弹窗
    • 窗体弹窗，需要将其弹出方式选择是

  3. 窗体main中设置按钮对应的代码

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command0_Click() 
    Dim frm   
    Dim ctrl 
    Dim frmName   
    frmName = "弹窗"    
    DoCmd.OpenForm (frmName)     
    Set frm = Forms(frmName)  
    frm.Caption = "说明"      
    Set ctrl = frm.Controls("Label4") 
    strSay = "这是一个测试弹窗功能的小程序"  
    ctrl.Caption = strSay
End Sub

代码截图
图片

窗体弹窗

图片

弹出方式设置

图片

Part 3：部分代码解读

  1. DoCmd.OpenForm (frmName)打开窗体
  2. frm.Caption = "说明"设置标题

设置标题效果

图片

本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
, , , ,