vb题求答案 任意改变文本的字号。要求利用滚动条和标签控件实现对标签字体大小的任意改变,如图2.4.8所示。提示:  ①

1个回答

  • Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll

    Label1.Text = Str(HScrollBar1.Value) + " 号字"

    Label1.Font = New System.Drawing.Font(Label1.Font.Name, HScrollBar1.Value)

    End Su