VB如何让字体随机变大缩小??

求教,谢谢... 求教,谢谢 展开
 我来答
环业软件
2012-03-21 · TA获得超过1276个赞
知道小有建树答主
回答量:865
采纳率:100%
帮助的人:586万
展开全部
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
百度网友0b3b3b0dd0
2012-03-21 · TA获得超过1.2万个赞
知道大有可为答主
回答量:1.6万
采纳率:0%
帮助的人:3363万
展开全部
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
追问
是随机变化,大小飘忽不定、。不是渐渐变大……
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式