技巧索引

确定一个像素的 R,G,B 各个分量（98/10/2）
有网友问及如何经常有人确定一个像素的 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）