创建大小缩放自如的文本框

标签：VBA，用户窗体，文本框

今天介绍一个用户窗体文本框编程技巧，当文本框中的文本较多时，可能会有用。

这个技巧要实现的是，当鼠标移动到文本框上时，文本框会自动展开，而当鼠标移出文本框时，又会自动恢复原来的大小，如下图1所示。

图1

为了衬托文本框，我们在其底部绘制了一个标签，并设置其背景色为深灰色。也就是说，先绘制一个深灰色背景的标签控件，再在其上绘制一个文本框控件，调整这两个控件的大小和位置使它们协调一致。

然后，打开用户窗体代码模块，在其中输入下面的代码：

代码语言：javascript复制

Private extended As Boolean

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Label1.Height = 150
 TextBox1.Height = 142
 extended = True
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Call textBoxNormal
End Sub

Sub textBoxNormal()
 If extended = True Then
   Label1.Height = 48
   TextBox1.Height = 40
   extended = False
 End If
End Sub

然后，运行用户窗体即可。

height integer private 编程 技巧

0 人点赞