資源描述：
《ACCESSVBA編程》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫。
1、ACCESS-VBA編程第一章控件1常量控件acBoundObjectFrame綁定對(duì)象框acCheckBox復(fù)選框acComboBox組合框acCommandButton命令按鈕acCustomControlActiveX（自定義）控件acImage圖像acLabel標(biāo)簽acLine線條acListBox列表框acObjectFrame未綁定對(duì)象框或圖表acOptionButton選項(xiàng)按鈕acOptionGroup選項(xiàng)組acPage頁acPageBreak分頁符acRectangle矩形acSubform子窗體/子報(bào)表acTabCtl選項(xiàng)卡acTextBox文本框acToggleB
2、utton切換按鈕在VB中對(duì)窗體控件的引用鍵入包含控件的窗體或報(bào)表的標(biāo)識(shí)符，后面緊接!運(yùn)算符和控件的名稱。例如，下列標(biāo)識(shí)符將引用“訂單”窗體上“訂單ID”控件值：Forms![訂單]![訂單ID]引用子窗體或子報(bào)表上的控件，不必使用“窗體”或“報(bào)表”屬性為窗體或報(bào)表指定完整的標(biāo)識(shí)符。例如，可以使用下列標(biāo)識(shí)符來引用“訂單”子窗體上的“數(shù)量”控件：Forms![訂單]![訂單子窗體]![數(shù)量]判斷窗體或報(bào)表中控件的數(shù)目，然后將該數(shù)目賦給一個(gè)變量。DimintFormControlsAsIntegerDimintReportControlsAsIntegerintFormControls=
3、Forms!Employees.CountintReportControls=Reports!FreightCharges.Count設(shè)置控件可見性Dimi,iiAsIntegerForii=3To10Me.Controls.Item(ii).Visible=TrueNextFori=11To22Me.Controls.Item(i).Visible=FalseNext按特殊名在VBA中設(shè)置控件的可見性：Fori=27To47IfMe.Controls.Item(i).NameLike"A*"ThenMe.Controls.Item(i).Visible=FalseEndIfNext
4、指定一個(gè)控件能否接受焦點(diǎn)Enabled屬性：me.控件.Enabled=true'能=false'不能指定一個(gè)控件能否被編輯：locked如：me.控件.Locked=trueme.控件.Locked=false設(shè)置控件標(biāo)題顯示的文字Me.控件.Caption="顯示窗體"設(shè)置標(biāo)簽顏色：Me.LabelColor=200獲得焦點(diǎn)及失去焦點(diǎn)時(shí)字段變更顏色。如果你的控件是文本框，名稱為“txt字段”，寫如下代碼：PrivateSubtxt字段_GotFocus()Me.txt字段.BackColor=12632256EndSub當(dāng)中“12632256”是灰色，你可以自己選擇希望的顏色，如
5、果想在失去焦點(diǎn)時(shí)改為原來的顏色，寫如下代碼：PrivateSubtxt字段_LostFocus()Me.txt字段.BackColor=16777215EndSub使標(biāo)簽閃爍以引人注意設(shè)置窗體的TimerInterval值為1000(1秒).formsOnTimer加入代碼:SubForm_Timer()YourTextLabel.Visible=NotYourTextLabel.VisibleEnd_Sub設(shè)置標(biāo)簽字體顏色：Me.Label1.ForeColor=設(shè)置文本框顏色：Me.TextColor=300設(shè)置文本框字體顏色：Me.TextFontColor=500標(biāo)簽等左邊距
6、離：Me.Label2.Left=2200定位控件Me.控件.Top=8290VBA編程Me.控件.Left=100標(biāo)簽等字體粗細(xì)：Me.Label2.FontWeight=20000控件邊框顏色：Me.Label2.BorderColor=0控件邊框線條BorderStyle屬性使用以下設(shè)置：透明0（僅對(duì)于標(biāo)簽、圖表和子報(bào)表而言是默認(rèn)值）透明的實(shí)線1（默認(rèn)值）實(shí)線虛線2虛線短虛線3短虛線點(diǎn)線4點(diǎn)線稀疏點(diǎn)線5點(diǎn)距較寬的點(diǎn)線點(diǎn)劃線6虛線與點(diǎn)線組合的點(diǎn)劃線點(diǎn)點(diǎn)劃線7虛線-點(diǎn)線-點(diǎn)線組合的點(diǎn)點(diǎn)劃線雙實(shí)線8雙實(shí)線指定控件的邊框?qū)挾仁褂肂orderWidth屬性可以指定控件的邊框?qū)挾热≈担?或
7、1－6指定控件是否透明使BackStyle屬性可以指定控件是否透明。True、False解除子窗體鎖定Me.進(jìn)_子窗體.Locked=False'解除子窗體鎖定將窗體上所有控件的輸入法關(guān)掉!來源:不祥PrivateSubForm_Open(CancelAsInteger)DimctlAsAccess.ControlForEachctlInMe.ControlsDebug.Printctl.Name&ctl.ControlTypeIfctl.ControlT
