VB學習筆記－－控制項（1）

1.ADO Data
工具提示為“ADODC”。如未在“ToolBox”中，按CTRL+T，顯示“組件”（或“Project”－>“Components”）， 添加

“Microsoft ADO Data Control”。
1)設定屬性中的“ConnectionString”，選擇使用的串連或資料庫檔案。
可以選擇使用“Data Link file”，“ODBC Data Source Name”，“Connection String”
connectionstring格式類似：dirver={SQL Server};server=bigsmile;uid=sa;pwd=pwd;database=pubs
2)設定屬性中的“RecordSource”為一個SQL語句
3)可添加一個TextBox顯示資料庫資訊，將TextBox的屬性中的“DataSource”設為ADO Data的控制項名，“DataField”設

為想要顯示的欄位

這部分通過代碼實現，例：
Private Sub Form_Load()
  With ADODC1
 .ConnectionString="dirver={SQL Server};server=bigsmile;uid=sa;pwd=pwd;database=pubs"
 .RecordSource="Select * from Titles Where AuthorID=7"
  End With
  Set Text1.DataSource=ADODC1
  Text1.DataField="Title"
End Sub

2.CheckBox
CheckBox的Value屬性三種狀態：
Unchecked： 0 vbUnchecked(預設) 
Checked： 1 vbChecked
Unavailable： 2 vbGrayed

3.ComboBox
三種組合框模式：
下拉式組合框： 0 vbComboDropDown(預設)  可直接輸入，也可從下拉表中選擇。列表不一直顯示。
簡單組合框： 1 vbComboSimple  可直接輸入，也可從列表選擇。列表一直顯示。
下拉式列表框： 2  vbComboDropDownList 不可直接輸入，只能從下拉表中選擇，列表不一直顯示。
1)添加項目：
<box>.AddItem <item[,index]>
index從0開始,將項目排序，Sorted=True(注意：在排序列表中指定位置添加項目時可能導致不可預料的結果，一般不要同

時用)
2)刪除項目：
<box>.RemoveItem index
3)刪除所有項目：
<box>.Clear
4)用Text屬性擷取列表內容
5)用List屬性擷取列表選項
<box>.List(index)
6)用ListIndex屬性判定位置
第一個選項Index為0，依此類推。如未選項則為-1。

4.CommandButton
1)Default和Cancel屬性
Default：不管表單上哪個控制項有焦點，Enter鍵響應的都是此按鈕。Default＝True
Cancel：與上同，只是Esc鍵響應該按鈕。Cancel＝True
2)Value屬性
True時選定些按鈕並觸發Click事件，False（預設）指示示選擇按鈕。
3)Click事件
4)style屬性
可設為Picture，DownPicture，DisablePicture增強視覺效效果或用於其它功能。

5.CommonDialog
工具提示為“ADODC”。如未在“ToolBox”中，按CTRL+T，顯示“組件”（或“Project”－>“Components”）， 添加

“Microsoft Common Dialog Control”。
CommonDialog和Timer一樣，在運行時不可見。
可調用方法顯示需要的對話。
1)ShowOpen（開啟）
Filter屬性：description1|filter1|description2|filter2...
FilterIndex屬性：選擇預設的Filter
FileName屬性：選中的檔案
例：
CommonDialog1.Filter = "All Files|*.*|TextFiles|*.txt"
CommonDialog1.FilterIndex=0
CommonDialog1.ShowOpen
OpenFile(CommonDialog1.FileName)
2)ShowSave（另存新檔）
與ShowOpen相同，只是對話方塊標題和檔案名稱是不可選。
3)ShowColor（顏色）
調用調色盤，要使用它必須先把Flags屬性設為cdlCCRGBInit,然後用ShowColor顯示調色盤。
例：
CommonDialog1.Flags=cdlCCRGBInit
CommonDialog1.ShowColor
Form1.BackColor=CommonDialog1.Color
4)ShowFont（字型）
先把Flags設為cdlCFScreenFonts，cdlCFPrinterFonts,cdlCFBoth之一，然後用ShowFont顯示字型對話方塊。
屬性有Color(Flags必須同時含有cdlCFEffects，如CommonDialog1.Flags=cdlCFBoth or cdlCFEffects),FontBold(粗

體),FontItalic(斜體),FontStrikethru(刪除線),FontUnderline(底線)，FontName(字型名稱)，FontSize(字型大小

)
5)ShowPrinter（列印）
Copies（列印分數），FromPage（起始頁），ToPage（結束頁），hDC(印表機裝置上下文)，Orientation（頁面定向）
6)ShowHelp
HelpCommond，HelpFile

6.Data
Connect（資料庫類型），DatabaseName(資料庫檔案或目錄名稱)，RecordSource(資料庫表名稱)

7.DataCombo和DataList
DataCombo比DataList多一個可編輯內容的文字框
重要屬性：BoundText（綁定欄位的值），SelectedItem（返回一個所選項目行的標籤），MatchEntry（DataCombo中啟用

搜模式來定位項目），IntegralHeight（將高度設為恰可顯示整數個完整的行），VisibleCount（指定一個列表中可見的

數目）
1)控制串連兩個表（值得研究）
DataSource：要寫入資料的資料來源所繫結資料控制項
DataField：要寫入的資料來源中欄位
RowSource：提供寫入資料的資料來源所繫結資料控制項
BoundColumn：用於RowSource指定記錄集中一個欄位，必須與DataField類型相同，該欄位為提供寫入的欄位
ListField：用於RowSource指定記錄集中一個欄位，如果指定了該屬性而未指定BoundColumn剛BoundColumn將自動設為

ListField欄位
注意：也可以用來控制同一個資料來源，將DataSource和RowSource設為同一個資料控制項。

8.DataGrid
將DataSource屬性設為資料來源控制項，如ADO Data控制項
1)更改DataSource的RecordSource
改變DataSource的查詢，如為ADO Data控制項則重寫RecordSource和重新整理ADO Data控制項都將改變顯示的資料
例：
Dim strQuery As String
strQuery = "Select * From A where ID = 12"
Adodc.RecordSource = strQuery
Adodc.Refresh
2)更改DataSource
將DataSource重新設定為一個不同的資料來源
例：
Set DataGrid1.DataSource = adoPubs
3)重新綁定DataSource
資料庫表結構發生變化時，可以過Rebind重新建立該網格。
如已經在設計時改變這個列的布局，可以通過ClearFields強制該網格重新設定所有的列。
4)從DataGrid傳回值
RowColChanged事件用於監視使用者單擊了哪一個單元。DataGrid.Row,DataGrid.Col,DataGrid.Text
NumberFormat屬性用於設定顯示內容的格式。
例：一個簡單的資料庫應用程式
a)建立一個資料庫連結檔案（*.udl），並串連到某資料庫，測試連接，成為一個資料來源
b)將一個ADO控制項的ConnectionString屬性設定為該資料來源
c)設定ADO控制項的RecordSource屬性，輸入SQL語句
d)將DataGrid的DataSource屬性設定為ADO Data控制項。
5)添加、刪除、隱藏列(Column)
DataGrid.Columns.Add colIndex
DataGrid.Columns.Remove colIndex
Column常用屬性：Visible,Width,Caption,DataField,Alignment
6)拆分(Split)
防止使用者在使用時添加拆分的代碼：DataGrid.Splits(0).AllowSizing=False（？？好像不起作用）
DataGrid.Splits.Add index
DataGrid.Splits.Remove index
使拆分同步：只需將需要同步的拆分的ScrollGroup屬性設為同一個值。
例:With DataGrid
 .Splits(0).ScrollGroup=1
 .Splits(1).ScrollGroup=1
   End With
如果只想將同步的拆分組只顯示一個ScrollBar，可以設定ScrollBar屬性使不顯示。

9.Directory List Box,Drive List Box,File List Box
1）磁碟機列表框（DriveListBox）
磁碟機路徑： Drive屬性
設定磁碟機： ChDrive
2)目錄列表框（DirListBox）
標識符： 當前指定目錄為-1，上一層為－2，下一層的第一個子目錄為0。依此類推。
目錄路徑： Path屬性（設計時不可用，運行時可用）
設定目錄 ： ChDir
3)檔案清單框（FileListBox）
路徑：  Path屬性。
顯示檔案子集： Pattern屬性，只顯示設定的副檔名的檔案。 如：File1.Pattern="*.frm;*.bas"
  此屬性支援？萬用字元，如 ???.txt，將顯示所有檔案名稱包含三個字元且副檔名為.txt的檔案。
常用屬性： Archive,Normal,ReadOnly,（預設為True）
System,Hidden
（預設為False），使用SetAttr設定屬性
  預設時只可選定單個檔案，使用MultiSelect屬性可選定多個檔案。