![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
2个回答
展开全部
Private Sub Command1_Click()
a = Int(Rnd * 41) + 4 '4到40,根据需要自己改
Text1.FontSize = a
End Sub
不用按command1的话,就放入timer里
Private Sub Form_Load()
Timer1.Interval = 100‘越小变化越赽
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
a = Int(Rnd * 41) + 4 '4到40
Text1.FontSize = a
End Sub
a = Int(Rnd * 41) + 4 '4到40,根据需要自己改
Text1.FontSize = a
End Sub
不用按command1的话,就放入timer里
Private Sub Form_Load()
Timer1.Interval = 100‘越小变化越赽
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
a = Int(Rnd * 41) + 4 '4到40
Text1.FontSize = a
End Sub
展开全部
Dim a%
Private Sub Command1_Click() '加大键
a = a + 10
If a >= 70 Then a = 70: Exit Sub '加大到70就停止
Label1.Font.Size = a '设定Label1的字体大小
End Sub
Private Sub Command2_Click() '缩小键
a = a - 10
If a <= 2 Then a = 2: Exit Sub ' 缩小到2就停止
Label1.Font.Size = a '设定Label1的字体大小
End Sub
Private Sub Command1_Click() '加大键
a = a + 10
If a >= 70 Then a = 70: Exit Sub '加大到70就停止
Label1.Font.Size = a '设定Label1的字体大小
End Sub
Private Sub Command2_Click() '缩小键
a = a - 10
If a <= 2 Then a = 2: Exit Sub ' 缩小到2就停止
Label1.Font.Size = a '设定Label1的字体大小
End Sub
追问
是随机变化,大小飘忽不定、。不是渐渐变大……
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询