vb怎么用滚动条控制text字体大小 代码是什么？ 50
2个回答
展开全部
Option Explicit
Private Sub Form_Load()
Text1.Text = "字"
Text1.FontSize = 7
Label1.Caption = 7
VScroll1.Max = 256
VScroll1.Min = 7
VScroll1.Value = 7
End Sub
Private Sub VScroll1_Change()
Text1.FontSize = VScroll1.Value
Label1.Caption = VScroll1.Value
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
代码如下：
Private Sub Form_Load()
Text1.Width = 0: Text1.Height = 0
End Sub
Private Sub VScroll1_Change()
Text1.Width = VScroll1.Value * 100
Text1.Height = VScroll1.Value * 100
Label1 = VScroll1.Value
End Sub
Private Sub Form_Load()
Text1.Width = 0: Text1.Height = 0
End Sub
Private Sub VScroll1_Change()
Text1.Width = VScroll1.Value * 100
Text1.Height = VScroll1.Value * 100
Label1 = VScroll1.Value
End Sub
追问
不能运行，是text里面的字体的大小
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
