第一篇：vb第9章 文件
《Visual Basic程序设计》精品课程电子教案
第九章 文件
一、教学内容
在这章里要求掌握VB文件控件和文件的基本操作。
二、目的要求
1．熟悉文件处理语句和函数；
2．掌握顺序文件的打开、读、写、关闭操作； 3．掌握随机文件的打开、读、写、关闭操作； 4．掌握二进制文件的打开、读、写、关闭操作； 5.掌握文件系统控件的同步； 6.掌握通用对话框控件的使用。
三、教学重点与难点
教学重点：顺序文件、随机文件的基本操作；文件系统控件的同步。教学难点：顺序文件、随机文件、二进制文件的基本操作。
四、教学方法
多媒体教学为主。适当提问，加深学生对概念的理解。《Visual Basic程序设计》精品课程电子教案
第一讲（2学时）
一、教学内容
文件处理语句和函数、顺序文件和随机文件的基本操作。
二、目的要求
1．熟悉文件处理语句和函数。
2．掌握顺序文件的打开、读、写、关闭操作。3.掌握随机文件的打开、读、写、关闭操作
三、教学重点与难点
教学重点：顺序文件的读、写操作；随机文件的读、写操作。教学难点：顺序文件的读、写操作。
四、教学方法
多媒体教学。
五、教学过程
9.1 文件处理语句和函数 9.1.1 与文件系统相关的语句
见书上189－192页 9.1.2 与文件系统相关的函数
见书上192－194页 9.2 顺序文件 9.2.1 顺序文件的打开
Open语句的语法如下：
Open pathname For mode [Access access][lock] As [#] filenumber [Len=reclength] 书上195页 表9.3 顺序文件的3种打开模式 9.2.2 顺序文件的读操作 《Visual Basic程序设计》精品课程电子教案
Visual Basic提供读取文件内容的3种方法。1.Input #语句
语法格式为：
Input #filenumber，varlist 2.Line Input #语句
语法格式为：
Line Input #filenumber，varname 3.Input()函数
语法格式为：
Input(number，[# ]filenember)9.2.3 顺序文件的写操作 1.Write #语句
语法格式为：
Write #filenumber，[outputlist] 2.Print #语句
语法格式为：
Print #filenumber，[outputlist] 9.2.4 顺序文件的关闭
Close语法格式为： Close [filenumberlist] 【例9.1】 顺序文件的使用示例。
见书上199－201页
9.3 随机文件
顺序文件和随机文件的比较。《Visual Basic程序设计》精品课程电子教案
9.3.1 声明记录类型变量
Type/End Type语法格式为：
[Private|Public] Type 自定义类型名 元素名 As type [元素名 As type] „
End Type 9.3.2 打开随机文件
Open语句格式为：
Open pathname [For Random] As filenumber Len=reclength 9.3.3 随机文件的读操作
语法格式为：
Get [#] filenumber，[recnumber]，varname 9.3.4 随机文件的写操作
Put语句语法格式如下：
Put [#] filename，[recnumber]，varname 【例9.2】 往随机文件中添加记录 见书上203－204页
【例9.3】 将“Student97.dat”随机文件的第n条记录删除。见书上205－206页 9.3.5 随机文件的浏览操作
【例9.4】
用滚动条控件在随机文件中进行定位操作。见书上206－207页
六、小结 《Visual Basic程序设计》精品课程电子教案
在这一讲里，我们要掌握顺序文件的打开、读、写、关闭操作以及随机文件的打开、读、写、关闭操作。
七、作业
习题9.18，9.20.《Visual Basic程序设计》精品课程电子教案
第二讲（2学时）
一、教学内容
二进制文件、与文件系统相关的控件。
二、目的要求
1．掌握二进制文件的打开、读、写、关闭操作。
2．掌握驱动器列表框、目录列表框和文件列表框三者的同步。3.掌握通用对话框控件的使用。
三、教学重点与难点
教学重点：二进制文件的读、写操作；驱动器列表框、目录列表框和文件列表框三者的同步。
教学难点：驱动器列表框、目录列表框和文件列表框三者的同步。
四、教学方法
多媒体教学。
五、教学过程 9.4 二进制文件 1.二进制文件的打开
语法格式为：
Open pathname for Binary As filenumber 2.二进制文件的读写
Get [#]filenumber，[recnumber]，varname Put [#]filenumber，[recnumber]，varname 3.设置数据指针位置
Seek语句的语法格式如下： Seek [#]filenumber，position 《Visual Basic程序设计》精品课程电子教案
9.5 与文件系统相关的控件
9.5.1 驱动器列表框、目录列表框、文件列表框控件 1.驱动器列表框
驱动器列表框有一个Drive属性，在运行时返回或设置所选定的驱动器。Drive属性不 能在设计状态时设置，只能在程序中被引用或设置，其形式如下：
[对象.]Drive[=drive] 其中，对象：驱动器列表框名称。
每次重新设置Drive属性都会引发该控件的Change事件。2.目录列表框
Path属性用来返回或设置当前路径，不能在设计状态时设置。它适用于目录列表框和 文件列表框，其形式如下：
[对象.]Path[=pathname] 其中，对象：指目录列表框或文件列表框。pathname：一个路径名字符串。
每次重新设置Path属性都会引发该控件的Change事件。3.文件列表框
文件列表框也有Path属性，表示列表框中显示的文件所在的路径。每次重新设置Path属性都会引发PathChange事件。
文件列表框的Pattern属性用于返回或设置文件列表框所显示的文件类型。其形式如 下：
[对象.]Pattern[=value] 其中，对象：指文件列表框名称。value：一个文件名字符串。【例9.5】 文件系统控件的演示。《Visual Basic程序设计》精品课程电子教案
见书上211－212页 9.5.2 通用对话框控件
通用型对话框共有6种，它们是：Open（打开）、Save As（保存文件）、Print（打印）、Color（颜色）、Font（字体）、Help（帮助）。1．创建通用对话框控件（CommonDialog）2．调用通用对话框控件
调用方法如下所示：
调用打开对话框：CommonDialogX.ShowOpen 调用保存对话框：CommonDialogX.ShowSave 调用打印对话框：CommonDialogX.ShowPrinter 调用颜色对话框：CommonDialogX.ShowColor 调用字体对话框：CommonDialogX.ShowFont 调用帮助对话框：CommonDialogX.ShowHelp 3．设置通用对话框控件的属性
【例9.6】 设计“打开”、“保存”、“颜色”3种对话框
六、小结
在这一讲里，我们要掌握二进制文件的打开、读、写、关闭操作；驱动器列表框、目录列表框和文件列表框三者的同步；通用对话框控件的使用。
七、作业
9.21；9.22。
第二篇：VB遍历文件目录的实现方法总结
VB遍历文件目录的实现方法总结
2009-04-25 20:44VB遍历文件夹的实现方法总结一共三种，如下： 使用FSO对象模型
'=============================== '描述：需要Scripting类型库（Scrrun.dll）支持。实际使用时需要引用Microsoft Scripting Runtime '优点：测试当中没有错误。可以检测隐藏文件。
'示例：一个文本标签、一个ListBox、一个命令按钮。都取默认名称即可
'=============================== Dim fso As New FileSystemObject Dim fld As Folder
Private Sub Command1_Click()
Dim nDirs As Long, nFiles As Long, lSize As Currency
Dim sDir As String, sSrchString As String
sDir = InputBox(“Type the directory that you want to search for”, _
“FileSystemObjects example”, “C:”)
sSrchString = InputBox(“Type the file name that you want to search for”, _
“FileSystemObjects example”, “vb.ini”)
MousePointer = vbHourglass
Label1.Caption = “Searching ” & vbCrLf & UCase(sDir)& “...”
lSize = FindFile(sDir, sSrchString, nDirs, nFiles)
MousePointer = vbDefault
MsgBox Str(nFiles)& “ files found in” & Str(nDirs)& _
“ directories”, vbInformation
MsgBox “Total Size = ” & lSize & “ bytes” End Sub
Private Function FindFile(ByVal sFol As String, sFile As String, _
nDirs As Long, nFiles As Long)As Currency
Dim tFld As Folder, tFil As File, FileName As String
On Error GoTo Catch
Set fld = fso.GetFolder(sFol)
FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _
vbHidden Or vbSystem Or vbReadOnly)
While Len(FileName)<> 0
FindFile = FindFile + FileLen(fso.BuildPath(fld.Path, _
FileName))
nFiles = nFiles + 1
List1.AddItem fso.BuildPath(fld.Path, FileName)' Load ListBox
FileName = Dir()' Get next file
DoEvents
Wend
Label1 = “Searching ” & vbCrLf & fld.Path & “...”
nDirs = nDirs + 1
If fld.SubFolders.Count > 0 Then
For Each tFld In fld.SubFolders
DoEvents
FindFile = FindFile + FindFile(tFld.Path, sFile, nDirs, nFiles)
Next
End If
Exit Function Catch: FileName = “"
Resume Next End Function Api方法
'================================== '描述：使用Api。
'备注：使用过程中出现错误。未加分析。忽略错误即可。'
可查看隐藏文件。
'示例：2个listbox、2个命令按钮、6个文本框、一个模块
=================================== '模块代码
Option Explicit
Declare Function FindFirstFile Lib ”kernel32“ Alias _
”FindFirstFileA“(ByVal lpFileName As String, lpFindFileData _
As WIN32_FIND_DATA)As Long
Declare Function FindNextFile Lib ”kernel32“ Alias ”FindNextFileA“ _
(ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA)As Long
Declare Function GetFileAttributes Lib ”kernel32“ Alias _
”GetFileAttributesA“(ByVal lpFileName As String)As Long
Declare Function FindClose Lib ”kernel32“(ByVal hFindFile As Long)_
As Long
Declare Function FileTimeToLocalFileTime Lib ”kernel32“ _
(lpFileTime As FILETIME, lpLocalFileTime As FILETIME)As Long
Declare Function FileTimeToSystemTime Lib ”kernel32“ _
(lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME)As Long
Public Const MAX_PATH = 260
Public Const MAXDWORD = &HFFFF
Public Const INVALID_HANDLE_VALUE =-1
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
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
Public Function StripNulls(OriginalStr As String)As String
If(InStr(OriginalStr, Chr(0))> 0)Then
OriginalStr = Left(OriginalStr, _
InStr(OriginalStr, Chr(0))1
FindFilesAPI = FindFilesAPI + FindFilesAPI(path & dirNames(i)_
& ”“, SearchStr, FileCount, DirCount)
Next i
End If
End Function
Private Sub Command1_Click()
On Error Resume Next
Dim SearchPath As String, FindStr As String
Dim FileSize As Long
Dim NumFiles As Integer, NumDirs As Integer
Screen.MousePointer = vbHourglass
List1.Clear
SearchPath = Text1.Text
FindStr = Text2.Text
FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
Text3.Text = NumFiles & ” Files found in “ & NumDirs + 1 & _
” Directories“
Text4.Text = ”Size of files found under “ & SearchPath & ” = “ & _
Format(FileSize, ”#,###,###,##0“)& ” Bytes“
Screen.MousePointer = vbDefault
End Sub
Function FindFiles(path As String, SearchStr As String, _
FileCount As Integer, DirCount As Integer)
Dim FileName As String
' Walking filename variable.Dim DirName As String
' SubDirectory Name.Dim dirNames()As String ' Buffer for directory name entries.Dim nDir As Integer
' Number of directories in this path.Dim i As Integer
' For-loop counter.On Error GoTo sysFileERR
If Right(path, 1)<> ”“ Then path = path & ”“
' Search for subdirectories.nDir = 0
ReDim dirNames(nDir)
DirName = Dir(path, vbDirectory Or vbHidden Or vbArchive Or vbReadOnly _ Or vbSystem)' Even if hidden, and so on.Do While Len(DirName)> 0
' Ignore the current and encompassing directories.If(DirName <> ”.“)And(DirName <> ”..“)Then
' Check for directory with bitwise comparison.If GetAttr(path & DirName)And vbDirectory Then
dirNames(nDir)= DirName
DirCount = DirCount + 1
nDir = nDir + 1
ReDim Preserve dirNames(nDir)
'List2.AddItem path & DirName ' Uncomment to list
End If
' directories.sysFileERRCont:
End If
DirName = Dir()' Get next subdirectory.Loop
' Search through this directory and sum file sizes.FileName = Dir(path & SearchStr, vbNormal Or vbHidden Or vbSystem _
Or vbReadOnly Or vbArchive)
While Len(FileName)<> 0
FindFiles = FindFiles + FileLen(path & FileName)
FileCount = FileCount + 1
' Load List box
List2.AddItem path & FileName & vbTab & _
FileDateTime(path & FileName)
' Include Modified Date
FileName = Dir()' Get next file.Wend
' If there are sub-directories..If nDir > 0 Then
' Recursively walk into them
For i = 0 To nDir” & Err.Description, , _
“Unexpected Error”
Resume AbortFunction
End If
End Function
Private Sub Command2_Click()
On Error Resume Next
Dim SearchPath As String, FindStr As String
Dim FileSize As Long
Dim NumFiles As Integer, NumDirs As Integer
Screen.MousePointer = vbHourglass
List2.Clear
SearchPath = Text1.Text
FindStr = Text2.Text
FileSize = FindFiles(SearchPath, FindStr, NumFiles, NumDirs)
Text5.Text = NumFiles & “ Files found in ” & NumDirs + 1 & _
“ Directories”
Text6.Text = “Size of files found under ” & SearchPath & “ = ” & _
Format(FileSize, “#,###,###,##0”)& “ Bytes”
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Load()
Command1.Caption = “Use API code”
Command2.Caption = “Use VB code”
' start with some reasonable defaults
Text1.Text = “C:My Documents”
Text2.Text = “*.*”
End Sub 使用系统控件
'=================================== '描述：简单易于实现
'
不可查看隐藏文件
'示例：一个目录操作经典三联组合。一个命令按钮。
'===================================
Private Sub Command1_Click()List1.Clear sosuofile(Dir1.List(Dir1.ListIndex))MsgBox “搜索完毕！，共找到” + Str(List1.ListCount)+ “条记录。”, vbOKOnly + vbExclamation, “提示” End Sub
Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub Sub sosuofile(MyPath As String)Dim Myname As String Dim dir_i()As String Dim i, idir As Long If Right(MyPath, 1)<> “" Then MyPath = MyPath + ”“ Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)Do While Myname <> ”“ If Myname <> ”.“ And Myname <> ”.." Then If(GetAttr(MyPath & Myname)And vbDirectory)= vbDirectory Then '如果找到的是目录 idir = idir + 1 ReDim Preserve dir_i(idir)As String dir_i(idir1 Call sosuofile(MyPath + dir_i(i))Next i ReDim dir_i(0)As String End Sub
第三篇：vb错误处理
Vb错误处理 出错处理
（1）设置错误陷阱
On Error Resume Next
若出现错误，则将当前错误语句忽略，执行下条语句。
On Error GoTo 语句标号
On Error GoTo 0 不进行任何处理
（2）编写错误处理程序
Resume：接着错误的地方执行，重试。
Resume Next：类似On Error Resume Next，忽略当前错误语句，执行下一语句Resume <标号>：到标号那里去处理。
过程级、模块级
节选：
Onerrorgoto标签是放在错误发生之前，有效范围是到此事件的结束，包括错误处理时发生的错误。（此时的错误一般是没有想到的，故也没有处理）所以要保证不要在错误处理的代码中写复杂的代码。
OnErrorGotoErr_Normal
'一般代码
sql= “insertinto......”
OnErrorGotoErr_Roll
adocn.BeginTrans
adocn.Executesqladocn.CommitTrans
OnErrorGotoErr_Normal
....Exitsub
Err_Normal:
'正常错误处理
ExitSub
vb6.0 遇到错误能不退出吗
2012-1-25 20:04提问者： 咫·尺 | 浏览次数：278次
比如遇到数据溢出啊等，弹出错误以后，就直接把程序关闭了，数据都没保存，能弹出错误后，不关闭程序吗？
满意回答
插入以下代码：
On Error Resume Next
即可。意思是，程序遇到错误不理会，继续执行。
或者使用GoTo，比如下面的代码计算肯定是溢出的，但程序不会退出，不过会提示： On Error GoTo ToExit
Dim g, ErrNum As Boolean
g = 1
Do Until ErrNum
g = g * 1024
Loop
ToExit:
If Err.Number = 6 Then
Print “程序溢出，计算结果不准确”, g
Exit Sub
End If
或者使用以下代码，可以完全显示计算过程：
Dim WithEvents List As ListBox
Private Sub Form_Load()
On Error GoTo ToExit
Dim g, ErrNum As Boolean
g = 1
Set List = Me.Controls.Add(“VB.ListBox”, “List”)
With List
.Left = 0
.Top = 0
.Width = Form1.Width490
.Visible = True
End With
Do Until ErrNum
g = g * 1024
List.AddItem g
Loop
ToExit:
If Err.Number = 6 Then
List.AddItem “程序溢出，计算结果不准确” & g
Exit Sub
End If
End Sub
追问
是不是要在每一个容易出错的sub里面都要这样加一下？有没有整体设置一下或者写代码的？每个sub都写一下也挺麻烦的回答
首先，第一行是每个里边都需要有的，有了这一行，才会执行错误跳转。
比如上边的第二段代码也可以这样写：这样在每段容易出错的过程中，加上第一个的On Error GoTo ToExit和最后一行的ToExit: MsgBox “程序出现错误！” & Chr(10)& “错误类型：” & Error(Err.Number), 16即可。当然，你需要在Esub这个子过程中，把所有可能会涉及到的错误代码都添加上。如果只想知道哪里错了，也可以直接提醒，出错也是可以的Private Sub Form_Load()
On Error GoTo ToExit
Dim g, ErrNum As Boolean
g = 1
Do Until ErrNum
g = g * 1024
Loop
ToExit: MsgBox “程序出现错误！” & Chr(10)& “错误类型：” & Error(Err.Number), 16
End Sub
第四篇：VB心得
在这次VB课程设计过程中，我最大的收获就是有二，一是与其临渊羡鱼，不如退而结网，无论什么事情，一定要去做，困难在你的勇气和毅力下是抬不了头的。二是深刻地认识到，做事情一定要有耐心，无论遇到什么困难，都不能心烦，否则就很难把事情好。一开始，我以为三天就可以把课程设计搞好，谁知道我们搞了差不多一个星期。界面的设计倒是没什么问题，最有问题的就是编程了，编程是非常耗时和精力的。这一点我是深有体会的。有一次我的代码有点错误，但我看了一遍又一遍，还是找不出问题所在，最后发现就是少了一个空格，就是一个空格花了我整整一个上午。唉！难怪我经常听到说，编程实在是太麻烦了，看到头都大了，看到就心烦了。就是一个小小的问题就让你花去一个早上的时间。所以我们无论做任何事情都要细心和耐心。无论做什么事情，我认为最重要的是在做事过程中学到东西，吸取教训。
这是我第一次系统的、完整的接触到软件设计的全过程。在这次课程设计中我得到了锻炼，也有很多体会。以前仅仅是对软件开发有一个大体的印象，通过这次VB课程设计，我对软件的开发有了切身的体会。软件并不像我原来所想的那样神秘，而是有着一个相对固定的模式和流程。软件的制作是一个系统的工程，需要我们掌握多方面的知识。在此次设计中，觉得自己的知识有很大的欠缺，遇到了许多不懂的东西，无奈下去翻书才发现许多东西书上都有，只怪平常太少看书，听课又不够认真。以前学习计算机语言，总是静不下心来，不能认真的看书。这次的课程设计，为了顺利的完成编程任务，认真的细读了VB课本，有了一定的心得体会。所以在以后的学习中，自己一定要全身心投入，这样学习才会有效率，才会有效果。
第五篇：VB论文
学生姓名 ：曹超
班 级 ：1226001 学 号 ：201220600107 专 业 ：采矿工程
日期: 2014 年 12 月 18 日
学习VB的心得体会
这学期选修了VB这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的计算机2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心得体会。
一、Visual Basic 简介
Visual Basic 是Microsoft 公司开发的Windows 应用程序开发工具，Visual ——“可视化的”，是一种开发图形户界面(GUI)的方法，使得非计算机专业的人也可以开发出专业的Windows软件。Visual Basic继承了BASIC语言简单易学的优点，又增加了许多新的功能，它采用面向对象与事件驱动的程序设计思想，使编程变得更加方便、快捷，使用Visual Basic既可以开发个人或小组使用的小型工具，又可以开发多媒体软件，数据库应用程序，网络应用程序等大型软件，是国内外最流行的程序设计语言之一。英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中入了控件的概念，在Windows中控件的身影无处不在，如按钮、文本框等。VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法，能够响应用户操作(事件)。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了。这些在以前的编程语言下是要经过相当复杂的工作的。
可视化设计：Visual Basic为用户提供大量的界面元素(在Visual Basic中称为控件对象)，例如 “窗体”、“菜单”、“命令按钮”、“工具按钮”、“检查框”等等。用户只需要利用鼠标，键盘把这些控件对象拖动到适当的位置，设置它们的大小，形状，属性等，就可以设计出所需的应用程序界面。
事件驱动编程：Windows操作系统出现以来，图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的，在使用Visual Basic设计应用程序时，必须首先确定应用程序如何同用户进行交互。(例如发生鼠标单击，键盘输入等事件时，用户必须编写代码控制这些事件的响应方法)这就是所谓的事件驱动编程。
程序设计方法概述
1、初期的程序设计
高运行效率，少占用内存为目标
2、结构化程序设计
程序的可读性，可维护性为目标
程序=算法+数据结构+计算机语言+面向过程的程序设计方法
3、面向对象的程序设计(OOP)
降低程序的复杂性，提高软件的开法效率和改善工作界面为目标
程序=对象+消息+面向对象的程序设计
Visual Basic 特点
1、具有面向对象的可视化设计工具
2、事件驱动的编程机制
3、结构化的程序设计语言
4、提供了易学易用的应用程序集成开发环境
5、支持多种数据库系统的访问
6、高度可移植化的代码
7、VB6.0在开发环境上，网络功能等的大大增强。
二、对VB的理解
（1）VB不只是数据库和报表。不要以为VB就是数据库和报表，这只是VB强大功能的一小部份。如果这此都搞不清，还是好好的看一下相关的书籍，比在这里问问题有用多了。我以前没有学过数据库，只是有些编程的思路，后来学数据库就非常容易了。我做报表一般用RichTextBox或是From来做，一般都能做的很好，也不用去考虑什么水晶报表了。
（2）不要迷信于API。API能做很多东西，但有些东西在VB里面的函数中就有，API只是VB对WindowsSDK的封装而已。如果想学好API，建议学习SDK。如果VB本身就能很好的支持这个功能，何必还要用API呢。
（3）不要什么都想着控件。如果做程序都想着第三方控件的话，代价是很高的，不仅程序大，安全性也低了很多。其实VB本身带的控件已经完全够用了。
（4）认认真真的把MSDN中关于VB的内容好好看一看，特别是函数和语句，很有用的。
（5）遇到问题不要直接来这里问，自己好好想一想，试着解决这个问题，这虽然在时间上慢了，可是在自身的提高上却有很大的帮助。
（6）没事的时候，多研究些语言上的东西，如数据结构和算法，不要老是想着什么花哨的东西。这对以后的提高非常有帮助。如何学好VB程序设计
1、学习程序设计的基本要求
2、VB的功能及特点
3、学习VB程序设计的方法
对学习者知识的要求：
首先，学习程序设计要具备一定的数学基础，计算机与数学有很大的联系，综观计算机历史，计算机的数学模型(图灵机，由Alan Turing提出)和体系结构(由John Von Neuman提出)等都是由数学家提出的。因此，要学习好计算机就要有一定的数学基础，不过对于初学者来说，在数学基础方面的要求并不是很高，从我个人的角度来看，有高中数学水平就差不多了。
其次，学习程序设计要有一定的逻辑思维能力，逻辑思维需要长时间的锻炼，如果你觉得自己在逻辑思维能力上有不足，也没有关系，因为编写程序本身也是对逻辑思维的锻炼，初学程序设计应具备的逻辑基础可以从高中数学中学到。
学习程序设计基本要求：
熟悉Visual Basic操作环境与设计工具，能设计应用程序界面。掌握，理解面向对象程序设计基本概念。
掌握VB语言的基础知识，程序设计的方法。
能阅读一般难的程序；
能应用编写一些简单程序；
具有用Visual Basic开发Windows环境下应用程序的能力和阅读分析一般难度的VB程序的能力。
面向对象的程序设计具有如下的优点：
1、符合人们习惯的思维方法，便于分解大型的复杂多变的问题。由于对象对应于现实世界中的实体，因而可以很自然地按照现实世界中处理实体的方法来处理对象，软件开发者可以很方便地与问题提出者进行沟通和交流。
2、易于软件的维护和功能的增减，对象的封装性及对象之间的松散组合，都给软件的修改和维护带来了方便。
3、可重用性好。重复使用一个类(类是对象的定义，对象是类的实例化)，可以比较方便地构造出软件系统，加上继承的方式，极大地提高了软件开发的效率。
4、与可视化技术相结合，改善了工作界面。随着基于图形界面操作系统的流行，面向对象的程序设计方法也将深入人心，它与可视化技术相结合，使人机界面进入GUI时代。
三、学习VB程序设计的方法
(1)保持良好的学习心态
1、要有自信,自强,积极主动学习.2、克服畏难情绪,树立学好程序设计的信心(2)要有良好的学习习惯
1、课前预习,认真听课并适当做些笔记,课后要认真复习消化所学内容,完成作业.2、VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成.(3)学习程序设计要注重理解一些重要的概念.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在 程序入门阶段还是应该重视概念的学习.(4)自己动手编写程序
程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.(5)阅读,借签别人设计的好程序
多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西,帮助自己 提高自身水平.(6)VB程序设计学习的重点
1、程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的.2、只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容.等你在编写大量程序之后,我想过二级肯定没问题，不过能不能做到真知灼见,运用自如我就不敢说了.3、动手能力的培养是这门课和以往课程最大的不同之处.重点放在思路,算法,编程构思和程序实现上.语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用.(7)上机调试程序应注意的几点:
1、上机前应认真把实验题在用纸上做一做(包括窗体界面设计,事件代码的编写等)
2、每次上机后应总结,把没有搞清楚的问题记录下来,请教老师或同学.3、平时应多抽课余时间多上机调试程序.注意系统的提示信息,遇到问题多问几次为什么.(8)养成良好的编程习惯
1、程序构思要有说明;
2、学会如何调试程序;
3、对运行结果要做正确与否的分析.四、学习VB的意义
1、充实生活。业余时间到处游手好闲的身影不见了，没事我肯定一动不动的坐在电脑面前摆弄VB。是啊，想想以前，真是一无是处，不是打游戏，就是看小说。现在生活有了寄托，是VB给了我无穷的快乐，让我乐此不疲。
2、武装头脑。VB是一门计算机编程语言，也算是一项知识含量较高的东西吧。VB语言容易上手，采用的是可视化程序设计。通过学习VB，扩展了自己的视野，让自己的知识得到了增加。
3、锻炼意志。编程可不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至更长。越是这样越不要灰心，应该放松心态，一点一滴的去查。只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。
4、获得成就感。经过学习VB，我编写了一些小程序，例如计算器，贪吃蛇等。每当调试成功的时候，感到特别兴奋，成就感十足。
五、小结
通过选修课的学习，对了VB这种高级语言有了进一步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，同时我经常看同学设计好的程序代码，包括教材上的例题程序，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的VB课程让我收获了很多，使我对计算机2级考试有了信心。
点击咨询 