module1.bas

远程访问sql server 的源码

Attribute VB_Name = "Module1"
Option Explicit

Public Declare Function GetMenu Lib "user32" _
    (ByVal hwnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" _
    (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function GetMenuItemID Lib "user32" _
    (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public 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
Public Declare Function CreateCompatibleDC Lib "gdi32" _
    (ByVal hdc As Long) As Long
Public Declare Function CreateCompatibleBitmap Lib "gdi32" _
    (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight _
    As Long) As Long
Public Declare Function SelectObject Lib "gdi32" _
    (ByVal hdc As Long, ByVal hObject As Long) As Long
Public 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 Declare Function DeleteDC Lib "gdi32" _
    (ByVal hdc As Long) As Long

Public Const SRCCOPY = &HCC0020
Public Const MF_BITMAP = &H4&
Public Const MF_BYPOSITION = &H400&