38、高级用户窗体技术详解

高级用户窗体技术详解

1. 高级事件处理与自定义消息框函数

在用户窗体开发中，事件处理是关键环节。对于命令按钮，每个都有其独立的事件处理程序，这些程序能判断哪个按钮被点击，并通过设置 UserClick 变量为函数返回值。

自定义消息框函数 MyMsgBox 的使用步骤如下：
1. 导出 MyMsgBoxMod 模块和 UMsgBox 用户窗体。
2. 将这两个文件导入到你的项目中。
3. 在代码里就可以像使用 MsgBox 函数一样使用 MyMsgBox 函数。

2. 带可移动控件的用户窗体

这种用户窗体包含三个图像控件，用户能使用鼠标在对话框中拖动这些图像。每个图像控件有两个关联的事件过程： MouseDown 和 MouseMove 。以 Image1 控件为例，其事件过程代码如下：

Private Sub Image1_MouseDown(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'   Starting position when button is pressed
    OldX = X
    OldY = Y
    Image