vb60編程實例

A. VB6.0編程

Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer, a As Variant, jg As Integer, bjg As Integer, pj As Single
Dim s As Integer
a = Array(85, 76, 49, 56, 94, 88, 67, 82, 78, 74)
For i = 0 To 9
s = s + a(i)
If a(i) >= 60 Then
jg = jg + 1
Else
bjg = bjg + 1
End If

Next
pj = s / 10

Print "jg:"; jg
Print "bjg:"; bjg
Print "pj:"; pj

End Sub

B. 求一個簡單vb編程實例~

控制項：image,picture,timer代碼：Dim x As Integer
Dim y As IntegerPrivate Sub Form_Load()
x = 100
y = 100
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
If img.Top >= pic.Height - img.Height Then
y = -100
End If
If img.Top <= 0 Then
y = 100
End If
If img.Left >= pic.Width - img.Width Then
x = -100
End If
If img.Left <= 0 Then
x = 100
End If
img.Top = img.Top + y
img.Left = img.Left + x
End Sub
以上代碼實現的是圖片框中的一個小球做的規律的運動，當小球碰到圖片框邊緣時便反彈繼續運動

C. vb編程實例

Static s As Integer s 是靜態變數，過程結束後，數據依然存在，且值保持原來不變
一開始s=0
m(1),走入Function,時，n=1 ,循環一次（加上一個1），s=1,m(1)=1
m(2),走入Function,時，s=1(值保持原來1不變),n=2 ,循環2次（加上2個1），s=3,m(2)=3
m(3),走入Function,時，s=3(值保持原來3不變),,n=3 ,循環3次（加上3個1），s=6,m(3)=6
m(1)+m(2)+m(3)=1+3+6=10

D. vb60編程中,如何用API函數中的createfile()創建一個文件

實例
'This project needs a Common Dialog box, named CDBox.
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Private Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function LocalFileTimeToFileTime Lib "kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long
Private Sub Form_Load()

Dim m_Date As Date, lngHandle As Long
Dim udtFileTime As FILETIME
Dim udtLocalTime As FILETIME
Dim udtSystemTime As SYSTEMTIME
m_Date = Format(Now, "DD-MM-YY")

'Set the dialog's title
CDBox.DialogTitle = "Choose a file ..."
'Set the dialog's filter
CDBox.Filter = "All Files (*.*)|*.*"
'Show the 'Open File'-dialog
CDBox.ShowOpen

udtSystemTime.wYear = Year(m_Date)
udtSystemTime.wMonth = Month(m_Date)
udtSystemTime.wDay = Day(m_Date)
udtSystemTime.wDayOfWeek = WeekDay(m_Date) - 1
udtSystemTime.wHour = Hour(m_Date)
udtSystemTime.wSecond = Second(m_Date)
udtSystemTime.wMilliseconds = 0

' convert system time to local time
SystemTimeToFileTime udtSystemTime, udtLocalTime
' convert local time to GMT
LocalFileTimeToFileTime udtLocalTime, udtFileTime
' open the file to get the filehandle
lngHandle = CreateFile(CDBox.Filename, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
' change date/time property of the file
SetFileTime lngHandle, udtFileTime, udtFileTime, udtFileTime
' close the handle
CloseHandle lngHandle
MsgBox "The date of the file '" + CDBox.Filename + "' has been changed to" + Str$(m_Date), vbInformation + vbOKOnly, App.Title
End Sub

附:

【VB聲明】
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

【別名】
CreateFileA

【說明】
這是一個全功能的常式，可打開和創建文件、管道、郵槽、通信服務、設備以及控制台

【返回值】
Long，如執行成功，則返迴文件句柄。INVALID_HANDLE_VALUE表示出錯，會設置GetLastError。即使函數成功，但若文件存在，且指定了CREATE_ALWAYS
或 OPEN_ALWAYS，GetLastError也會設為ERROR_ALREADY_EXISTS

【備注】
打開一個通信埠時（如COM1），無論如何都要設置成
OPEN_EXISTING
這個函數代替了lOpen 和 lCreate函數，應該是我們的首選

【參數表】
lpFileName ----- String，要打開的文件的名字

dwDesiredAccess - Long，如果為 GENERIC_READ
表示允許對設備進行讀訪問；如果為 GENERIC_WRITE
表示允許對設備進行寫訪問（可組合使用）；如果為零，表示只允許獲取與一個設備有關的信息

dwShareMode ---- Long，零表示不共享； FILE_SHARE_READ 和/或
FILE_SHARE_WRITE 表示允許對文件進行共享訪問

lpSecurityAttributes - SECURITY_ATTRIBUTES，指向一個SECURITY_ATTRIBUTES結構的指針，定義了文件的安全特性（如果操作系統支持的話）

dwCreationDisposition - Long，下述常數之一：
CREATE_NEW
創建文件；如文件存在則會出錯
CREATE_ALWAYS
創建文件，會改寫前一個文件
OPEN_EXISTING
文件必須已經存在。由設備提出要求
OPEN_ALWAYS
如文件不存在則創建它
TRUNCATE_EXISTING
講現有文件縮短為零長度

dwFlagsAndAttributes - Long，一個或多個下述常數
FILE_ATTRIBUTE_ARCHIVE
標記歸檔屬性
FILE_ATTRIBUTE_COMPRESSED
將文件標記為已壓縮，或者標記為文件在目錄中的默認壓縮方式
FILE_ATTRIBUTE_NORMAL
默認屬性
FILE_ATTRIBUTE_HIDDEN
隱藏文件或目錄
FILE_ATTRIBUTE_READONLY
文件為只讀
FILE_ATTRIBUTE_SYSTEM
文件為系統文件
FILE_FLAG_WRITE_THROUGH
操作系統不得推遲對文件的寫操作
FILE_FLAG_OVERLAPPED
允許對文件進行重疊操作
FILE_FLAG_NO_BUFFERING
禁止對文件進行緩沖處理。文件只能寫入磁碟卷的扇區塊
FILE_FLAG_RANDOM_ACCESS
針對隨機訪問對文件緩沖進行優化
FILE_FLAG_SEQUENTIAL_SCAN
針對連續訪問對文件緩沖進行優化
FILE_FLAG_DELETE_ON_CLOSE
關閉了上一次打開的句柄後，將文件刪除。特別適合臨時文件
也可在Windows NT下組合使用下述常數標記：
SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION，
SECURITY_IMPERSONATION， SECURITY_DELEGATION， SECURITY_CONTEXT_TRACKING，
SECURITY_EFFECTIVE_ONLY

hTemplateFile -- Long，如果不為零，則指定一個文件句柄。新文件將從這個文件中復制擴展屬性

E. vb6.0編程實例 最好是繪圖的

最簡單的畫圖代碼，滑鼠按下就畫圖：
Dim i As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not i Then
Me.CurrentX = X
Me.CurrentY = Y
Else
Me.Line -(X, Y)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = False
End Sub

F. vb60編程

用Dir 函數,就可以搞定.

Dir 函數

返回一個 String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁碟卷標相匹配。

語法

Dir[(pathname[, attributes])]

Dir 函數的語法具有以下幾個部分：

部分 描述
pathname 可選參數。用來指定文件名的字元串表達式，可能包含目錄或文件夾、以及驅動器。如果沒有找到 pathname，則會返回零長度字元串 ("")。
attributes 可選參數。常數或數值表達式，其總和用來指定文件屬性。如果省略，則會返回匹配 pathname 但不包含屬性的文件。

設置值

attributes 參數的設置可為：

常數 值 描述
vbNormal 0 (預設) 指定沒有屬性的文件。
vbReadOnly 1 指定無屬性的只讀文件
vbHidden 2 指定無屬性的隱藏文件
VbSystem 4 指定無屬性的系統文件 在Macintosh中不可用。
vbVolume 8 指定卷標文件；如果指定了其它屬性，則忽略vbVolume 在Macintosh中不可用。
vbDirectory 16 指定無屬性文件及其路徑和文件夾。
vbAlias 64 指定的文件名是別名，只在Macintosh上可用。

注意 這些常數是由 VBA 所指定的，在程序代碼中的任何位置，可以使用這些常數來替換真正的數值。

說明

在 Microsoft Windows 中， Dir 支持多字元 (*) 和單字元 (?) 的通配符來指定多重文件。

在 Macintosh 中，這些字元作為合法文件名字元並且不能作為通配符來指定多個文件

由於 Macintosh 不支持通配符，使用文件類型指定文件組。可以使用 MacID 函數指定文件類型而不用文件名。比如，下列語句返回當前文件夾中第一個TEXT文件的名稱:

Dir("SomePath", MacID("TEXT"))

為選中文件夾中所有文件，指定一空串:

Dir("")

在 Microsoft Windows 中，如果在Dir函數中使用MacID函數，將產生錯誤。

任何大於256的attribute值都被認為是MacID 函數的值。

在第一次調用 Dir 函數時，必須指定 pathname，否則會產生錯誤。如果也指定了文件屬性，那麼就必須包括 pathname。

Dir 會返回匹配 pathname 的第一個文件名。若想得到其它匹配 pathname 的文件名，再一次調用 Dir，且不要使用參數。如果已沒有合乎條件的文件，則 Dir 會返回一個零長度字元串 ("")。一旦返回值為零長度字元串，並要再次調用 Dir 時，就必須指定 pathname，否則會產生錯誤。不必訪問到所有匹配當前 pathname 的文件名，就可以改變到一個新的 pathname 上。但是，不能以遞歸方式來調用 Dir 函數。以 vbDirectory 屬性來調用 Dir 不能連續地返回子目錄。

提示 由於文件名並不會以特別的次序來返回，所以可以將文件名存儲在一個數組中，然後再對這個數組排序。

Dir 函數示例
本示例使用 Dir 函數來檢查某些文件或目錄是否存在。在 Macintosh 計算機上，默認驅動器名稱是 「HD」 ，並且路徑部分由冒號取代反斜線隔開。而且 Microsoft Windows 的通配符在 Mac 中可以作為有效字元出現在文件名中。也可以使用 MacID 函數來指定文件組。

Dim MyFile, MyPath, MyName

' 返回「WIN.INI」(在 Microsoft Windows 中) （如果該文件存在）。
MyFile = Dir("C:\WINDOWS\WIN.ini")

' 返回帶指定擴展名的文件名。如果超過一個 *.ini 文件存在，
' 函數將返回按條件第一個找到的文件名。
MyFile = Dir("C:\WINDOWS\*.ini")

' 若第二次調用 Dir 函數，但不帶任何參數，則函數將返回同一目錄下的下一個 *.ini 文件。
MyFile = Dir

' 返回找到的第一個隱式 *.TXT 文件。
MyFile = Dir("*.TXT", vbHidden)

' 顯示 C:\ 目錄下的名稱。
MyPath = "c:\" ' 指定路徑。
MyName = Dir(MyPath, vbDirectory) ' 找尋第一項。
Do While MyName <> "" ' 開始循環。
' 跳過當前的目錄及上層目錄。
If MyName <> "." And MyName <> ".." Then
' 使用位比較來確定 MyName 代表一目錄。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 如果它是一個目錄，將其名稱顯示出來。
End If
End If
MyName = Dir ' 查找下一個目錄。
Loop

G. VB6.0簡單實例！！ 高分！！求大神解答！！求代碼！！跪求！！

第一題：

Dim x As Long, y As Long

Private Sub Command1_Click()

Timer1.Interval = 300

End Sub

Private Sub Command2_Click()

Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

x = x + 100

y = y + 100

Label1.Left = x

Label1.Top = y

If Label1.Top > Form1.Height Or Label1.Left > Form1.Width Then

x = 0

y = 0

Label1.Left = x

Label1.Top = y

End If

End Sub

H. 有誰能告訴我學習VB編程的大體學習步驟

http://www.enet.com.cn/eschool/video/vb2/
看完這個過二級考試不是問題 別看他視頻多 其實視頻很短

教程簡介

本教程為eNet原創
這套全國計算機等級考試二級Visual
Basic程序設計視頻教程,緊扣教育部考試中心二級Visual Basic考試大綱，掌握本套視頻教程，可以使考生順利通過國家二級Visual
Basic考試。點擊這里進入VB相關視頻教程

第一章 Visual Basic
基礎環境

1 VB的特點
2 VB的版本
3 VB啟動與退出
4 VB的主窗口

5 VB的其它窗口

第二章 對象及窗體

1 對象屬性
2 對象事件和方法
3 窗體-背景顏色
4 窗體-邊框類型

5 窗體-標題/控制/激活
6 窗體-高度
7 窗體-名稱
8 窗體-圖形

9 窗體-頂邊距 可見性
10 窗體- 顯示狀態
11 窗體-事件
12 工具箱

13 控制項的基本操作
14 VB中的語句
15 編寫小程序(1)
16 編寫小程序(2)

17 編寫小程序(3)
18 編寫小程序(4)
19
程序的保存和生成

第三章 程序設計基礎

1 基本數據類型(1)
2 基本數據類型(2)
3 基本數據類型(3)
4 常量和變數(1)

5 常量和變數(2)
6 常量和變數(3)
7 常量和變數(4)
8 常量和變數(5)

9 常量和變數(6)
10 局部變數與全局變數
11 默認聲明變數
12 轉換函數(1)

13 轉換函數(2)
14 轉換函數(3)
15 數學函數(4)
16 日期時間隨機數函數

17 字元串函數(1)
18 字元串函數(2)
19 字元串函數(3)
20 字元串函數(4)

21 字元串函數(5)
22 運算符與表達式(1)
23 運算符與表達式(2)
24 運算符與表達式(3)

25 運算符與表達式(4)
26 運算符與表達式(5)
27 運算符與表達式(6)

第四章 數據輸出

1 Print方法函數(1)
2 Print方法函數(2)
3 Print方法函數(3)
4 Print方法函數(4)

5 Print方法函數(5)
6 Print方法函數(6)
7 Print方法函數(7)
8 Print方法函數(8)

9 格式輸出(1)
10 格式輸出(2)
11 格式輸出(3)
12 格式輸出(4)

13 格式輸出(5)
14 其他方法和屬性(1)
15 其他方法和屬性(2)
16 其他方法和屬性(3)

17 其他方法和屬性(4)
18 其他方法和屬性(5)
19 其他方法和屬性(6)
20 其他方法和屬性(7)

21 其他方法和屬性(8)
22 其他方法和屬性(9)
23 其他方法和屬性(10)
24 其他方法和屬性(11)

25 其他方法和屬性(12)

第五章 數據輸入

1 InputBox函數(1)
2 InputBox函數(2)
3 InputBox函數(3)
4 InputBox函數(4)

5 InputBox函數(5)
6 InputBox函數(6)
7 InputBox函數(7)
8 InputBox函數(8)

9 MsgBox語句(1)
10 MsgBox語句(2)
11 MsgBox語句(3)
12 MsgBox語句(4)

13 MsgBox語句(5)
14 MsgBox語句(6)
15 MsgBox語句(7)
16 MsgBox語句(8)

17 MsgBox語句(10)
18 MsgBox語句(11)
19 MsgBox語句(12)
20 MsgBox語句(13)

21 MsgBox語句(14)
22 MsgBox語句(15)
23 MsgBox語句(16)
24 MsgBox語句(17)

25 字形(1)
26 字形(2)
27 字形(3)
28 字形(4)

第六章標准控制項

文本控制項

1 標簽(1)
2 標簽(2)
3 標簽(3)
4 標簽(4)

5 文本框(1)
6 文本框(2)
7 文本框(3)
8 文本框(4)

9 文本框(5)
10 文本框(6)
11 文本框(7)
12 文本框(8)

13 文本框(9)
14 文本框(10)
15 文本框(11)
16 文本框(12)

17 文本框(13)
18 文本框(14)

圖形控制項

19 圖片框和圖像框(1)
20 圖片框和圖像框(2)
21 圖片框和圖像框(3)
22 圖片框和圖像框(4)

23 圖片框和圖像框(5)
24 圖片框和圖像框(6)
25 圖片框和圖像框(7)
26 圖片框和圖像框(8)

27 圖片框和圖像框(9)
28圖片框和圖像框(10)
29圖片框和圖像框(11)
30圖片框和圖像框(12)

31圖片框和圖像框(13)
32圖片框和圖像框(14)
33 直線和形狀(1)
34 直線和形狀(2)

按鈕控制項

35 命令按扭(1)
36 命令按扭(2)
37 命令按扭(3)
38 命令按扭(4)

39 命令按扭(5)
40 復選框和單選按鈕1
41 復選框和單選按鈕2
42 復選框和單選按鈕3

43 復選框和單選按鈕4
44 復選框和單選按鈕5
45 復選框和單選按鈕6
46 復選框和單選按鈕7

47 復選框和單選按鈕8
48 列表框和組合框(1)
49 列表框和組合框(2)
50 列表框和組合框(3)

51 列表框和組合框(4)
52 列表框和組合框(5)
53 列表框和組合框(6)
54 列表框和組合框(7)

55 列表框和組合框(8)
56 列表框和組合框(9)
57 列表框和組合框(10)
58 列表框和組合框(11)

59 列表框和組合框(12)
60 其它控制項-滾動條(1)
61 其它控制項-滾動條(2)
62 其它控制項-滾動條(3)

63 其它控制項-滾動條(4)
64 其它控制項-計時器(1)
65 其它控制項-計時器(2)
66 其它控制項-計時器(3)

67 其它控制項-框架(1)
68 其它控制項-框架(2)
69 其它控制項-框架(3)
70 焦點與Tab順序(1)

71 焦點與Tab順序(2)
72 焦點與Tab順序(3)
73 焦點與Tab順序(4)
74
焦點與Tab順序(5)

第七章 控制結構

1 選擇控制結構(1)
2 選擇控制結構(2)
3 選擇控制結構(3)
4 選擇控制結構(4)

5 選擇控制結構(5)
6 選擇控制結構(6)
7 選擇控制結構(7)
8 選擇控制結構(8)

9 選擇控制結構(9)
10 選擇控制結構(10)
11 選擇控制結構(11)
12 選擇控制結構(12)

13 選擇控制結構(13)
14 選擇控制結構(14)
15 選擇控制結構(15)
16 多分支控制結構(1)

17 多分支控制結構(2)
18 多分支控制結構(3)
19 for循環控制結構1
20 for循環控制結構2

21 for循環控制結構3
22 for循環控制結構4
23 for循環控制結構5
24 for循環控制結構6

25 for循環控制結構7
26 for循環控制結構8
27 for循環控制結構9
28 for循環控制結構10

29 for循環控制結構11
30 for循環控制結構12
31 當循環控制結構(1)
32 當循環控制結構(2)

33 當循環控制結構(3)
34 當循環控制結構(4)
35 do循環控制結構(1)
36 do循環控制結構(2)

37 do循環控制結構(3)
38 多重循環(1)
39 多重循環(2)
40 出口語句(1)

41 出口語句(2)

第八章 數組

1 數組的概念(1)
2 數組的概念(2)
3 數組的概念(3)
4 數組的概念(4)

5 默認數組
6 靜態數組與動態數組1
7 靜態數組與動態數組2
8 靜態數組與動態數組3

9 靜態數組與動態數組4
10 數組的基本操作(1)
11 數組的基本操作(2)
12 數組的基本操作(3)

13 數組的基本操作(4)
14 數組的基本操作(5)
15 數組的初始化(1)
16 數組的初始化(2)

17 數組的初始化(3)
18 控制項數組(1)
19 控制項數組(2)
20 控制項數組(3)

21 控制項數組(4)

第九章 過程

1 Sub過程(1)
2 Sub過程(2)
3 Sub過程(3)
4 Sub過程(4)

5 Sub過程(5)
6 Sub過程(6)
7 Sub過程(7)
8 Sub過程(8)

9 Sub過程(9)
10 Function過程(1)
11 Function過程(2)
12 參數傳送(1)

13 參數傳送(2)
14 參數傳送(3)
15 參數傳送(4)
16 參數傳送(5)

17 可選參數與可變參數(1)
18 可選參數與可變參數(2)
19 對象參數(1)
20 對象參數(2)

21 對象參數(3)
22 對象參數(4)
23 對象參數(5)
24 局部內存分配(1)

25 局部內存分配(2)
26 局部內存分配(3)
27 Shell函數(1)
28 Shell函數(2)

29 Shell函數(3)
30 Shell函數(4)

第十章 菜單程序設計

1 菜單編輯器(1)
2 菜單編輯器(2)
3 菜單編輯器(3)
4 菜單項的控制(1)

5 菜單項的控制(2)
6 菜單項的控制(3)
7 菜單項的控制(4)
8 菜單項的控制(5)

9 菜單項的控制(6)
10 彈出式菜單(1)
11 彈出式菜單(2)
12 彈出式菜單(3)

13 菜單項增減(1)
14 菜單項增減(2)
15 菜單項增減(3)
16 通用對話框(1)

17 通用對話框(2)
18 通用對話框(3)
19 文件對話框(1)
20 文件對話框(2)

21 文件對話框(3)
22 文件對話框(4)
23 文件對話框(5)
24 其他對話框(1)

25 其他對話框(2)
26 其他對話框(3)

第十一章 鍵盤與滑鼠事件過程

1 KeyPress事件(1)
2 KeyPress事件(2)
3 KeyPress事件(3)
4 KeyPress事件(4)

5 滑鼠事件(1)
6 滑鼠事件(2)
7 滑鼠事件(3)
8 滑鼠事件(4)

9 滑鼠事件(5)
10 滑鼠事件實例(1)
11 滑鼠事件實例(2)
12 滑鼠游標的形狀(1)

13 滑鼠游標的形狀(2)
14 滑鼠游標的形狀(3)
15 滑鼠游標的形狀(4)
16 拖放(1)

17 拖放(2)
18 拖放(3)
15 拖放(4)

第十二章 多重窗體程序設計與環境應用

1 建立多重窗體應用程序(1)
2 建立多重窗體應用程序(2)
3 建立多重窗體應用程序(3)
4 建立多重窗體應用程序(4)

5 多重窗體程序的執行與保存(1)
6 多重窗體程序的執行與保存(2)
7 多重窗體程序的執行與保存(3)
8 Visual Basic的工程結構(1)

9 Visual Basic的工程結構(2)
10 Visual Basic的工程結構件(3)
11 Visual Basic的工程結構(4)
12 Visual Basic的工程結構(5)

13 閑置循環與DoEvents語句(1)
14 閑置循環與DoEvents語句(2)
15 閑置循環與DoEvents語句(3)
16
閑置循環與DoEvents語句(4)

第十三章 數據文件

1 文件的結構與分類(1)
2 文件的結構與分類(2)
3 文件的打開與關閉(1)
4 文件的打開與關閉(2)

5 文件的打開與關閉(3)
6 順序文件(1)
7 順序文件(2)
8 順序文件(3)

9 順序文件(4)
10 順序文件(5)
11 順序文件(6)
12 順序文件(7)

13 順序文件(8)
14 順序文件(9)
15 順序文件(10)
16 順序文件(11)

17 順序文件(12)
18 順序文件(13)
19 順序文件(14)
20 順序文件(15)

21 順序文件(16)
22 順序文件(17)
23 順序文件(18)
24 隨機文件(1)

25 隨機文件(2)
26 隨機文件(3)
27 隨機文件(4)
28 隨機文件(5)

29 隨機文件(6)
30 文件系統控制項(1)
31 文件系統控制項(2)
32 文件系統控制項(3)

33 文件系統控制項(4)
34 文件系統控制項(5)
35 文件基本操作(1)
36 文件基本操作(2)

I. 求一個vb6.0+SQL資料庫操作實例

這個貌似我以前寫的一個系統初始化的程序

J. vb6.0如何使用SOAOffice控制項實例

Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1
在Frame1上畫一個按鈕

Add 方法（Controls 集合）示例
Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1
With Form1!cmdObj1
.Visible = True
.Width = 2000
.Caption = "Dynamic Button"
End With
End Sub

注意 上面的代碼例子使用 ! 作為一個語法要素。您也可以使用標准集合語法如 Form1.Controls("cmdObj1") 來引用該控制項。

第二個例子使用 WithEvents 關鍵字聲明一個 CommandButton 類型的對象變數，允許您編程該控制項的事件。對象變數被設置為由 Add 方法返回的引用。要試驗該例，把它的代碼粘貼到聲明部分並且運行該工程。

Option Explicit
Private WithEvents btnObj As CommandButton

Private Sub btnObj_Click()
MsgBox "This is a dynamically added button."
End Sub

Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub

第三個例子添加一個非引用控制項到 Controls 集合。然而要編程這樣一個控制項的事件，必須聲明一個 VBControlExtender 類型的對象變數，並把由這個方法返回的引用設置到該對象。然後使用 ObjectEvent 事件編程該控制項的事件。

Option Explicit
Dim ctlExtender As VBControlExtender

Private Sub Form_Load()
Set ctlExtender = Controls.Add("Project1.UserControl1", "MyControl")
With ctlExtender
.Visible = True
.Top = 1000
.Left = 1000
End With
End Sub

Private Sub extObj_ObjectEvent(Info As EventInfo)
'使用 Select Case 編程該控制項事件。
Select Case Info.Name
Case "UserName"
'檢查用戶名值。
MsgBox Info. EventParameters("UserName").Value
'現在顯示其他情況
Case Else '未知事件
'這里處理未知事件。
End Select
End Sub