資源描述:
《vba地控件及用戶窗體》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在學術(shù)論文-天天文庫。
1、標準實用目錄VBA常用技巧1第8章控件與用戶窗體4技巧1限制文本框的輸入4技巧2文本框添加右鍵快捷菜單6技巧3文本框回車自動輸入10技巧4自動選擇文本框內(nèi)容11技巧5設(shè)置文本框數(shù)據(jù)格式12技巧6限制文本框的輸入長度14技巧7將光標返回文本框中15技巧8文本框的自動換行17技巧9多個文本框數(shù)據(jù)相加19技巧10控件跟隨活動單元格20技巧11高亮顯示按鈕21技巧12組合框和列表框添加列表項的方法2312-1使用RowSource屬性添加列表項2312-2使用List屬性添加列表項2412-3使用AddItem方法添加列表項25技巧13去除列表框數(shù)據(jù)源的重復(fù)值和空格27技巧14移動
2、列表框條目29技巧15允許多項選擇的列表框32技巧16多列組合框和列表框的設(shè)置3516-1多列組合框和列表框添加列表項3516-2多列列表框?qū)懭牍ぷ鞅?7技巧17輸入時逐步提示信息39技巧18二級組合框46技巧19使用DTP控件輸入日期48技巧20使用RefEdit控件選擇區(qū)域51技巧21如何注冊控件52技巧22遍歷控件的方法5522-1使用名稱中的變量遍歷控件5522-2使用對象類型遍歷控件5722-3使用程序標識符遍歷控件5822-4使用名稱中的變量遍歷圖形5922-5使用FormControlType屬性遍歷圖形60技巧23使微調(diào)框最小變動量小于161技巧24不打印工
3、作表中的控件6324-1設(shè)置控件格式6324-2設(shè)置控件的printobjcet屬性65技巧25在框架中使用滾動條65技巧26使用多頁控件67技巧27標簽文字垂直居中對齊69文案大全標準實用技巧28使用TabStrip控件71技巧29顯示GIF動畫圖片73技巧30播放Flash文件76技巧31在工作表中添加窗體控件7831-1使用AddFormControl方法7931-2使用Add方法81技巧32在工作表中添加ActiveX控件8332-1使用Add方法8432-2使用AddOLEObject方法86技巧33使用spreadsheet控件87技巧34使用Listview控
4、件9034-1使用Listview控件顯示數(shù)據(jù)列表9034-2在Listview控件中使用復(fù)選框9334-3調(diào)整Listview控件的行距9534-4在Listview控件中排序9834-5Listview控件的圖標設(shè)置99技巧35調(diào)用非模式窗體102技巧36進度條的制作10436-1使用進度條控件10436-2使用標簽控件106技巧37使用TreeView控件顯示層次109技巧38用戶窗體添加圖標113技巧39用戶窗體添加最大最小化按紐115技巧40禁用窗體標題欄的關(guān)閉按鈕116技巧41屏蔽窗體標題欄的關(guān)閉按鈕117技巧42無標題欄和邊框的窗體119技巧43制作年月選擇窗
5、體120技巧44自定義窗體中的鼠標指針類型123技巧45調(diào)整窗體的顯示位置124技巧46由鼠標確定窗體顯示位置126技巧47用戶窗體的打印127技巧48使用自定義顏色設(shè)置窗體顏色129技巧49在窗體中顯示圖表13049-1使用Export方法13049-2使用API函數(shù)132技巧50窗體運行時調(diào)整控件大小133技巧51在用戶窗體上添加菜單136技巧52在用戶窗體上添加工具欄140技巧53使用代碼添加窗體及控件145技巧54用戶窗體的全屏顯示15154-1設(shè)置用戶窗體為應(yīng)用程序的大小15154-2根據(jù)屏幕分辨率進行設(shè)置152技巧55在用戶窗體上添加狀態(tài)欄153文案大全標準實用
6、文案大全標準實用第8章控件與用戶窗體技巧1限制文本框的輸入用戶在使用文本框輸入數(shù)據(jù)時,往往希望能限制輸入數(shù)據(jù)的類型,比如只能輸入數(shù)字。但是沒有內(nèi)置的屬性能限制在文本框中只能輸入數(shù)字,只能在文本框的事件過程中使用代碼來測試輸入的是哪類字符,然后只允許輸入數(shù)字字符和一個“-”號、一個“.”號,如下面的代碼所示。#001PrivateSubTextBox1_KeyPress(ByValKeyANSIAsMSForms.ReturnInteger)#002SelectCaseKeyANSI#003CaseAsc("0")ToAsc("9")#004CaseAsc("-")#005I
7、fInStr(1,Me.TextBox1.Text,"-")>0Or_#006Me.TextBox1.SelStart>0Then#007KeyANSI=0#008EndIf#009CaseAsc(".")#010IfInStr(1,Me.TextBox1.Text,".")>0Then#011KeyANSI=0#012EndIf#013CaseElse#014KeyANSI=0#015EndSelect#016EndSub代碼解析:文本框的KeyPress事件過程,測試鍵盤輸入的是哪類字符,只允許輸入數(shù)字字符和一