Access vba中with的作用與用法
時(shí)間：2013-09-04 17:01 來源：Office中國 作者：admin 閱讀：次
在vba代碼中，我們常�？匆妛ith關(guān)鍵字，那么With 語句是用來對某個(gè)對象執(zhí)行一系列的語句，而不用重復(fù)指出對象的名稱。
用作于簡化代碼，可讀性更高�？聪旅娴氖纠�
Private Sub cmdFor_Click()
'一般的for語句循環(huán)
Dim ctl As Control
Dim i As Integer
注意 當(dāng)程序一旦進(jìn)入 With 塊，object 就不能改變。因此不能用一個(gè) With 語句來設(shè)置多個(gè)不同的對象
用作于簡化代碼，可讀性更高�？聪旅娴氖纠�
Private Sub cmdFor_Click()
'一般的for語句循環(huán)
Dim ctl As Control
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
Set ctl = Me.Controls(i)
If TypeOf ctl Is CommandButton Then
ctl.FontSize = 10
ctl.Caption = "aa"
End If
Next
End Sub
Private Sub cmdWith_Click()
'利用with語句循環(huán)
Dim ctl As Control
Dim j As Integer
For j = 0 To Me.Controls.Count - 1
Set ctl = Me(j)
If TypeOf ctl Is CommandButton Then
With ctl
.FontSize = 9
.Caption = "bb"
End With
End If
Next
End Sub
注意 當(dāng)程序一旦進(jìn)入 With 塊，object 就不能改變。因此不能用一個(gè) With 語句來設(shè)置多個(gè)不同的對象
(責(zé)任編輯：admin)
頂一下
(0)
0%
踩一下
(0)
0%
相關(guān)內(nèi)容
- ·關(guān)于 Partition 函數(shù)在分組查詢中的應(yīng)
- ·Access算術(shù)運(yùn)算符的含義和說明表
- ·mid函數(shù)的另類用法
- ·access制作程序運(yùn)行進(jìn)度框
- ·Function與Sub的異同（函數(shù)調(diào)用）
- ·Access判斷某個(gè)數(shù)值是否為某個(gè)數(shù)據(jù)類型
- ·select case后面語句塊的值的四種格式
- ·vba條件語句的兩種表示方法
- ·Access幾種數(shù)據(jù)類型初始化的值
- ·Access vba null與＂＂空字符串的區(qū)別
- ·access vba 數(shù)據(jù)類型表
- ·Access變量的命名規(guī)則
- ·Access中EXIT Sub與End Sub的區(qū)別
- ·Access vba中參數(shù)前關(guān)鍵字ByRef和ByVal
- ·Access列表框快速全選的技巧【最快】
- ·vba函數(shù)的數(shù)據(jù)類型強(qiáng)制轉(zhuǎn)換
最新內(nèi)容
推薦內(nèi)容