VB滚动条怎么做

发布网友发布时间：2022-04-29 07:14

共3个回答

热心网友时间：2022-04-20 11:41

Private Sub Form_Load()
Me.Caption = "改变字号"
HScroll1.Min = 12
HScroll1.Max = 72
Label1.Caption = "心想事成"

End Sub

Private Sub HScroll1_Change()
Label1.FontSize = HScroll1.Value
End Sub

Private Sub Text1_Change()
If Len(Text1.Text) > 2 Then
Text1.Text = Left(Text1.Text, 2)
End If
If Val(Text1) >= 12 And Val(Text1) <= 72 Then
Label1.FontSize = Val(Text1.Text)
End If
End Sub

热心网友时间：2022-04-20 12:59

Private sub form_load()
me.caption="改变字号"
hscroll1.min=12
hscroll2.max=72
text1.maxlength=2
label1.caption="心想事成"
label1.alignment=2
text1.text=12
end sub
private sub hscroll1_change()
label1.fontsize=hscroll1.value
text1.text=hscroll1.value
end sub
private sub text1_change()
if text1.text< =72 and text1.text>=12 then label1.fontsize=val(text1.text)
end sub

热心网友时间：2022-04-20 14:33

VB自绘滚动条控件(COX)