CorelDRAW 零基础 VBA插件教程: 能切换窗口大小界面

landboy · 发表于 2024-4-25 09:51:42

这不是通往幼儿园的车，我要跳车!? 有朋友疑问怎么一上来就放大了。
其实代码非常简单的，添加一个图标控件，名称改成 btn_ExpandForm
然后双击这个控件，改成以下代码

Private Sub btn_ExpandForm_Click()
With Me
If .width = 200 Then
.width = 260: .Height = 132
ElseIf .Height = 132 Then
.Height = 206
Else
.width = 200: .Height = 105
End If
End With
End Sub

复制代码

我们使用 GPT ，让他帮我们解释下代码

这段VBA窗口代码是一个事件处理程序，它响应名为"btn_ExpandForm_Click"的按钮的点击事件。

代码的主要作用是根据窗口的当前状态改变窗口的宽度和高度。

下面是代码的逐行解释：

Private Sub btn_ExpandForm_Click()：这是一个子过程（Subroutine）的定义，它定义了一个名为"btn_ExpandForm_Click"的按钮的点击事件处理程序。

With Me：这行代码指定了代码块中的对象为当前窗体（Form）对象。在代码块中，可以直接使用"."来引用该对象的属性和方法，而不需要每次都写出完整的对象引用。

If .Width = 200 Then：这是一个条件语句，检查窗口的宽度是否等于200。如果条件成立（窗口宽度为200），则执行接下来的代码块。

.Width = 260: .Height = 132：这行代码将窗口的宽度设置为260，同时将窗口的高度设置为132。冒号（:）用于在一行中连续执行多个语句。

ElseIf .Height = 132 Then：这是一个条件语句的另一个分支。它检查窗口的高度是否等于132。如果条件成立（窗口高度为132），则执行接下来的代码块。

.Height = 206：这行代码将窗口的高度设置为206。

Else：这是条件语句的最后一个分支，表示在前面的条件都不满足时执行的代码块。

.Width = 200: .Height = 105：这行代码将窗口的宽度设置为200，同时将窗口的高度设置为105。

End If：条件语句的结束标记。

End With：代码块结束标记，表示不再使用"With"语句指定的对象。

整体而言，这段代码根据窗口的当前状态改变窗口的宽度和高度。当窗口宽度为200时，点击按钮会将宽度增加到260，高度设置为132。当窗口高度为132时，点击按钮会将高度增加到206。其他情况下，点击按钮会将宽度设置为200，高度设置为105。