技巧索引

调用系统缺省程序
经常有网友问及这样的问题：我怎样才能调用系统缺省的浏览器或电子邮件程序来浏览网页或发送邮件？其实很简单，调用一个 API 函数就行了。例如，使用下面的代码就可以访问 VB 憩园：ShellExecute 0&, vbNullString, "http://vbzone.yeah.net", vbNullString, vbNullString, vbNormalFocus
说明：1、使用时需要声明 ShellExecute 这个 API 函数。2、你还可以使用类似的方法来调用系统缺省程序发送邮件、浏览图片、打开文件等。

字符串占用的字符个数
在VB下敲入：LenB("中国1") 返回6；Len("中国1") 返回3；如果要返回占多少个字符，可以下面方法： LenB(StrConv("中国1"), vbFromUnicode))

确定一个像素的 R,G,B 各个分量
有网友问及如何确定一个像素的 R,G,B 各个分量，咋一看，似乎有点难，由于 VB 只提供 RGB 函数将 RGB 各分量转换为 RGB 颜色值，而 Point 方法倒可以得到 RGB 颜色的长整型的值，但没有将长整型的值转换为 RGB 分量的函数。经过仔细研究，发现很简单：将长整型的值用 Hex 函数转换为 16 进制的值。结果就出来了。结果前2位为 B 的值，中间2位为 G 的值，后面两位为 R 的值。

找到 CD-ROM 驱动器号
下面的函数将检查你计算机所有的驱动器看是否是 CD-ROM，如果是就返回驱动器号，如果没有就返回空字符：: Public Function BI_GetCDROMDrive() As String
    Dim lType As Long
    Dim i As Integer
    Dim tmpDrive As String
    Dim found As Boolean
    On Error GoTo ErrorHandler
    'Loop thru A-Z. If found, exit early.
    For i = 0 To 25
        tmpDrive = Chr(65 + i) & ":\"
        lType = GetDriveType(tmpDrive)     'Win32 API 函数
        If (lType = DRIVE_CDROM) Then     'Win32 API 常数
            found = True
            Exit For
        End If
    Next
    If Not found Then
        tmpDrive = ""
    End If
    BI_GetCDROMDrive = tmpDrive
ErrorHandler:
Err.Description = "BI_GetCDROMDrive 失败：不可预料的错误。"
BI_Errorhandler
End Function

VBPJ 技术提示支持
VBPJ 技术提示支持包含由 VB3、VB4、VB5、VBA及 VBS 专业开发人员提供的大量的编程提示及技巧。有什么编程问题吗？或许里面就有答案。下载回去慢慢咀嚼吧（不过是 E 文的）。
第4期（40K）第5期（35K）第6期（39K）第7期（49K）

Win95 API 指南
这个压缩包里面介绍大量 VB 中使用 Win95 API 的情况，它介绍的每个 API 均包含了在 VB 中的使用说明及一个 VB 中使用的实例（E 文的）。按此下载回去慢慢浏览琢磨。