CorelDRAW 零基础 VBA插件教程: 能切换窗口大小界面
这不是通往幼儿园的车，我要跳车!? 有朋友疑问怎么一上来就放大了。
其实代码非常简单的，添加一个图标控件，名称改成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。
这个代码非常简单，而且可以做和有意思的功能。
从论坛下载一个别人的插件 GMS, 只要简单插入一个按钮，复制下面几行代码。
就能把这这个插件，改写成方便使用的多界面窗口
Private Sub btn_ExpandForm_Click()
With Me
If .Height = 200 Then
.Height = 410
ElseIf .Height = 410 Then
.Height = 582
Else
.Height = 200
End If
End With
End Sub
感谢大佬，学会了 好东西，先收藏，谢谢大佬分享！ 大佬，放出来VBA插件的成品！你把代码发出来，我们也搞不来啊
虽说授人以鱼不如授人以渔，这个代码编程是着实不会啊 hyaqxb 发表于 2024-4-25 10:47
大佬，放出来VBA插件的成品！你把代码发出来，我们也搞不来啊
虽说授人以鱼不如授人以渔，这个代码编程是着 ...
老铁我还是比较支持你的观点毕竟我们都不懂代码编程:lol 搞点视频教程更ok:lol zhen88666 发表于 2024-4-25 13:41
搞点视频教程更ok
等晚上有空，把这个视频教程做起来
页:
[1]