怎样将文本框置于顶层_好用的文本框小示例

父亲节快乐

各位客官老爷大家周末好！首先要给大家说声抱歉，最后实在是有些忙，好久未更新，但接下去，每周我会不定期的更新，谢谢大家的关注！

我们在应用中，经学会遇到文本框的长度不够，输入的信息看不全。

这个时候是不是心里都会默念：哪个傻*程序猿做的东西，真的是懒！

想把文本框拉大一点，但又不可以，这可如何是好，这个时候，你就需要用到我们今天要讲的这个小功能了。

0 1添加两个按钮

与图中一样，添加两个按钮。这里我们对“详细地址”进行放大(文本框的名称命名为Address)。

0 2记录下文本框的大小

我们要改变的是文本框的两个属性，一个是Width，一个是Height，所以我们先记录下详细地址这个文本框的正常大小的Width与Height。

当前示例中的文本框的初始值，Width=2602，Height=317

接下去记录放大后的Width与Height，Width=6697，Height=797

注意：这里的单位不是cm，是缇。

0 3添加代码

代码

 1Option Compare Database
 2Option Explicit
 3Private gWidth As Long '记录宽度
 4Private gHeight As Long '记录高度
 5Private Sub btn放大_Click()
 6    Me.Address.Width = gWidth + 4095
 7    Me.Address.Height = gHeight + 480
 8End Sub
 9
10Private Sub btn恢复_Click()
11    On Error Resume Next
12    Me.Address.Width = Me.Address.Width - 4095
13    Me.Address.Height = Me.Address.Height - 480
14    gWidth = Me.Address.Width
15    gHeight = Me.Address.Height
16End Sub
17
18Private Sub Form_Load()
19    gWidth = Me.Address.Width  '记录默认的宽度
20    gHeight = Me.Address.Height '记录默认的高度
21End Sub

0 4测试运行

这里我们要把文本框调整成“置于顶层”，如果不修改，那就会出现下图的情况。

可以看到，文本框被覆盖了，所以我们要调整一下位置。

正确的运行如下图：

好了，大家都去试一下吧！记住，多多点赞会变好看，多多转发会变有钱！！！

你点的每个赞，我都认真当成了喜欢