Excel VBA入門(十)用戶窗體開發

来源:https://www.cnblogs.com/wuzhiblog/archive/2019/10/02/vba_ten.html
-Advertisement-
Play Games

VBA 中的用戶窗體就是指帶 UI 的用戶界面,在運行的時候會單獨彈出一個視窗,類似於在 windows 系統中運行的一個可執行程式一樣(這個說法不太嚴謹,因為可執行程式也可能是只有命令視窗而沒有 UI 的)。再具體一點,就是一個視窗界面當中,有可能會包含有文本框、覆選框、單選按鈕、下拉列表,就如在 ...


VBA 中的用戶窗體就是指帶 UI 的用戶界面,在運行的時候會單獨彈出一個視窗,類似於在 windows 系統中運行的一個可執行程式一樣(這個說法不太嚴謹,因為可執行程式也可能是只有命令視窗而沒有 UI 的)。再具體一點,就是一個視窗界面當中,有可能會包含有文本框、覆選框、單選按鈕、下拉列表,就如在網頁中填寫的表單一樣。再具體一點,就是如下圖這樣的:

用戶窗體示例

1. 用戶界面設計

如上圖,UI 設計的部分其實是很簡單的,微軟的特色,直接拖拉拽就可以實現了。而每一個控制項(或者稱為元素,也即放進窗體中的各種按鈕、輸入框等等)的屬性,可以在選中它之後,在預設位於左下角的 “屬性” 列表框中進行設置,可設置項包含按鈕的名字、前景色、背景色、顯示出來的文本、寬度、高度、字體顏色、字型大小、距離左側的距離、距離頂部的距離等等,很簡單。如果這個 “屬性” 框沒有出現的話,可以在頂部菜單欄的 “視圖” 中選擇 “屬性視窗”,它就會出現了。

2. 用戶交互

2.1 按鈕事件

直接在窗體中雙擊放進去的按鈕,就可以進入到按鈕的事件開發界面,預設的是單擊事件,如下圖

留意上圖中的紅框部分,左上角顯示的是該按鈕的名稱,右上角顯示的是該按鈕的事件,這裡是單擊事件 Click,這兩個都是下拉選擇框,分別點擊它們右邊的倒三角可以看到其它的控制項和各控制項對應的其它方法,如下

如果你選中了其它事件,則 VBE 會自動給你生成這個事件的函數簽名,它是根據按鈕的名稱和事件名稱來命名的,所以這個函數名字應該是不能改動的(我沒有試過改)

其它按鈕的事件也類似,就不贅述了。

2.2 獲取控制項的值

因為控制項很多,就不能一一舉例了,只舉幾具做為示例,其它也類似的,通常都是它在屬性列表中叫什麼,就能通過這個名字來取到它的值

文本框

假設文本框名為 tbx,則通過 tbx.Value 或者 tbx.Text 都能得到輸入到文本框中的內容

多選按鈕

假設多選按鈕名為 cbx,則通過 cbx.Value 可以得到這個多選按鈕的值,如果它被選中了,則值為 True,否則為 False。通過 cbx.Caption 可以得到這個多選按鈕對應的文本

單選按鈕

假設單選按鈕名為 obtn,則通過 obtn.Value 可以得到這個多選按鈕的值,如果它被選中了,則值為 True,否則為 False。通過 cbx.Caption 可以得到這個多選按鈕對應的文本

3. 歷遍所有控制項

比如一個窗體中,存在多個多選框,要一個個去判斷它是否被選中,此時可以考慮歷遍所有控制項,通過判斷控制項類型的方法來獲取多選框。

先看如下代碼:

orderStr = ""
For Each ctrls In Me.Controls
    If TypeName(ctrls) = "CheckBox" Then
        If ctrls.Value = True Then
            orderStr = orderStr & "||" & ctrls.Caption
        End If
    End If
Next ctrls

Me.Controls 是一個固定的寫法,Me 代表當前窗體,而 Controls 則表示窗體上的所有控制項。用 TypeName 函數來判斷每個控制項的類型,然後就可以對不同的控制項執行不同的操作了

4. 動態生成控制項

即不再使用人工的方式來拖拉拽設置控制項,而是在 VBA 代碼中來根據條件來動態地添加控制項到窗體中。

先看代碼:

For Each order In orderArr
    Set newCbk = form_combinedModel.Controls.Add("Forms.CheckBox.1")
    With newCbk
        .Left = 30
        .Top = y
        .Width = 80
        .Height = 18
        .Caption = order
    End With
    y = y + gap
    panelH = panelH + gap
Next order

這裡的 orderArr 是一個數組,所以可以使用 For Each 來歷遍它。重點在於第 2 行,這裡的 form_combinedModel 是窗體的名字,通過它的 .Controls.Add 方法就能夠添加新控制項。這個方法的參數是固定的,需要添加什麼類型的控制項就使用對應的參數,示例代碼中添加的是多選框,對應的是 Forms.CheckBox.1,這個參數可以在 這裡 找到。

此外要註意的是,這個新添加的控制項是一個對象,所以需要在變數前面使用 Set 關鍵字。示例代碼中接下來的 With 語句,是用於設置這個新的控制項的屬性,這裡設置了它的位置(左距、上距)、寬度、高度、顯示文本


本系列教程其它文章

Excel VBA 入門(零)
Excel VBA 入門(一)數據類型
Excel VBA 入門(二)數組和字典
Excel VBA 入門(三) 流程式控制制1-條件選擇
Excel VBA 入門(四)流程式控制制2-迴圈控制
Excel VBA 入門(五)Excel對象操作
Excel VBA 入門(六)過程和函數
Excel VBA 入門(七)註釋、巨集按鈕及錯誤處理
Excel VBA 入門(八)單元格邊框
Excel VBA 入門(九)操作工作薄
Excel VBA入門(十)用戶窗體開發


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • 一.多APP 二.flask admin 安裝 簡單使用 將表模型註冊到admin中 如果有個欄位是圖片指端 ...
  • 她是個很優秀的女生,不得不說我都覺得她很強大。因為我所瞭解,男生能做能擔當起來的事,她都是可以做到以及做過更優秀的那種(有事例,但不方便講)。 但是她喜歡女生,搞了一個對象是女生。嗯,今天國慶她倆一起來我家吃飯。然後就突然感覺到她一直像個男孩子一樣對那個女生,她說什麼做什麼都很照顧那個女孩子,看起來 ...
  • 點這裡進入ABP開發手記目錄 創建目錄 在展示層(即JD.CRS.Web.Mvc)的\wwwroot\view-resources\Views\下新建文件夾Course //用以存放Course相關腳本 創建腳本 在JD.CRS.Web.Mvc\wwwroot\view-resources\View ...
  • 點這裡進入ABP開發手記目錄 創建目錄 在展示層(即JD.CRS.Web.Mvc)的Views下新建文件夾Course //用以存放Course相關視圖 創建視圖 在JD.CRS.Web.Mvc/Views/Course下新建兩個Razor視圖 查詢視圖 Index.cshtml //用於查詢Cou ...
  • 點這裡進入ABP開發手記目錄 創建視圖模型 在展示層(即JD.CRS.Web.Mvc)的Controllers下新建一個控制器CourseController.cs 1 using Abp.Application.Services.Dto; 2 using Abp.AspNetCore.Mvc.Au ...
  • 點這裡進入ABP開發手記目錄 創建視圖模型 在展示層(即JD.CRS.Web.Mvc)的Models下新建文件夾Course //用以存放Course相關視圖模型 在JD.CRS.Web.Mvc/Models/Course下新建兩個視圖模型 只讀模型 CourseListViewModel.cs / ...
  • 點這裡進入ABP開發手記目錄 創建目錄 在應用層(即JD.CRS.Application)下新建文件夾Course //用以存放Course相關應用服務 在JD.CRS.Application/Course下新建文件夾Dto //用以存放Course相關數據傳輸對象 創建數據傳輸對象 在JD.CRS ...
  • 點這裡進入ABP開發手記目錄 設置資料庫 在基礎設施層(即JD.CRS.EntityFrameworkCore)打開資料庫環境設置 JD.CRS.EntityFrameworkCore/EntityFrameworkCore/CRSDbContext.cs添加一行 public DbSet<Cour ...
一周排行
    -Advertisement-
    Play Games
  • 移動開發(一):使用.NET MAUI開發第一個安卓APP 對於工作多年的C#程式員來說,近來想嘗試開發一款安卓APP,考慮了很久最終選擇使用.NET MAUI這個微軟官方的框架來嘗試體驗開發安卓APP,畢竟是使用Visual Studio開發工具,使用起來也比較的順手,結合微軟官方的教程進行了安卓 ...
  • 前言 QuestPDF 是一個開源 .NET 庫,用於生成 PDF 文檔。使用了C# Fluent API方式可簡化開發、減少錯誤並提高工作效率。利用它可以輕鬆生成 PDF 報告、發票、導出文件等。 項目介紹 QuestPDF 是一個革命性的開源 .NET 庫,它徹底改變了我們生成 PDF 文檔的方 ...
  • 項目地址 項目後端地址: https://github.com/ZyPLJ/ZYTteeHole 項目前端頁面地址: ZyPLJ/TreeHoleVue (github.com) https://github.com/ZyPLJ/TreeHoleVue 目前項目測試訪問地址: http://tree ...
  • 話不多說,直接開乾 一.下載 1.官方鏈接下載: https://www.microsoft.com/zh-cn/sql-server/sql-server-downloads 2.在下載目錄中找到下麵這個小的安裝包 SQL2022-SSEI-Dev.exe,運行開始下載SQL server; 二. ...
  • 前言 隨著物聯網(IoT)技術的迅猛發展,MQTT(消息隊列遙測傳輸)協議憑藉其輕量級和高效性,已成為眾多物聯網應用的首選通信標準。 MQTTnet 作為一個高性能的 .NET 開源庫,為 .NET 平臺上的 MQTT 客戶端與伺服器開發提供了強大的支持。 本文將全面介紹 MQTTnet 的核心功能 ...
  • Serilog支持多種接收器用於日誌存儲,增強器用於添加屬性,LogContext管理動態屬性,支持多種輸出格式包括純文本、JSON及ExpressionTemplate。還提供了自定義格式化選項,適用於不同需求。 ...
  • 目錄簡介獲取 HTML 文檔解析 HTML 文檔測試參考文章 簡介 動態內容網站使用 JavaScript 腳本動態檢索和渲染數據,爬取信息時需要模擬瀏覽器行為,否則獲取到的源碼基本是空的。 本文使用的爬取步驟如下: 使用 Selenium 獲取渲染後的 HTML 文檔 使用 HtmlAgility ...
  • 1.前言 什麼是熱更新 游戲或者軟體更新時,無需重新下載客戶端進行安裝,而是在應用程式啟動的情況下,在內部進行資源或者代碼更新 Unity目前常用熱更新解決方案 HybridCLR,Xlua,ILRuntime等 Unity目前常用資源管理解決方案 AssetBundles,Addressable, ...
  • 本文章主要是在C# ASP.NET Core Web API框架實現向手機發送驗證碼簡訊功能。這裡我選擇是一個互億無線簡訊驗證碼平臺,其實像阿裡雲,騰訊雲上面也可以。 首先我們先去 互億無線 https://www.ihuyi.com/api/sms.html 去註冊一個賬號 註冊完成賬號後,它會送 ...
  • 通過以下方式可以高效,並保證數據同步的可靠性 1.API設計 使用RESTful設計,確保API端點明確,並使用適當的HTTP方法(如POST用於創建,PUT用於更新)。 設計清晰的請求和響應模型,以確保客戶端能夠理解預期格式。 2.數據驗證 在伺服器端進行嚴格的數據驗證,確保接收到的數據符合預期格 ...