vb怎么用滚动条控制text字体大小代码是什么？

2024-12-27 02:04:44

推荐回答（2个）

回答1：

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

回答2：

代码如下：
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

vb怎么用滚动条控制text字体大小 代码是什么？

vb怎么用滚动条控制text字体大小代码是什么？