重新拾起VB6(三)（以重新捡起什么什么为题写一篇作文）

第二个过程函数功能是调整窗口控件大小，当窗口大小改变时，画板的尺寸也相应改变：

Private Sub Form_Resize()
  Dim W As Long, H As Long
  
  ' get size of the form window
  Call lcGetClientSize(hWnd, VarPtr(W), VarPtr(H))

  If (W > 0 And H > 0) Then
    ' set size of VeCAD window
    Call lcWndResize(hLcWnd, 150, 0, W - 150, H)
  End If
End Sub

首先定义2个长整型变量W和Y，然后获取窗口大小。

函数lcGetClientSize有三个参数，hWnd为当前窗口的句柄，VarPtr(W)和VarPtr(H)是变量W和H的地址，函数将当前窗口的宽和高赋值给W和H。

接着判断一下W和Y是否同时大于0，如果是就设置画板大小。

函数lcWndResize有5个参数，hLcWnd为画板的句柄，它由Form_Load()过程中的函数lcCreateWindow生成。剩下4个参数分别为在窗口中的X坐标、Y坐标、宽度和高度。

当示例程序启动后，标签“X=”和“Y=”各自的右侧有编辑框，显示鼠标所在画板的坐标值

这个功能的实现是由Form_Load()过程中Call lcEventSetProc(LC_EVENT_MOUSEMOVE, AddressOf EventProc, 0, 0)这个函数起到作用的，它设置了事件程序。

lcEventSetProc函数中的参数LC_EVENT_MOUSEMOVE指定了事件类型常量为鼠标移动，参数AddressOf EventProc为事件处理过程的函数指针，过程函数EventProc保存在Events模块中。

AddressOf运算符获得一个函数的指针地址，函数VarPtr()获得变量指针，函数StrPtr()获得字符串指针，函数ObjPtr()获得对象指针。

程序源码分析到这就遇到指针这个知识点，在C/C++中是个难点，由于LC是用C++设计的，使用过程中经常会用到指针，对于编程小白的我实在有些难。