module1.bas

远程访问sql server 的源码

Attribute VB_Name = "Module1"
Option Explicit
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As Rect) As Long

'定义全局变量，设置回调函数中操作类型
Public Const gcSetCaption = 1
Public Const gcSetPos = 2

'定义结构变量，定义一个矩形区域的结构
Type Rect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

'回调函数，用来根据相应的参数对子窗体执行相应的操作
Public Function EnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Boolean
    Dim R As Rect
    Select Case lParam
        Case gcSetCaption
            '设置子窗体的标题文本
            SetWindowText hWnd, "My Caption"
        Case gcSetPos
            '设定子窗体的位置
            If GetWindowRect(hWnd, R) Then
                SetWindowPos hWnd, 0, R.Left + 20, R.Top + 20, _
                    R.Right - R.Left, R.Bottom - R.Top, 0
            End If
    End Select
    EnumChildProc = True
End Function