第一篇：vb,,選擇加綜合操作,個人意見

1、下面（A）是合法的變量名。

A、X_YZ B、123ABC C、integer D、X-Y--------------------------------------------------------------------------------------

2、工程文件的擴展名為（C）。

A、.frx B、.bas C、.vbp D、.frm--------------------------------------------------------------------------------------

3、設置（A）屬性可以使圖片顯示在圖片框或影像框中。

A、Picture B、Image C、Icon D、DownPicture--------------------------------------------------------------------------------------

4、已知 A$=”12345678” 則表達式 Val(Left$(A$,4)+Mid(A$,4,2))的值為（B）。

A、123456 B、123445 C、8 D、6--------------------------------------------------------------------------------------

5、通用對話框控件所不具有的屬性為（A）。

A、BackColor B、FileName C、Flags D、Filter--------------------------------------------------------------------------------------

6、在下面程序運行時鍵入 2，則該程序的運行結果是（C）。

Private sub command1_click()X=inputbox(“請輸入一個整數”)Select case x

Case Is<-3

Print(x+1)/(x+3)

Case –3 To 3

Print x*x+1

Case Is>3

Print(x+1)/(x-3)End select End sub

A、2 B、0.6 C、5 D、-3--------------------------------------------------------------------------------------

7、在程序中執行 Close 命令，其作用是（D）。

A、關閉當前正在使用的一個文件 B、關閉第一個打開的文件 C、關閉最近一次打開的文件 D、關閉所有文件--------------------------------------------------------------------------------------

8、在任何情況下，（D）控件在運行時都不可見。

A、標簽 B、按鈕 C、復選框 D、定時器--------------------------------------------------------------------------------------

9、在參數傳遞過程中，使用關鍵字（A）來修飾參數，可以使之按值傳遞。

A、ByVal B、ByRef C、Value D、Reference--------------------------------------------------------------------------------------

10、窗體通用部分的語句“Option Base 1”，決定本窗體中數組下標界（B）。

A、下界必須為 1 B、缺省的下界為 1 C、下界必須為 0 D、缺省的下界為 0--------------------------------------------------------------------------------------

11、滾動條的（B）屬性用于指定用戶單擊滾動條的滾動箭頭時，Value 屬性值的增減量。

A、LargeChange B、SmallChange C、Value D、Change--------------------------------------------------------------------------------------

12、當改變目錄列表框控件 Dir1 中的當前目錄時，希望同步改變文件列表框 File1 中顯示的文件，在 Dir1_change 事件過程中使用的命令是（A）。

A、File1.Path=Dir1.Path B、Dir1.Path =File1.Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path--------------------------------------------------------------------------------------

13、選中單選按鈕控件時，Value 屬性的值為（A）。

A、真 B、假 C、0 D、1--------------------------------------------------------------------------------------

14、以下說法中不正確的是（C）。

A、下拉式菜單通常出現在窗體標題欄下方，啟動應用程序后始終可以看見 B、彈出式菜單是一種浮動菜單，鼠標右擊某個對象時打開，可以快速展示當前對象可用的命令功能，也稱為快捷菜單 C、下拉式菜單通常用右鍵單擊選擇 D、下拉式菜單和彈出式菜單都可用“菜單編輯器”編輯--------------------------------------------------------------------------------------

15、下列（B）對象具有編輯功能，即運行時可以進行輸入或修改。

A、下拉式列表框 B、下拉式組合框 C、復選框 D、標簽--------------------------------------------------------------------------------------

16、表達式 16/4-2^5*8/4 MOD 52 的值為（B）。

A、14 B、4 C、20 D、2--------------------------------------------------------------------------------------

17、文本框中輸入一個字符，下列 （C）事件不會發生。

A、Change B、KeyPress C、mousemove D、KeyDown--------------------------------------------------------------------------------------

18、要為按鈕設計一個訪問鍵 A，應該在 Caption 中加入（A）。

A、&A B、@A C、$A D、#A--------------------------------------------------------------------------------------

19、要使 Shape 控件以實心方式填充，應設置（B）屬性。

A、FillColor B、FillStyle C、ForeColor D、BackStyle--------------------------------------------------------------------------------------

20、在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程：

Private Sub Command1_Click()

Dim i As Integer,n As Integer

For i=0 To 50

i=i+3

n=n+1

If i>10 Then Exit For

Next

Text1.Text=Str(n)End Sub 程序運行后，單擊命令按鈕，在文本框中顯示的值是（C）。

A、2 B、3 C、4 D、5 1、下面（A）是合法的變量名。

A、X_YZ B、123ABC C、integer D、X-Y--------------------------------------------------------------------------------------

2、控件在窗體上的上下位置由下列（A）屬性決定。

A、Top B、Left C、Width D、Height

--------------------------------------------------------------------------------------

3、要刪除 Picturebox 中的圖片應當使用（B）。

A、選中控件，按鍵 B、picture1.picture=loadpicture(“”)語句 C、picture1.cls 方法 D、picture1.enabled=false 語句--------------------------------------------------------------------------------------

4、已知 A$=”12345678” 則表達式 Val(Left$(A$,4)+Mid(A$,4,2))的值為（B）。

A、123456 B、123445 C、8 D、6--------------------------------------------------------------------------------------

5、通用對話框控件所不具有的屬性為（A）。

A、BackColor B、FileName C、Flags D、Filter--------------------------------------------------------------------------------------

6、在下面程序運行時鍵入 2，則該程序的運行結果是（C）。

Private sub command1_click()X=inputbox(“請輸入一個整數”)Select case x

Case Is<-3

Print(x+1)/(x+3)

Case –3 To 3

Print x*x+1

Case Is>3

Print(x+1)/(x-3)End select End sub

A、2 B、0.6 C、5 D、-3--------------------------------------------------------------------------------------

7、在程序中執行 Close 命令，其作用是（D）。

A、關閉當前正在使用的一個文件

B、關閉第一個打開的文件 C、關閉最近一次打開的文件 D、關閉所有文件--------------------------------------------------------------------------------------

8、在任何情況下，（D）控件在運行時都不可見。

A、標簽 B、按鈕 C、復選框 D、定時器--------------------------------------------------------------------------------------

9、在參數傳遞過程中，使用關鍵字（A）來修飾參數，可以使之按值傳遞。

A、ByVal B、ByRef C、Value D、Reference--------------------------------------------------------------------------------------

10、語句 Dim A(-3 to 5)As Integer 定義的數組的元素個數是（D）。

A、6 B、7 C、8 D、9--------------------------------------------------------------------------------------

11、滾動條的（B）屬性用于指定用戶單擊滾動條的滾動箭頭時，Value 屬性值的增減量。

A、LargeChange B、SmallChange C、Value D、Change--------------------------------------------------------------------------------------

12、當改變目錄列表框控件 Dir1 中的當前目錄時，希望同步改變文件列表框 File1 中顯示的文件，在 Dir1_change 事件過程中使用的命令是（A）。

A、File1.Path=Dir1.Path B、Dir1.Path =File1.Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path--------------------------------------------------------------------------------------

13、選中單選按鈕控件時，Value 屬性的值為（A）。

A、真 B、假

C、0 D、1--------------------------------------------------------------------------------------

14、以下說法中不正確的是（C）。

A、下拉式菜單通常出現在窗體標題欄下方，啟動應用程序后始終可以看見 B、彈出式菜單是一種浮動菜單，鼠標右擊某個對象時打開，可以快速展示當前對象可用的命令功能，也稱為快捷菜單 C、下拉式菜單通常用右鍵單擊選擇 D、下拉式菜單和彈出式菜單都可用“菜單編輯器”編輯--------------------------------------------------------------------------------------

15、下列（B ）對象具有編輯功能，即運行時可以進行輸入或修改。

A、下拉式列表框 B、下拉式組合框 C、復選框 D、標簽--------------------------------------------------------------------------------------

16、表達式 16/4-2^5*8/4 MOD 52 的值為（B）。

A、14 B、4 C、20 D、2--------------------------------------------------------------------------------------

17、要使文本框顯示滾動條，需先設置（B）屬性。

A、AutoSize B、MultiLine C、Alignment D、ScrollBars--------------------------------------------------------------------------------------

18、要為按鈕設計一個訪問鍵 A，應該在 Caption 中加入（A）。

A、&A B、@A C、$A D、#A--------------------------------------------------------------------------------------

19、要使 Shape 控件以實心方式填充，應設置（B）屬性。

A、FillColor B、FillStyle C、ForeColor

D、BackStyle--------------------------------------------------------------------------------------

20、若要處理一個值為 50000 的整數，應采用哪種 VB 基本數據類型描述更合適？（B）

A、Integer B、Long C、Single D、String--1、工程文件的擴展名為（C）。

A、.frx B、.bas C、.vbp D、.frm--------------------------------------------------------------------------------------

2、當改變目錄列表框控件 Dir1 中的當前目錄時，希望同步改變文件列表框 File1 中顯示的文件，在 Dir1_change 事件過程中使用的命令是（A）。

A、File1.Path=Dir1.Path B、Dir1.Path =File1.Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path--------------------------------------------------------------------------------------

3、在任何情況下，（D）控件在運行時都不可見。

A、標簽 B、按鈕 C、復選框 D、定時器--------------------------------------------------------------------------------------

4、下面（A）是合法的變量名。

A、X_YZ B、123ABC C、integer D、X-Y--------------------------------------------------------------------------------------

5、要使 Shape 控件以實心方式填充，應設置（B）屬性。

A、FillColor B、FillStyle C、ForeColor D、BackStyle--------------------------------------------------------------------------------------

6、下列程序段的執行結果為（A）。

X=2

Print X+1；X+1

A、3B、X+1

X+1 C、3D、2+1

2+1--------------------------------------------------------------------------------------

7、以下說法中不正確的是（C）。

A、下拉式菜單通常出現在窗體標題欄下方，啟動應用程序后始終可以看見 B、彈出式菜單是一種浮動菜單，鼠標右擊某個對象時打開，可以快速展示當前對象可用的命令功能，也稱為快捷菜單 C、下拉式菜單通常用右鍵單擊選擇 D、下拉式菜單和彈出式菜單都可用“菜單編輯器”編輯--------------------------------------------------------------------------------------

8、通用對話框控件所不具有的屬性為（A）。

A、BackColor B、FileName C、Flags D、Filter--------------------------------------------------------------------------------------

9、下列（B）對象具有編輯功能，即運行時可以進行輸入或修改。

A、下拉式列表框 B、下拉式組合框 C、復選框 D、標簽--------------------------------------------------------------------------------------

10、由“For i=1 To 16 Step 3”決定的循環結構被執行（C）次。

A、4 B、5 C、6 D、7--------------------------------------------------------------------------------------

11、在下面程序運行時鍵入 2，則該程序的運行結果是（C）。

Private sub command1_click()X=inputbox(“請輸入一個整數”)Select case x

Case Is<-3

Print(x+1)/(x+3)

Case –3 To 3

Print x*x+1

Case Is>3

Print(x+1)/(x-3)End select End sub

A、2 B、0.6 C、5 D、-3--------------------------------------------------------------------------------------

12、復選框的 Value 屬性為 1 時，表示（B）。

A、復選框未被選中 B、復選框被選中 C、復選框內有灰色的勾 D、復選框操作有誤--------------------------------------------------------------------------------------

13、要為按鈕設計一個訪問鍵 A，應該在 Caption 中加入（A）。

A、&A B、@A C、$A D、#A--------------------------------------------------------------------------------------

14、設置（A）屬性可以使圖片顯示在圖片框或影像框中。

A、Picture B、Image C、Icon D、DownPicture--------------------------------------------------------------------------------------

15、要使文本框顯示滾動條，需先設置（B）屬性。

A、AutoSize B、MultiLine C、Alignment D、ScrollBars--------------------------------------------------------------------------------------

16、Integer 類型的變量可存的最大整數是（D）。

A、255

B、256 C、32768 D、32767--------------------------------------------------------------------------------------

17、在參數傳遞過程中，使用關鍵字（A）來修飾參數，可以使之按值傳遞。

A、ByVal B、ByRef C、Value D、Reference--------------------------------------------------------------------------------------

18、語句 Dim A(-3 to 5)As Integer 定義的數組的元素個數是（D）。

A、6 B、7 C、8 D、9--------------------------------------------------------------------------------------

19、滾動條的（B）屬性用于指定用戶單擊滾動條的滾動箭頭時，Value 屬性值的增減量。

A、LargeChange B、SmallChange C、Value D、Change--------------------------------------------------------------------------------------

20、表達式 16/4-2^5*8/4 MOD 52 的值為（B）。

A、14 B、4 C、20 D、2----1、通用對話框控件所不具有的屬性為（A）。

A、BackColor B、FileName C、Flags D、Filter--------------------------------------------------------------------------------------

2、形狀控件所顯示的圖形不可能是（D）。

A、圓 B、橢圓 C、圓角正方形 D、等邊三角形--------------------------------------------------------------------------------------

3、要使文本框顯示滾動條，需先設置（B）屬性。

A、AutoSize B、MultiLine C、Alignment D、ScrollBars--------------------------------------------------------------------------------------

4、當改變目錄列表框控件 Dir1 中的當前目錄時，希望同步改變文件列表框 File1 中顯示的文件，在 Dir1_change 事件過程中使用的命令是（A）。

A、File1.Path=Dir1.Path B、Dir1.Path =File1.Path C、File1.Path = Dir1.Drive D、Dir1.Drive= File1.Path--------------------------------------------------------------------------------------

5、選中單選按鈕控件時，Value 屬性的值為（A）。

A、真 B、假 C、0 D、1--------------------------------------------------------------------------------------

6、控件在窗體上的上下位置由下列（A）屬性決定。

A、Top B、Left C、Width D、Height--------------------------------------------------------------------------------------

7、在任何情況下，（D）控件在運行時都不可見。

A、標簽 B、按鈕 C、復選框 D、定時器--------------------------------------------------------------------------------------

8、在參數傳遞過程中，使用關鍵字（A）來修飾參數，可以使之按值傳遞。

A、ByVal B、ByRef C、Value D、Reference--------------------------------------------------------------------------------------

9、表達式 Len(“123 程序設計 ABC”)的值為（A）。

A、10 B、14 C、20 D、17--------------------------------------------------------------------------------------

10、下面（A）是合法的變量名。

A、X_YZ B、123ABC C、integer D、X-Y--------------------------------------------------------------------------------------

11、窗體通用部分的語句“Option Base 1”，決定本窗體中數組下標界（B）。

A、下界必須為 1 B、缺省的下界為 1 C、下界必須為 0 D、缺省的下界為 0--------------------------------------------------------------------------------------

12、滾動條的（B）屬性用于指定用戶單擊滾動條的滾動箭頭時，Value 屬性值的增減量。

A、LargeChange B、SmallChange C、Value D、Change--------------------------------------------------------------------------------------

13、在下面程序運行時鍵入 2，則該程序的運行結果是（C）。

Private sub command1_click()X=inputbox(“請輸入一個整數”)Select case x

Case Is<-3

Print(x+1)/(x+3)

Case –3 To 3

Print x*x+1

Case Is>3

Print(x+1)/(x-3)End select End sub

A、2 B、0.6 C、5

D、-3--------------------------------------------------------------------------------------

14、下列（B）對象具有編輯功能，即運行時可以進行輸入或修改。

A、下拉式列表框 B、下拉式組合框 C、復選框 D、標簽--------------------------------------------------------------------------------------

15、在窗體上畫一個命令按鈕，然后編寫如下事件過程：

Private Sub Command1_Click()

Dim Str1 As String, Str2 As String

Str1=InputBox(“請輸入一個字符串”）

For i=1 To Len(Str1)

Str2=UCase(Mid(Str1,i,1))+Str2

Next i

Print Str2 End Sub 程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”

B A、abcdefg B、ABCDEFG C、gfedcba D、GFEDCBA--------------------------------------------------------------------------------------

16、以下說法中不正確的是（C）。

A、下拉式菜單通常出現在窗體標題欄下方，啟動應用程序后始終可以看見 B、彈出式菜單是一種浮動菜單，鼠標右擊某個對象時打開，可以快速展示當前對象可用的命令功能，也稱為快捷菜單 C、下拉式菜單通常用右鍵單擊選擇 D、下拉式菜單和彈出式菜單都可用“菜單編輯器”編輯--------------------------------------------------------------------------------------

17、下面語句正確的是（C）。

A、If x ≠ y Then Print “x 不等于 y” B、.If x <> y Print “x 不等于 y” C、If x <> y Then Print “x 不等于 y” D、If x ≠ y Print “x 不等于 y”--------------------------------------------------------------------------------------

18、已知 A$=”12345678” 則表達式 Val(Left$(A$,4)+Mid(A$,4,2))的值為（B）。

A、123456 B、123445

C、8 D、6--------------------------------------------------------------------------------------

19、要為按鈕設計一個訪問鍵 A，應該在 Caption 中加入（A）。

A、&A B、@A C、$A D、#A--------------------------------------------------------------------------------------

20、若要處理一個值為 50000 的整數，應采用哪種 VB 基本數據類型描述更合適？（B）

A、Integer B、Long C、Single D、String------------------------------------------------------------------------------------------------------------------------------------------------------------------------

把 在屬性列表框里，把 sorted 改為 ture Private Sub List1_Click()

List1.AddItem List1.Text End Sub

Dim t As Integer Private Sub Command1_Click()

Timer1.Enabled = True

Command1.Enabled = False

Frame1.Enabled = False

If Option1.Value = False Then

If Option2.Value = False Then

MsgBox “ 請選擇一個”

Else

Command1.Enabled = True

End If

Else

Command1.Enabled = True

End If End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Option1_Click()

t = 10 End Sub

Private Sub Option2_Click()

t = 30 End Sub

Private Sub Timer1_Timer()

t = t-1

If t >= 0 Then

Beep

Label1.Caption = t

Else

Label1.Caption = “ 時間到”

Frame1.Enabled = True

Timer1.Enabled = False

End If End Sub

Private Sub Form_Load()

HScroll1.Min = 10

HScroll1.Max = 72

Text1.Text = HScroll1.Value End Sub

Private Sub HScroll1_Change()

Label1.FontSize = HScroll1.Value

Text1.Text = HScroll1.Value End Sub

Private Sub HScroll1_Scroll()

HScroll1_Change End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Val(Text1.Text)> 10 And Val(Text1.Text)< 72 Then

Label1.FontSize = Text1.Text

Else

MsgBox “ 請選擇 10 到 到 72 的數字”

End If

End If End Sub

把 屬性列表框中，先把 multiline 設為 true Private Sub Command1_Click()

Text1.Enabled = True

Text1.SetFocus End Sub

Private Sub Command2_Click()

CommonDialog1.DefaultExt = “txt”

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1

Write #1, Text1.Text

Close #1 End Sub

Private Sub Command3_Click()

End End Sub

Private Sub Form_Load()

Text1.Enabled = False End Sub

Private Sub Command1_Click()

Label1.FontName = “ 宋體” End Sub

Private Sub Command2_Click()

Label1.FontName = “黑 黑體 體” End Sub

自己在相應的文件夾下放一張相應名字的圖片 Autosize 改為 false Private Sub Command1_Click()

Pic1.Picture = LoadPicture(“d: 我xph.jpg”)End Sub

Private Sub Command2_Click()

Pic1.Picture =(“")

End Sub

老師做過我就不寫了

Private Sub Command1_Click()Dim a(10)As Integer, max As Integer, p As Integer Dim i As Integer Randomize For i = 1 To 10

a(i)= Int(Rnd *(100-1 + 1))+ 1

Form1.Print a(i)Next i p = 1 max = a(1)For i = 2 To 10

If a(i)> max Then

max = a(i)

p = i

End If Next i Form1.Print ” 最大值：“ & max & ” 是第“ & p & ” 個“ End Sub

Private Sub color_Click()

CommonDialog1.ShowColor

Text1.ForeColor = CommonDialog1.color End Sub

Private Sub end_Click()

End End Sub

Private Sub font_Click()

CommonDialog1.Flags = 257

CommonDialog1.ShowFont

Text1.FontName = CommonDialog1.FontName

Text1.FontSize = CommonDialog1.FontSize

Text1.FontBold = CommonDialog1.FontBold

Text1.FontItalic = CommonDialog1.FontItalic End Sub

Private Sub save_Click()

CommonDialog1.DefaultExt = ”txt"

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1

Write #1, Text1.Text

Close #1 End Sub

第二篇：VB操作word總結

請耐心看完：問題出現得較復雜。

我的目的：

將多個文檔內容逐一拷貝粘貼到另一文檔后面

我的方法：

wordapp=new word.application

Set doc = wordapp.Documents.Add

while

pathTemp = App.Path & “temp.doc”

LoadFile rs(“word”), pathTemp

Set doctemp = wordapp.Documents.Open(pathTemp)

doctemp.Content.Select

wordapp.Selection.copy

Set myRange = doc.Range(Start:=doc.Content.End 缺少參數 3文件不存在 ' '*************************************************************** Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0)As Integer Attribute ReplacePic.VB_Description = “查找FindStr,并替換為PicFile所指向的圖片文件,替換次數由time參數確定,為0時，替換所有” '******************************************************************************** '

從Word.Range對象mysel中查找所有FindStr，并替換為PicFile圖像 ' 替換次數由time參數確定，為0時，替換所有

'******************************************************************************** If Len(C_PicFile)= 0 Then C_ErrMsg = 2 Exit Function End If Dim i As Integer Dim findtxt As Boolean mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = “".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True)If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True)Loop ReplacePic = i End Function Public Function FindThis(FindStr As String)As Boolean Attribute FindThis.VB_Description = ”查找FindStr,如果模板中有FindStr則返回True“ If Len(FindStr)= 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ”“.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.Execute End Function Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0)As Integer Attribute ReplaceChar.VB_Description = ”查找FindStr,并替換為RepStr,替換次數由time參數確定,為0時，替換所有“ '******************************************************************************** '

從Word.Range對象mysel中查找FindStr，并替換為RepStr ' 替換次數由time參數確定，為0時，替換所有

'******************************************************************************** Dim findtxt As Boolean If Len(FindStr)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With

If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne)If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End If End Function

Public Function GetPic(PicData()As Byte, FileName As String)As Boolean Attribute GetPic.VB_Description = ”把圖像數據PicData,存為PicFile指定的文件“ '******************************************************************************** '

把圖像數據PicData,存為PicFile指定的文件

'******************************************************************************** On Error Resume Next If Len(FileName)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If Open FileName For Binary As #1 If Err.Number <> 0 Then C_ErrMsg = 3 Exit Function End If '二進制文件用Get,Put存放，讀取數據 Put #1, , PicData Close #1 C_PicFile = FileName GetPic = True End Function

Public Sub DeleteToEnd()Attribute DeleteToEnd.VB_Description = ”刪除從當前位置到結尾的所有內容“ mysel.EndKey Unit:=wdStory, Extend:=wdExtend mysel.Delete Unit:=wdCharacter, Count:=1 End Sub Public Sub MoveEnd()Attribute MoveEnd.VB_Description = ”光標移動到文檔結尾“ '光標移動到文檔結尾 mysel.EndKey Unit:=wdStory End Sub Public Sub GotoLine(LineTime As Integer)mysel.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=LineTime, Name:=”“ End Sub Public Sub OpenDoc(view As Boolean)Attribute OpenDoc.VB_Description = ”打開Word文件,View確定是否顯示Word界面“ On Error Resume Next '******************************************************************************** '

打開Word文件，并給全局變量mysel賦值

'******************************************************************************** If Len(C_TemplateDoc)= 0 Then mywdapp.Documents.Add Else mywdapp.Documents.Open(C_TemplateDoc)End If If Err.Number <> 0 Then C_ErrMsg = 4 RaiseEvent HaveError Exit Sub End If

mywdapp.Visible = view mywdapp.Activate Set mysel = mywdapp.Application.Selection 'mysel.Select

End Sub Public Sub OpenWord()On Error Resume Next '******************************************************************************** '

打開Word程序，并給全局變量mywdapp賦值

'******************************************************************************** Set mywdapp = CreateObject(”word.application“)If Err.Number <> 0 Then C_ErrMsg = 1 RaiseEvent HaveError Exit Sub End If End Sub Public Sub ViewDoc()Attribute ViewDoc.VB_Description = ”顯示Word程序界面“ mywdapp.Visible = True End Sub Public Sub AddNewPage()Attribute AddNewPage.VB_Description = ”插入分頁符“ mysel.InsertBreak Type:=wdPageBreak End Sub Public Sub WordCut()Attribute WordCut.VB_Description = ”剪切模板所有內容到剪切板“ '保存模板頁面內容 mysel.WholeStory mysel.Cut mysel.HomeKey Unit:=wdStory End Sub Public Sub WordCopy()Attribute WordCopy.VB_Description = ”拷貝模板所有內容到剪切板“ mysel.WholeStory mysel.Copy mysel.HomeKey Unit:=wdStory End Sub Public Sub WordDel()mysel.WholeStory mysel.Delete mysel.HomeKey Unit:=wdStory End Sub Public Sub WordPaste()Attribute WordPaste.VB_Description = ”拷貝剪切板內容到當前位置“ '插入模塊內容 mysel.Paste End Sub Public Sub CloseDoc()Attribute CloseDoc.VB_Description = ”關閉Word文件模板“ '******************************************************************************** '

關閉Word文件模本 '******************************************************************************** On Error Resume Next

mywdapp.ActiveDocument.Close False If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub End If End Sub Public Sub QuitWord()'******************************************************************************** '

關閉Word程序

'******************************************************************************** On Error Resume Next mywdapp.Quit

If Err.Number <> 0 Then C_ErrMsg = 3 Exit Sub End If End Sub Public Sub SavetoDoc()Attribute SavetoDoc.VB_Description = ”保存當前文檔為FileName指定文件“ On Error Resume Next '并另存為文件FileName If Len(C_newDoc)= 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Sub End If mywdapp.ActiveDocument.SaveAs(C_newDoc)

If Err.Number <> 0 Then C_ErrMsg = 3 RaiseEvent HaveError Exit Sub End If End Sub

Public Property Get TemplateDoc()As String Attribute TemplateDoc.VB_Description = ”模板文件名.“ TemplateDoc = C_TemplateDoc End Property Public Property Let TemplateDoc(ByVal vNewValue As String)C_TemplateDoc = vNewValue End Property Public Property Get newdoc()As String Attribute newdoc.VB_Description = ”執行CloseDoc方法時，將模板文件另存為此文件名指定的新文件.如果不指定，在執行CloseDoc方法時，將產生一個錯誤“ newdoc = C_newDoc End Property Public Property Let newdoc(ByVal vNewValue As String)C_newDoc = vNewValue End Property Public Property Get PicFile()As String Attribute PicFile.VB_Description = ”圖像文件名“ PicFile = C_PicFile End Property Public Property Let PicFile(ByVal vNewValue As String)C_PicFile = vNewValue End Property Public Property Get ErrMsg()As Integer Attribute ErrMsg.VB_Description = ”錯誤信息.ErrMsg代碼: 1-word沒有安裝 2-缺少參數 3-沒權限寫文件 4-文件不存在“ ErrMsg = C_ErrMsg End Property 請問如何正確殺掉word進程？

樓主btl19792008（btl19792008）2005-11-04 17:05:03 在 VB / 數據庫(包含打印，安裝，報表)提問 我的word程序運行幾次，在資源管理器中就會出現很多word進程。

我的代碼寫的不對嗎？

代碼如下：

Dim appTemplate As Word.Application

Dim docTemplate As Word.Document

Set appTemplate = GetObject(, ”Word.Application“)

If Err.Number = 429 Then

Set appTemplate = New Word.Application

End If

Set docTemplate = Nothing

Set appTemplate = Nothing

問題點數：100、回復次數：9Top 樓bbhere（俺是二等小兵(baby,i'll be right here waiting for you)）回復于 2005-11-04 17:31:33 得分 0 markTop 樓province_（雍昊）回復于 2005-11-04 18:03:37 得分 0 要先QUIT再NOTHING。Top 樓faysky2（出來混，遲早是要還嘀）回復于 2005-11-04 19:21:30 得分 0

'引用Microsoft Word X.0 Object Library

Private Sub Command1_Click()

On Error GoTo connecterr

Dim wordApp As Object

Set wordApp = CreateObject(”word.application“)

wordApp.Visible = True

Dim myDoc As Object

Set myDoc = wordApp.Documents.Open(”c:Test.dot“)

wordApp.selection.TypeText(” Hello“)

myDoc.Close '關閉

wordApp.Quit

'退出

Set myDoc = Nothing

Set wordApp = Nothing

Exit Sub

connecterr:

End Sub

Top 樓faysky2（出來混，遲早是要還嘀）回復于 2005-11-04 19:24:16 得分 0 Dim appTemplate As Word.Application

Dim docTemplate As Word.Document

Set appTemplate = GetObject(, ”Word.Application“)

If Err.Number = 429 Then

Set appTemplate = New Word.Application

End If

'**************

docTemplate.Close

appTemplate.Quit

'**************

Set docTemplate = Nothing

Set appTemplate = NothingTop 樓rainstormmaster（暴風雨 v2.0）回復于 2005-11-06 11:01:27 得分 0 沒有office沒法測試，不過我想你可以參考一下這個：

http://blog.joycode.com/mvm/archive/2004/04/25/20208.aspxTop 6 樓ahlegend（愛之傳奇）回復于 2005-11-06 20:51:45 得分 0 QuitTop 樓szjhxu（天野）回復于 2005-11-06 22:01:48 得分 0 Dim appTemplate As Word.Application

Dim docTemplate As Word.Document

Set appTemplate = GetObject(, ”Word.Application")

If Err.Number = 429 Then

Set appTemplate = New Word.Application

End If

appTemplate.quit

Set docTemplate = Nothing

Set appTemplate = NothingTop 樓zhf_btj（鬧鬧）回復于 2005-11-15 21:54:47 得分 0 引用四樓

faysky2()

myDoc.Close '關閉

wordApp.Quit

'退出

Set myDoc = Nothing

Set wordApp = Nothing

這樣應該能退干凈了...我的就是..光用Close和Quit.沒用Nothing就老有多余的進程

偶爾試下加個Nothing就OK了~~~~Top 樓lfh103856111（）回復于 2005-11-16 12:46:09 得分 0 對,注意quit就行了

第三篇：vb綜合實驗

綜 合 性 實 驗

實 驗 名 稱:關閉標題包含指定字符的所有窗口 專 業 班 級: 學 生 姓 名：

學 號：

指 導 教 師：

需求分析：

關閉標題包含指定字符的所有窗口，使我們能更方便的關閉很多窗口，避免了一個一個關閉的麻煩 運行環境：

WINDOWS XP系統；VB6.0； 3開發工具和編程語言

Visual Basic6.0語言； 4 系統設置：

下例程序運行后，單擊按鈕關閉標題包含“記事本”的所有窗口

'在窗體上放置 3 個控件，所有控件無需設置任何屬性，全部采用默認設置： ' Command1，Label1，Text1

Private Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA”(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)As Long Private Declare Function PostMessage Lib “user32” Alias “PostMessageA”(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)As Long Private Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA”(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long)As Long Private Sub Form_Load()'設置控件初始狀態，實際可以在窗體設計階段完成 Dim S As Single

Me.Caption = “關閉指定窗口”: Text1.Text = “記事本” Label1.AutoSize = True: Label1.Caption = “窗口標題包含的字符：” Command1.Caption = “關閉指定窗口”

S = Label1.Height Label1.Move S, S Text1.Move S + Label1.Width, S * 0.5, S * 8, S * 2 Command1.Move S, S * 3, S * 8, S * 2 End Sub

Private Sub Command1_Click()Dim hWnds As Long, nCap As String, nFind As String Dim S As Long, S1 As Long, nLong()As Long, nCount As Long

S = 255: nFind = Text1.Text Do hWnds = FindWindowEx(0, hWnds, vbNullString, vbNullString)If hWnds = 0 Then Exit Do nCap = String(S + 1, “ ”)GetWindowText hWnds, nCap, S S1 = InStr(nCap, Chr(0))If S1 > 0 Then nCap = Left(nCap, S1-1)If InStr(nCap, nFind)> 0 Then ' PostMessage hWnds, &H10, 0, 0 '不在這里發送關閉消息，是為了防止漏查 nCount = nCount + 1 ReDim Preserve nLong(1 To nCount)nLong(nCount)= hWnds End If Loop

For S = 1 To nCount PostMessage nLong(S), &H10, 0, 0 '發送關閉窗口消息 DoEvents Next End Sub 5參考文獻：

龔培增，楊志強Visual Basic程序設計教程（

第四篇：VB操作wincc腳本心得

Vbs 操作wincc畫面腳本總結

一： 不使用變量單純的操作界面

1.操作某個畫面中控件的屬性 如 Home1.Pdl（總窗體）下的 畫面窗口2（畫面窗口）

Sub OnClick(ByVal Item)

Dim objCircle Dim screenname Dim pwname Set objCircle= ScreenItems(“圓1”)objCircle.Radius = 60

Set screenname=HMIRuntime.Screens(“Home1”)

//獲取要操作的窗體

Set pwname=screenname.ScreenItems(“畫面窗口2”)

//獲取要操作的控件，這里填入你要操作的控件名

MsgBox(objCircle.Radius)

//輸出圓的半徑

MsgBox(pwname.Picturename)

//輸出當前畫面窗口2的名字 End Sub

注意

當調用某窗體下的某控件的某個屬性時,需要聲明兩個對象，一個接納這個控件，一個接納值

例如

Dim object Dim value Set object =HMIRuntime.Screens(“Home1”).ScreenItems(“畫面窗口2”)Set value=object.picturename

2.更改畫面窗口的對象

Sub OnClick(Byval Item)

Dim opObject Set opObject=HMIRuntime.Screens(“Home1”).ScreenItems(“畫面窗口2”)opObject.PictureName=“Page1.Pdl” End Sub 3.設置文本

Set titleTxt=HMIRuntime.Screens(“Home1”).ScreenItems(“靜態文本2”)titleTxt.Text =titleTxt.Text+“EF” //獲取文本的值并追加字符

4.vb 字符串函數

VB的字符串截取函數有Left（字符串，n），返回字符串前N個字符；Mid（字符串，p，n），從第p個字符開始，向后截取N個字符；right（字符串，n），返回字符串的最后n個字符。

獲取下標

VB中的InStr()函數與InStrRev()函數：

都是在主字符串當中搜尋尋找子字符串，返回找到的子字符串在主字符串中出現的位置； 不同在于；

InStr()函數，從左開始向右尋找，InStrRev()函數，從右開始向左尋找。

截取 right 和left

獲取長度 Len 二：操作變量

1.Dim objTag Dim AText Set objTag = HMIRuntime.Tags(“a”)

//獲取變量 objTag.Read

//執行讀取

Set AText=ScreenItems(“靜態文本2”)//獲取控件 AText.Text=objTag.Value //給控件寫入值 objTag.Value =100 //給目標變量寫入值 objTag.Write

//執行寫入

2.vb 中 Switch 語句的變體

Dim objTag Dim AText Set objTag = HMIRuntime.Tags(“a”)

//獲取內部變量a的值

objTag.Read

//必須要有這一步，這是讀取操作，同理如果改寫值必須要有ogjTag.write Set AText=ScreenItems(“靜態文本2”)

Select Case objTag.Value Case 1 AText.Text=“a” Case 2 AText.Text=“b” Case Else AText.Text=objTag.Value End Select

三．彈出對話框

設置

buttons 參數可以有以下值：

常數 值 描述

vbOKOnly 0 只顯示確定按鈕。vbOKCancel 1 顯示確定和取消按鈕。

vbAbortRetryIgnore 2 顯示放棄、重試和忽略按鈕。vbYesNoCancel 3 顯示是、否和取消按鈕。vbYesNo 4 顯示是和否按鈕。

vbRetryCancel 5 顯示重試和取消按鈕。vbCritical 16 顯示臨界信息圖標。vbQuestion 32 顯示警告查詢圖標。vbExclamation 48 顯示警告消息圖標。vbInformation 64 顯示信息消息圖標。vbDefaultButton1 0 第一個按鈕為默認按鈕。vbDefaultButton2 256 第二個按鈕為默認按鈕。vbDefaultButton3 512 第三個按鈕為默認按鈕。vbDefaultButton4 768 第四個按鈕為默認按鈕。

vbApplicationModal 0 應用程序模式：用戶必須響應消息框才能繼續在當前應用程序中工作。

vbSystemModal 4096 系統模式：在用戶響應消息框前，所有應用程序都被掛起。

第一組值(0-5)用于描述對話框中顯示的按鈕類型與數目；第二組值(16, 32, 48, 64)用于描述圖標的樣式；第三組值(0, 256, 512)用于確定默認按鈕；而第四組值(0, 4096)則決定消息框的樣式。在將這些數字相加以生成 buttons 參數值時，只能從每組值中取用一個數字。返回值

MsgBox 函數有以下返回值：

常數 值 按鈕 vbOK 1 確定 vbCancel 2 取消 vbAbort 3 放棄 vbRetry 4 重試 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否

下面的例子演示了 MsgBox 函數的用法：

Dim MyVar

MyVar = MsgBox(“Hello World!”, 65, “MsgBox Example”)' MyVar contains either 1 or 2, depending on which button is clicked.你要求是有是和否兩個按鈕那么MyVar = MsgBox(“Hello World!”, 65, “MsgBox Example”)中的65改成4就可以了！

vbs腳本中：

if msgbox(“確實要啟動設備嗎？”，4，“警告”)=6 then

hmiruntime.tags(“tag1”).write 1

end if

第五篇：VB綜合實訓

VB換膚（GUI界面）

第一種方法：后綴為.she文件的皮膚

SkinSharp換膚庫不是COM組件，無需進行系統注冊，僅以標準dll方式存在。

1.打開vb6開發環境，新建一個工程文件，并存檔

2.將一個名為“膚色”的文件夾和一個名為SkinH_VB6.dll的文件拷貝到工程所在的目錄

3.外部函數接口api函數原型，把這原形放在通用聲明段

Private Declare Function SkinH_AttachEx Lib “SkinH_VB6.dll”(ByVal lpSkinFile As String, ByVal lpPasswd As String)As Long

4.若需要什么樣的皮膚（即.she文件）就在相應的事件（比喻在Form_Load()）中輸入下面的內容：

SkinH_AttachEx App.Path & “/皮膚/vista.she”, “ ”

app.path：系統字串常量，返回工程所在的路徑。

皮膚：是跟工程在同一目錄下的一個文件夾

vista.she：皮膚文件，可以把網上下載的.she文件放在同目錄下用時，只接按上四步驟即可。

第二種方法：ActiveSkin 4.3軟件的應用。可以自己更改皮膚

1.安裝ActiveSkin 4.3。同其它軟件安裝一樣。

2.漢化該軟件。直接運行setup.exe（漢化的安裝文件）。點下一步直至完成

3.新建一個VB工程文件，在工具箱灰白色地方右鍵單擊，選擇[部件]，在部件對話框中勾選ActiveSkin 4.3后單擊[應用][確定]

4.在出現的兩個控件中選擇拖入到窗體上。右鍵單擊，選擇[編輯皮膚]即可到ActiveSkin 4.3中編輯皮膚

5.Label控件必須使用該部件給的ab控件來替換。原本的A是不會顯示

6.選擇相應的事件(如Form_Load())。在該事件中輸入：

Skin1.ApplySkin Me.hWnd

7.如果要移植你的程序到別的機器上運行，請編譯打包。因為該皮膚需要系統其它文件來支持。所以你可以選擇VB-PowerWrap進行VB程序的封裝

VB與ACCESS2003數據庫連接相關步驟：

第一步：建立連接

1.引用相關組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 2.在通用聲明段申明：Dim mConn As ADODB.Connection 3.在對應的事件（如Form_Click()）中：set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection 4.設置其連接字串（與磁盤上的MDB文件建立連接）：

mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “RSData.mdb” 5.打開連接：mConn.Open 6.測試連接是否成功：if mConn.State=adStateOpen then msgbox “數據庫已經連接成功！” else msgbox “數據庫連接不成功！” 以上連接方法是在事件里完成，也可以把連接做一個過程，需要連接時直接帶參調用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調該函數。其相應代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失敗！”

End If End Sub

第二步：從數據庫中取出記錄，綁定到相對應的控件(Microsoft DataGrid Control 6.0(SP6)(OLEDB))中

1.在通用聲明段定義記錄對象：

Dim rs As New ADODB.Recordset 2.在相應的事件（如Form_Click()）中定義：

Set rs = New ADODB.Recordset Dim sql As String

sql = “select * from 部門表” rs.CursorLocation = adUseClient rs.Open sql, mConn, 1, 3

3.在窗體上從部件中找到Microsoft DataGrid Control 6.0(SP6)(OLEDB)并加載到工具箱上，然后產生一個實體對象，其名稱為DataGrid1 Set DataGrid1.DataSource = mRst.DataSource

注意：游標與鎖

0=adopenForwardonly:僅向前游標 — 除僅允許在記錄中向前滾動之外，其行為類似動態游標。這樣，當需要在 Recordset 中單程移動時就可提高性能。

1=adopenkeyset:鍵集游標 — 其行為類似動態游標，不同的只是禁止查看其他用戶添加的記錄，并禁止訪問其他用戶刪除的記錄，其他用戶所作的數據更改將依然可見。它始終支持書簽，因此允許 Recordset 中各種類型的移動。

2=adopenDynamic:動態游標 — 用于查看其他用戶所作的添加、更改和刪除，并用于不依賴書簽的 Recordset 中各種類型的移動。如果提供者支持，可使用書簽。3=adopenstatic:靜態游標 — 提供記錄集合的靜態副本以查找數據或生成報告。它始終支持書簽，因此允許 Recordset 中各種類型的移動。其他用戶所作的添加、更改或刪除將不可見。這是打開客戶端(ADOR)Recordset 對象時唯一允許使用的游標類型。

mRst.CursorLocation = adUseClient:使用由本地游標庫提供的客戶端游標

mRst.CursorLocation = adUseServer 默認值。使用數據提供者或驅動程序提供的游標。

1=adLockReadOnly 默認值，只讀。無法更改數據。

2=adLockPessimistic 保守式記錄鎖定（逐條）。提供者執行必要的操作確保成功編輯記錄，通常采用編輯時立即鎖定數據源的記錄的方式。

3=adLockOptimistic 開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調用 Update 方法時鎖定記錄。

4=adLockBatchOptimistic 開放式批更新。用于與立即更新模式相反的批更新模式。

第三步：向數據庫中寫數據（找一個相應的事件，如Command1_Click()）

Dim bmid As String,bmmc As String,sql As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset bmid = Text1.Text:bmmc = Text2.Text conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

On Error GoTo cancel: sql = “insert into 部門表(部門ID,部門名稱)values('” + bmid + “','” + bmmc + “')” rs.Open sql, conn

cancel:

If conn.Errors.Count = 0 Then

Else

MsgBox “寫數據有問題，主鍵重復”

End If 除了用SQL語句增加庫記錄以外，也可以用下面的方法來增加庫記錄

rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open “部門表”, conn, , , adCmdTable rs.AddNew rs.Fields(0)= bmid rs.Fields(1)= bmmc rs.Update 第四步：刪除數據庫中的一條記錄（找一個相應的事件，如Command2_Click()）

Private Sub command2_click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset

Dim bmid As String bmid = Trim(DataGrid1.Columns(0))conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “delete from 部門表 where 部門ID='” + bmid + “'” rst.Open sql, conn, 1, 3

sql = “select * from 部門表”

rst.CursorLocation = adUseClient

rst.Open sql, conn, 1, 3 if not rst.eof()then

rst.movenext end if

Set DataGrid1.DataSource = rst.DataSource set rst=nothing set conn=nothing End sub 第五步：更改數據庫中的信息（找一個相應的事件，如Command1_Click()）Private Sub Command1_Click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset Dim s As String

s = “實驗中心”

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “update 部門表 set 部門名稱='” + s + “' where 部門ID='001'” rst.Open sql, conn End Sub

第一步：建立連接

1.引用相關組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 Dim mConn As ADODB.Connection Private Sub Form_Click()set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “Police Information.mdb” mConn.Open if mConn.State=adStateOpen then msgbox “數據庫已經連接成功！” else msgbox “數據庫連接不成功！” End Sub 以上連接方法是在事件里完成，也可以把連接做一個過程，需要連接時直接帶參調用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調該函數。其相應代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失敗！”

End If End Sub