首頁>Club>
5
回覆列表
  • 1 # 潮流達人來賓7s

    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

  • 中秋節和大豐收的關聯?
  • 杜甫的一首詩最後一個字是金?