作者：绿色风
分类：
时间：2022-08-17
浏览：152
楼主
kevinchengcw |
Q: 如何用滚动条控制文本框字体大小？
A: 打开一个新的EXCEL文档，按Alt+F11进入VBA编辑器，插入窗体，并在窗体中插入一个文本框(TextBox)和一个滚动条(ScrollBar)，双击滚动条，在打开的编辑窗口中输入下述代码：- Private Sub ScrollBar1_Change()
- TextBox1.Font.Size = ScrollBar1.Value '设定文本框的字体大小等于滚动条的值
- TextBox1.Text = ScrollBar1.Value '为了清楚表明字体大小，让文本框的文字等于当前字体大小的值
- End Sub
- Private Sub UserForm_Initialize() '窗体初始化事件
- ScrollBar1.Min = 5 '设定滚动条的最小值
- ScrollBar1.Max = 55 '设定滚动条的最大值
- ScrollBar1.Value = 30 '设定滚动条的初始值为30
- TextBox1.Font.Size = ScrollBar1.Value '设定文本框初始字体大小与滚动条的值相同
- TextBox1.Text = ScrollBar1.Value '设定文本框的初始化文字等于滚动条的值
- End Sub
整体设定效果如下图：
代码运行效果如下图所示：
附示例文件。
 窗体学习--使用滚动条控制文本框字体大小.rar
|
2楼
xyf2210 |
学习 |
3楼
chenlifeng |
如果是VB中呢？ScrollBar1的设置不行？我试了几次都不对，不懂得如何灵活处理。 |
4楼
成就滋味 |
学习 。 |
5楼
chy006 |
收藏了 |
6楼
sidneyshi |
多谢分享，受益匪浅 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一