来自「VB的文本资料,需要时有帮助」· 代码 · 共 510 行 · 第 1/3 页

:
Exit Sub

Error1:
If Err = 3049 Then 'MDB文件损坏
DBEngine.RepairDatabase "C:\test.mdb"
Resume
Else
MsgBox Err & Error(Err)
End If
End Sub 
远程数据库的访问 [返回] 
---- 远 程 数 据 对 象（RDO） 是 VB 5.0 中 基 于 ODBC API 的 对 象 模 型， 它 短 小、 快 捷、 强 健， 可 以 访 问 任 何 32 位 ODBC 数 据 源， 如 SQL Server 和 Oracle 数 据 库， 是 访 问 远 程 数 据 库 的 更 新 更 高 级 的 工 具。
---- 使 用 RDO 的 一 般 方 法 如 下。
---- 先 声 明 变 量：

Public con As rdoConnection, res As rdoResultset
---- 然 后 初 始 化 rdoEngine， 设 置 用 户 和 口 令 等 缺 省 参 数；
With rdoEngine
.rdoDefaultUser = "sa" '用户为 sa
.rdoDefaultPassword = "pass" '口令为 pass
.rdoDefaultCursorDriver = rdUseServer
.rdoDefaultLoginTimeout = 15
End With

---- 再 连 接 到 要 访 问 的 远 程 数 据 库（ 可 使 用 DSN Connection 和 DSN-Less Connection）。
---- 使 用 DSN Connection 举 例（ 连 接 服 务 器 SERVER 上 的 数 据 库 hotel）：
Set con = rdoEnvironments(0).OpenConnection
("hotel", rdDriverNoPrompt, False)

---- 使 用 DSN-Less Connection 举 例（ 连 接 服 务 器 SERVER 上 的 数 据 库 hotel）：
Set con = rdoEnvironments(0).OpenConnection ("", rdDriverNoPrompt, False, "driver={SQL Server};server=SERVER; database=hotel")

---- 建 立 连 接 后， 既 可 使 用 OpenResultset 方 法 执 行 查 询 并 处 理 结 果 集， 又 可 使 用 Execute 方 法 执 行 包 括 数 据 定 义 和 数 据 操 作 在 内 的 动 作 查 询。 例 如：
Set res = con.OpenResultset("SELECT * FROM menu", rdOpenStatic)
con.Execute "CREATE VIEW menu_view AS SELECT 代码,
菜名FROM menu", rdExecDirect

---- RDO 最 强 大 和 最 重 要 的 特 性 之 一 是： 它 可 以 查 询 和 处 理 由 存 储 过 程 返 回 的 结 果， 无 论 它 有 多 么 复 杂。
---- 除 RDO 外， 还 可 使 用 RDC 访 问 远 程 数 据 库。
---- 远 程 数 据 控 件（RDC） 与 数 据 控 件（DC） 类 似， 不 同 之 处 是 RDC 使 用 RDO 连 接 到 ODBC 驱 动 程 序 管 理 器， 而 DC 则 使 用 DAO 连 接 到 Jet 数 据 库 引 擎。 利 用 RDO 和 RDC， 无 需 使 用 Jet 引 擎 就 可 以 访 问 ODBC 数 据 源。 这 样， 在 访 问 远 程 数 据 库 时， 可 以 获 得 更 好 的 性 能 和 更 大 的 灵 活 性。
---- 远 程 数 据 控 件 MSRDC 使 用 举 例 如 下。

Connect: driver={SQL Server}; server=SERVER; database=hotel
DataSourceName:
SQL: SELECT * FROM menu
UserName: sa
Password: pass
CursorDriver: 3-rdUseClient

---- 可 以 使 用 RDC 执 行 许 多 简 单 的 远 程 数 据 访 问 操 作， 不 需 编 写 任 何 代 码， 只 要 填 写 有 关 项 就 可 以 了， 使 用 起 来 很 方 便。 但 应 注 意， 除 非 在 设 计 时 禁 止 并 只 在 需 要 时 启 动 RDC ， 否 则 它 至 少 将 消 耗 一 个 远 程 数 据 库 连 接。 在 远 程 数 据 库 连 接 资 源 有 限 或 要 求 很 高 效 的 情 况 下， 宜 慎 用、 少 用 RDC 。 这 种 情 况 下， 应 尽 可 能 考 虑 使 用 RDO ， 并 使 用 存 储 过 程（ 预 编 译 好 的 SQL 语 句）。
---- 最 后 还 应 注 意， 只 有 32 位 操 作 系 统（ 如 Windows NT 或 Windows 95）， 才 能 支 持 RDO 和RDC 。RDO 和 RDC 也 只 能 用 于 访 问 32 位 ODBC 数 据 源。 
创建位图菜单 [返回] 
在通常的程序中菜单总是以文本的方式存在，有时候显得非常单调乏味。如果能够在菜单中加入位图图形，将会极大地增加用户的使用兴趣。本文介绍了如何使用位图制作菜单选项。 

创建位图菜单
创建位图菜单其实非常简单，它需要用到Windows应用程序编程接口（API）的一些菜单函数和位图函数，你需要将这些函数的声明包含在你的应用程序的标准模块中，具体的内容请参见样例程序。步骤如下： 

使用函数GetSubMenu来提取子菜单项的句柄，并通过使用函数CreateCompatibleDC来创建一个兼容的设备环境描述表； 
在一个循环过程中通过使用CreateCompatibleBitmap函数，SelectObject函数以及BitBlt函数来分别将针对各个菜单项所载入的位图选入到兼容设备环境中； 

通过ModifyMenu函数绘制真正的位图菜单选项； 
使用DeleteDC函数来释放设备环境，以便其他的程序可以使用它们。 
提取位图可以有多种方法，在本样例程序中在窗体上设置了四个图形框控件，使用它们载入4个预设的图标来作为菜单选项位图的源文件，当然你也可以使用其他的方法，例如使用LoadPicture函数来从磁盘装载位图。 

样例程序
在Visual Basic中开始一个新的工程，采用缺省的方法建立Form1。 
创建一个新的模块，采用缺省的方法建立Module1.Bas。 
将如下的声明语句和常量添加到Module1.Bas模块中： 

Option Explicit
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long,ByVal nPos As Long) As Long
Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long,ByVal nPosition As Long, ByVal wFlags As Long,ByVal wIDNewItem As Long, ByVal lpString As Any) As Long

Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
Public Const MF_BYPOSITION = &H400&
Public Const MF_BITMAP = &H4&

注意上面的声明语句需要书写在一行内。 
在Form1上添加4个图形框控件，将它们的Name属性设置为Picture1，将它们的Index属性依次设置为0，1，2，3，将它们的AutoRedrew属性设置为True，将它们的AutoResize属性设置为Ture，以及将它们的Visable属性设置为False。 
将上面的4个图形框控件的Picture属性依次设置为Face1.ico，Face2.ico，Face3.ico，Face4.ico。 

在Form1上添加第一个菜单项，将它的标题设置为“[&F]文件”，名称设置为mnuFile。在其下添加一个子菜单项，将它的标题设置为“[&E]退出”，名称设置为mnuExit。 
在Form1上添加第二个菜单项，将它的标题设置为“[&A]脸谱”，名称设置为mnuFace。在其下添加4个子菜单项，分别将改4个子菜单项的名称设置为“[N]正常”，“[&S]微笑”，“ [&L]大笑”，以及“[&O]悲伤”。将它们的名称设置为“mnuFaceSel”，并相应将这4个子菜单项的索引设置为0，1，2，3。 

将如下的代码添加到Form1的Form_Load事件中： 
Private Sub Form_Load()
Dim nLoopCtr As Integer
Dim lResult As Long
Dim hTempDC As Long
Dim nWidth As Integer
Dim nHeight As Integer
Dim lTempID As Long
Dim hMenuID As Long
Dim lItemCount As Long
Dim hBitmap As Long

nWidth = Picture1(nLoopCtr).Width \ Screen.TwipsPerPixelX
nHeight = Picture1(nLoopCtr).Height \ Screen.TwipsPerPixelY
hMenuID = GetSubMenu(GetMenu((Me.hwnd)), 1)

hTempDC = CreateCompatibleDC(Picture1(nLoopCtr).hdc)
For nLoopCtr = 0 To 3
hBitmap = CreateCompatibleBitmap(Picture1(nLoopCtr).hdc, nWidth,nHeight)
lTempID = SelectObject(hTempDC, hBitmap)
lResult = BitBlt(hTempDC, 0, 0, nWidth, nHeight, (Picture1(nLoopCtr).
hdc), 0, 0, SRCCOPY)
lTempID = SelectObject(hTempDC, lTempID)
mnuFaceSel(nLoopCtr).Caption = ""
lResult = ModifyMenu(hMenuID, nLoopCtr, MF_BYPOSITION Or MF_BITMAP,
GetMenuItemID(hMenuID, nLoopCtr), hBitmap)
Next nLoopCtr

lResult = DeleteDC(hTempDC)
End Sub
将如下的代码添加到“退出”子菜单的单击事件中： 
Private Sub mnuExit_Click(Index As Integer)
Select Case Index
Case 0
Unload Me
End Select
End Sub

运行该样例程序，单击“脸谱”菜单，则会看到由4个脸谱图标所形成的位图子菜单项，如图1所示。单击“文件”\“退出”菜单可退出应用程序。  
使用Win95的动画光标 [返回] 
在Windows 95系统中具有一个Windows 3.x所不具备的特性――支持动画的光标文件。你可以在Windows 95目录中的Cursors子目录下看到这些动画的光标文件，它们均具有扩展名*.ANI。在程序中使用相应的动画光标能够极大地改善程序的外观，本文介绍了如何在你的Visual Basic应用程序中使用Windows 95所附带的动画光标文件。 

使用动画光标文件
要在Visual Basic的应用程序中使用Windows 95所附带的动画光标，你需要使用下列Windows 应用程序编程接口（API）函数： 

LoadCursorFormFile，用于从磁盘上载入光标文件； 
ClipeCursor，用于将光标限制在一个固定的矩形区域内； 
GetWindowRect，用于获取该矩形区域，在下面的样例程序中就是程序主窗体的本身； 
SetClassLong，用于设置和提取窗口类的数据，以使光标被显示在窗体上； 
GetClassLong函数，在退出应用程序之前，需要将应用程序的缺省光标设置回程序执行以前的光标，所以需要在程序运行时首先对以前的光标状态进行备份，这项工作由该函数来完成； 
DestroyCursor，在正确显示了光标之后，需要使用该函数来取消载入的光标。 

样例程序
下面的样例程序将在窗体区域内显示出C:\WIN95\CURSORS目录下的APPSTART.ANI动画光标文件，如果你的Windows 95路径不同的话，你需要修改样例程序以正确显示出动画光标。 

在Visual Basic中开始一个新的工程，采用缺省的方法建立Form1。 
在Form1上创建一个命令按钮控件，采用缺省的方法建立Command1。将它的Caption属性设置为“显示动画光标”。 
在Form1上创建第二个命令按钮控件，采用缺省的方法建立Command2。将它的Caption属性设置为“恢复缺省光标”。 
创建一个新的模块，采用缺省的方法建立Module1.Bas。将如下的声明，类型和常量语句添加到Module1.Bas的通用声明部分中： 
Option Explicit
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Const GCL_HCURSOR = (-12)
Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

注意上面的声明语句需要书写在一行内。
将如下的语句添加到Form1的通用声明部分中： 
Option Explicit
Dim mhBaseCursor As Long