教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

          ''You can use DestroyWindow to get rid of the window manually.
          Call PostQuitMessage(0&)
    End Select
    

  ''Let windows call the default window procedure since we're done.
  WndProc = DefWindowProc(hwnd&, uMsg&, wParam&, lParam&)

End Function

又添加了一个Button的处理过程

Public Function ButtonWndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    Select Case uMsg&
       Case WM_LBUTTONUP:
          Call MessageBox(gHwnd&, "You clicked the button!", App.Title, MB_OK Or MB_ICONEXCLAMATION)
    End Select
    
  ButtonWndProc = CallWindowProc(gButOldProc&, hwnd&, uMsg&, wParam&, lParam&)
  
End Function

Public Function GetAddress(ByVal lngAddr As Long) As Long
    GetAddress = lngAddr&
End Function

以上一个完整的简单的应用程序就产生了。我们不需要IDE环境也可以创建我们想要的风格的窗体。通过这个例子对于VB程序员是不是对系统的机制有了一些了解。

虽然这个例子实际意义并不大，但是我们认为很有用，让我们能了解一些封装背后隐藏的事实，使我们的思路很自由。