日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當(dāng)前位置: 首頁(yè) > 编程资源 > 编程问答 >内容正文

编程问答

mfc 子窗体 按钮不触发_VBA与Excel入门——用户窗体1

發(fā)布時(shí)間:2025/3/11 编程问答 27 豆豆
生活随笔 收集整理的這篇文章主要介紹了 mfc 子窗体 按钮不触发_VBA与Excel入门——用户窗体1 小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

Part 1:新建用戶窗體

  • 打開VBE后,使用菜單 插入-用戶窗體,在工程資源管理器可以看到一個(gè)UserForm1的用戶窗體
  • 用戶窗體有點(diǎn)像一個(gè)畫板,可以使用提供的工具來(lái)設(shè)置自己的軟件界面
  • 具體實(shí)現(xiàn)什么功能要結(jié)合內(nèi)部寫的VBA代碼
  • Part 2:用戶窗體示例,登錄窗口

  • 擬實(shí)現(xiàn)功能:雙擊Excel,直接打開登錄窗口,無(wú)Excel界面
  • 需輸入用戶名密碼
  • 點(diǎn)擊登錄按鈕,如果用戶名密碼都正確,則打開Excel界面,否則彈框提示
  • 點(diǎn)擊取消按鈕,退出Excel
  • 代碼

    Private Sub Login_Click() If UserName = "測(cè)試" Then If secret = 123 Then Unload Me Application.Visible = True Else MsgBox "密碼錯(cuò)誤,請(qǐng)重新輸入" End If Else MsgBox "用戶名錯(cuò)誤,請(qǐng)重新輸入" End IfEnd SubPrivate Sub Logout_Click() Application.QuitEnd Sub

    Part 3:窗體構(gòu)建

  • 新建一個(gè)用戶窗體,打開其屬性(若無(wú),菜單視圖-屬性窗口)
  • 介紹兩個(gè)窗體關(guān)鍵屬性
    • 名稱,代表這個(gè)窗體,VBA用該處填寫的字符表示這個(gè)窗體,這里使用的是LoadWindow,對(duì)用戶不可見
    • Caption,表示用戶直接看見的標(biāo)示,這里使用登錄
  • 使用工具箱在窗體中作畫,先左鍵選中控件,移動(dòng)到窗體中按住左鍵拉出一個(gè)矩形框即可(若無(wú)工具箱,菜單視圖-工具箱)
  • 介紹三個(gè)控件,標(biāo)簽,文字框 ,命令按鈕
    • 標(biāo)簽:只是作為顯示,用戶不可編輯,制作這個(gè)窗體的人當(dāng)然可以編輯
    • 文字框 :用戶輸入用戶名密碼的兩處空白
    • 命令按鈕:一個(gè)點(diǎn)擊觸發(fā)
    • 設(shè)置用戶名對(duì)應(yīng)的文字框 的名稱屬性為UserName
    • 設(shè)置密碼對(duì)應(yīng)的文字框 的名稱屬性為secret,這個(gè)屬性在VBA中會(huì)調(diào)用
  • 右鍵登錄命令按鈕,點(diǎn)擊查看代碼,然后寫入以上代碼Private Sub Login_Click(),這個(gè)其實(shí)是一個(gè)事件,按鈕點(diǎn)擊事件觸發(fā)命令執(zhí)行,同理對(duì)取消按鈕進(jìn)行設(shè)置
  • 總結(jié)

    以上是生活随笔為你收集整理的mfc 子窗体 按钮不触发_VBA与Excel入门——用户窗体1的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問題。

    如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò),歡迎將生活随笔推薦給好友。