男主有毒小说全集:懂VB的看看吧,应该不难(刚自学VB的,不要见笑!)

来源:百度文库 编辑:中科新闻网 时间:2024/05/01 19:13:12
Private Sub cmdlarge_Click()
Randomize
n = Int(Rnd * 10 + 2)
txtInput.FontSize = txtInput.FontSize + n
End Sub

Private Sub cmdReduce_Click()
Randomize
n = Int(Rnd * 10 + 2)
txtInput.FontSize = txtInput.FontSize - n
End Sub

Private Sub cmdRevert_Click()

End Sub

将字体放大或缩小后,如何还原?(cmdRevert是还原按钮的名称)

把变量N设为全局变量!
还原里面的Randomize
n = Int(Rnd * 10 + 2) 删除
随机数就不会变了!