VB:使⽤滚动条控件实现对标签⽂字字体⼤⼩的控制
题⽬来源:⼤⼯慕课
原题:Visual Basic程序设计教程(第⼆版)龚沛曾主编,⾼等教育出版社 实验4-9
作者:Caleb Sung
题⽬要求
任意改变⽂本的字号。要求利⽤滚动条和标签控件实现对标签字体⼤⼩的任意改变,如图所⽰。
提⽰
1. 将滚动条的Min、Max分别设置为字号的最⼩值和最⼤值
2. 当拖动滑块时,字体取原来值,字号跟着变化。
参考代码
Private Sub HScroll1_Change()
n = HScroll1.Value
visual basic pdfLabel1.FontSize = n
Label1.Caption = n & "号字"
End Sub
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论