UC知道这两道简单的vb题如何做？
来源：百度知道 编辑：UC知道 时间：2024/06/20 11:09:19
第一个
Private Sub HScroll1_Change()
Text1.Height = HScroll.Value
Text1.Width = 1.2 * HScroll.Value
End Sub
第二个
Private Sub Command1_Click()
Label1.Visible = Ture
Label2.Visible = False
Label.Caption = Text1.Text
End Sub
要求可以运行。可是我不会。请大家把怎么做的详细步骤发来。
Private Sub HScroll1_Change()
Text1.Height = HScroll.Value
Text1.Width = 1.2 * HScroll.Value
End Sub
第二个
Private Sub Command1_Click()
Label1.Visible = Ture
Label2.Visible = False
Label.Caption = Text1.Text
End Sub
要求可以运行。可是我不会。请大家把怎么做的详细步骤发来。
第一个
Private Sub Form_Load()
HScroll1.Max = 3000
HScroll1.SmallChange = 100
End Sub
Private Sub HScroll1_Change()
Text1.Height = HScroll.Value
Text1.Width = 1.2 * HScroll.Value
End Sub
Private Sub HScroll1_Scroll()
Call HScroll1_Change
End Sub
第二个
好像你的就可以运行
第一个
Private Sub Form_Load()
HScroll1.Max = 3000
HScroll1.SmallChange = 100
End Sub
Private Sub HScroll1_Change()
Text1.Height = HScroll1.Value
Text1.Width = 1.2 * HScroll1.Value
End Sub
第二个
Private Sub Command1_Click()
Label1.Visible = True
Label2.Visible = False
Label1.Caption = Text1.Text
End Sub
本来就可以运行，怎么问这样的问题