VB与AutoCAD二次开发入门技巧资料13053TextBox.docVIP

能自行调节高度的 TextBox 概述 TextBox 在放到 Form 中以后， 就不管内容有多少， 就是占这么多的地盘， 为什么不让它灵活一些呢？ 每当TextBox 的内容修改好以后， 就查看TextBox 的行数是否变化。 如果有改变的话， 就把TextBox 的位置调整到合适的位置。 一个可能的应用就是在TextBox 和MsFlexGrid 配合使用的情况， 可以动态修改高度。 实现步骤 1、 开启一个新的工程。 2、 增加一个TextBox(Text1)， 修改BorderStyle 为0-None， MultiLine 为 True。 3、 在 Form1 的声明中增加： Const EM_GETLINECOUNT = HBA Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim LastLine As Long 最后的行数 Dim LineHeight 每行的高度 4、 在 Form_Load 过程中增加： Private Sub Form_Load() Set Me.Font = Text1.Font LineHeight = Me.TextHeight(TT) End Sub 5、 在 Text1_Change 中增加代码： Private Sub Text1_Change() Dim Ret As Long Ret = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0, 0) 取行数 If Ret LastLine Then If Text1.Height + Text1.Top + LineHeight Me.ScaleHeight And Ret 1 Then If LastLine = Ret - 1 Then Exit Sub 如果已经是最大高度，保持 End If LastLine = Ret - 1 超过最大高度 Else LastLine = Ret End If Text1.Height = LastLine * LineHeight 修改高度 End If End Sub 6、 在Text1_GotFocus 中增加代码： Private Sub Text1_GotFocus() LastLine = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0, 0) End Sub 7、 按F5， 开始运行。 在 TextBox 中多打入几行， 可以发现TextBox 的高度会自动修改， 甚至对剪贴操作也一样有效。 而在 TextBox 到了Form 的最大边缘后， 就停止了扩张高度。 如果您发现 Bugs。请告诉我知道。 Thanks. 多姿多彩的进度指示控件 在Win95盛行的今天，我们随处可以看见各种进程指示控件的身影，这些进程指示控件被广泛用于各种不同的场合。如果我们能在自己的程序中灵活使用各种进程指示控件，一定会为程序增添许多生机和活力。 下面笔者以Visual Basic为例，向大家介绍几种常 用的进程指示控件。 一、进度条控件（ProgressBar） 进度条控件是一种极其常见的Win95风格的进 度指示控件，广泛用于各种Win95程序。它一般用在 需要较长处理时间的场合，如在程序加载数据、更新系 统、检查硬件时，用本控件提示用户程序正在工作、 进度条控件的重要属性有：Min（最小值）、Max（最 大值）、Value（当前值）。 二、滑片控件（Slider） 滑片控件最大的特点是可以很方便地进行手工拖 动重定位，这种特性决定了它主要用于交互性较强的 场合，如著名的软解压软件XingMPEG Player就使用 滑片控件来进行播放控制，它一面用来显示播放进度， 同时用户还可通过拖动滑片来选择适当的投放位置。 另外，win95本身也大量使用了这种控件，如“控制面 板”中的“鼠标”和“键盘”等。 滑片控件的重要属性有：Min（最小值）、Max（最大 值）、SmallChange（最小变化值）、LargeChange（最大变 化值）、Orientation（方向）、TickStyle（标尺和滑片风 格）、TickFrequency（标尺间隔）和Value（当前值）等，其 中Orientation（取值为0或1）决定了滑片控件是水平 显示还是竖直显示，TickStyle（取值从1到4）可以控