VB使用编程技巧三则

VB使用编程技巧三则

转载自《计算机世界日报》 (文/许振华)

1、 VB 中实现动态移动控件

---- 窗体中的控件如按钮、文本框等一般在运行时位置是固定不变的，但为了能给用户更方便的功能，我们可以做到在运行时动态移动控件的位置，比如我们可以允许用户随便将按钮放到自己喜欢的位置，而并非界面中固定的位置。其实这个功能实现起来是很容易的，只需要使用API 函数SendMessage 传递控件移动的消息即可。

---- 下面是一个例子，当用户单击按钮后可以移动按钮的位置。

---- 在窗体的总体声明部分声明SendMessage 函数及用到的两个常量：

Private Declare Function SendMessage 
Lib "user32" Alias _ 
      "SendMessageA" (ByVal hwnd As 
       Long, ByVal wMsg As Long, _ 
      ByVal wParam As Long, lParam As Any) As Long
    Const WM_SYSCOMMAND = &H112
    Const SC_MOVE = &HF012

---- 在窗体中添加一命令按钮Command1, 双击写代码如下：

Private Sub Command1_Click()
Dim retn%
   retn = SendMessage(Command1.hwnd, 
   WM_SYSCOMMAND, SC_MOVE, 0)
End Sub

---- 在窗体中添加命令按钮Command2，双击写如下代码：

Private Sub Command2_Click()
  unload me
End Sub

---- 运行此程序，单击命令按钮1，然后移动鼠标可以发现按钮的边框跟随鼠标移动，在新位置处单击鼠标就可以按钮移动过去了，单击按钮2 可结束程序。

---- 2、保持窗口的比例不变。

---- WINDOWS 下的窗口一般都可以通过鼠标拖动来扩大，有些时候我们需要控制窗口的比例不变，以防窗口比例失调时造成界面的不协调。要做到这一点，可以利用API 函数CallWindwosProc，当得到用户调整窗口的消息时，判断X 或Y 方向上的比例是否和原来的比例一样，如果不一样，则调整为一样。下面是一个例子。

---- 在窗体中加一个命令按钮Command1，双击写如下代码：

Private Sub Command1_Click()
    Unload Me
End Sub

---- 双击窗体写如下代码：

Private Sub Form_Load()
    OldWindowProc = SetWindowLong( hwnd, GWL_WNDPROC, _
              AddressOf NewWindowProc)
End Sub

---- 将下面的代码放入一个模块中：

Option Explicit
Public OldWindowProc As Lon
' 声 明API 函 数 如 下：
Declare Function CallWindowProc Lib
 "user32" Alias "CallWindowProcA" _ 
     (ByVal lpPrevWndFunc As Long, ByVal 
     hwnd As Long, ByVal msg As Long, _ 
      ByVal wParam As Long, lParam As
      WINDOWPOS) As Long
Declare Function SetWindowLong Lib
 "user32" Alias "SetWindowLongA" _ 
(ByVal hwnd As Long, ByVal nIndex 
As Long, ByVal dwNewLong As Long) As Long

Public Const GWL_WNDPROC = -4
' 定 义 一 个 窗 口 位 置 数 据 类 型
Type WINDOWPOS
    hwnd As Long
    hWndInsertAfter As Long
    x As Long
    y As Long
    cx As Long
    cy As Long
    flags As Long
End Type
Public Const WM_WINDOWPOSCHANGING = &H46
Public Const WM_WINDOWPOSCHANGED = &H47
' 处 理 窗 口 变 化 的 函 数
Public Function NewWindowProc
(ByVal hwnd As Long, ByVal msg As Long, _ 
  ByVal wParam As Long, lParam As WINDOWPOS) As Long
Static done_before As Boolean
Static aspect As Single
Dim new_aspect As Single

    If msg = WM_WINDOWPOSCHANGING Then
        If lParam.cy > 0 Then
            ' 保 存 原 来 的 比 例
            If Not done_before Then
                aspect = lParam.cx / lParam.cy
                done_before = True
            End If
            
            new_aspect = lParam.cx / lParam.cy
            If new_aspect > aspect Then
                lParam.cy = lParam.cx / aspect
            Else
                lParam.cx = aspect * lParam.cy
            End If
        End If
    End If

   NewWindowProc = CallWindowProc
   ( OldWindowProc, hwnd, msg, wParam, lParam)

End Function

---- 运行此程序，当用鼠标拉窗体的边界扩大窗口时，将会发现另一边也相应地扩大，整个窗口的比例不变，单击command1 结束程序。

---- 3、使用系统的“ 关于” 对话框。

---- 也许你在软件中需要一个“ 关于” 对话框，如果要求不高的话，可以不必再用一个窗体做“ 关于” 对话框，可利用系统的对话框，虽然其中含有微软的一些信息，但你还是可以添加自己的某些信息，系统提供的“ 关于” 对话框还有内存、资源等有关信息，你不需再为这些信息写任何代码。要使用系统的“ 关于” 对话框，只需声明API 函数ShellAbout，然后直接调用即可，例如：

' 声 明API 函 数
Private Declare Function 
ShellAbout Lib "shell32.dll" _
Alias "ShellAbout" (ByVal hwnd 
As Long, ByVal szApp As String, _
ByVal szOtherStuff As String, 
ByVal hIcon As Long) As Long

 在 需 要 的 地 方 使 用 它：
Private Sub ABOUTCd_Click()
x = ShellAbout(Form1.hwnd, 
" 人 事 管 理 软 件 2.0", _
" 新 天 地 软 件 工 作 室", Form1.Icon)
End Sub