vba 字体颜色_VBA用户界面编程续2

Hi，大家好，上一期我们开启了用户界面编程，但是只是简单的开启了用户界面，界面上什么控件都没有，也无法与用户交互，这一期我们尝试在用户界面上添加几个常用的用户控件。

在上一期添加了用户界面之后，我们可以看到，系统默认添加的用户界面比较小，因此， 有需要的情况下，可以将默认的用户界面大小进行调整，调整的方法跟普通的windows应用程序一样，选中之后，将鼠标放在在右方或者下方边缘或者右下方角落，等待鼠标图标变成箭头之后，按住鼠标左键就可以随意拖动大小了。

调整用户界面到合适的大小之后，就可以尝试添加用户控件了，添加的方式也很简单，从旁边小的工具箱里面选择所需的控件，然后鼠标左键按住所选控件，将其拖动到用户界面上即可。

在用户界面上，可以随意的调整控件所在的位置，如添加一个按钮后的用户界面如下图所示：

在添加的控件上点鼠标右键，选择属性，则会弹出对应控件的属性窗口，在属性窗口中，可以对所选控件进行一系列的修改，例如修改按钮控件上显示的名字，字体，字体颜色，以及对应的控件的大小等参数。

示例这里添加两个按钮，分别修改按钮名字为文本读测试和文本写测试，同时添加一个标签及一个文本框，标签标题修改为"文件内容如下",并调整到合适的位置，如下图所示：

继续底下文本框的属性，修改文本框的MaxLenth，MultiLine，WordWrap属性如图所示：

修改完所选控件的属性之后，双击控件，即可进入控件的相应事件的代码编辑窗口，例如双击按钮控件之后，出现如下窗口：

分别修改两个按钮的的按键响应代码如图所示：

同时在代码区域最上层添加如下代码：

Sub BaseCodeWriteTest()'定义一个通用对象用于表示文件系统对象Dim fs As Object'定义一个通用对象用于表示文本文件对象Dim file As Object'创建文件系统对象并绑定到通用对象Set fs = CreateObject("Scripting.FileSystemObject")'通过打开已有的文本文件来创建文本文件对象,设置文本的打开方式为写入Set file = fs.OpenTextFile("D:\test.txt", 2, True)'写入如下两行文本到文件file.WriteLine ("这是通过VBA脚本写入的第一行字符")file.WriteLine ("这是通过VBA脚本写入的第二行字符")'关闭文件file.Close'通过打开已有的文本文件来创建文本文件对象，设置文本的打开方式为追加Set file = fs.OpenTextFile("D:\test.txt", 8, True)'以追加的方式写入如下两行文本file.WriteLine ("这是通过VBA脚本写入的第三行字符")file.WriteLine ("这是通过VBA脚本写入的第四行字符")'关闭文件file.CloseEnd SubSub BaseCodeReadTest()'定义一个通用对象用于表示文件系统对象Dim fs As Object'定义一个通用对象用于表示文本文件对象Dim file As Object'创建文件系统对象并绑定到通用对象Set fs = CreateObject("Scripting.FileSystemObject")'通过打开已有的文本文件来创建文本文件对象，设置文本的打开方式为只读Set file = fs.OpenTextFile("D:\test.txt", 1, True)'读取所有文本内容并输出TextBox1.Text = TextBox1.Text + file.ReadAll()'关闭文件file.CloseEnd

选中UserForm1后点击运行，点击文件写测试按钮之后，再点击文件读测试按钮，可以看到底下文本框中显示出来了生成的文本文件的内容，如下图所示：

程序执行时，点击文本写测试按钮会在D盘根目录生成一个test.txt文件，并添加四行文本。点击文本读测试按钮则会打开D盘根目录的test.txt文本，读取文本内容后添加到文本框中。

这里按钮主要是用来触发子程序的执行，标签则用于提示信息，文本框则主要用来接收用户的输入或者输文本。

觉得有用吗？想了解更多吗？下方扫码关注喔！