vb中label的使用
答案:2 悬赏:20 手机版
解决时间 2021-03-25 23:39
- 提问者网友:嗝是迷路的屁
- 2021-03-25 10:35
vb中label的使用
最佳答案
- 五星知识达人网友:woshuo
- 2021-03-25 11:54
不能加入到VB代码中,VB不识qq 代码。
可以显示得漂亮些,这看你的想像,和编程能力。[月时微123] 的方法可以简单实现。
要闪烁的话,可以用Timer控件 定时改变。追问。[月时微123] 的方法 是什么啊?追答'fom1窗体中,加入一个Timer控件,一个Label 控件。
Option Explicit
Dim s As Long, d As Long
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Label1.Caption = "闪烁大小变化的字"
Label1.ForeColor = vbRed
Label1.FontSize = 12
Label1.AutoSize = True
s = 0
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = Choose(s + 1, vbRed, vbBlue)
Label1.FontSize = Choose(s + 1, 12, 15)
s = (s + 1) Mod 2
End Sub
可以显示得漂亮些,这看你的想像,和编程能力。[月时微123] 的方法可以简单实现。
要闪烁的话,可以用Timer控件 定时改变。追问。[月时微123] 的方法 是什么啊?追答'fom1窗体中,加入一个Timer控件,一个Label 控件。
Option Explicit
Dim s As Long, d As Long
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Label1.Caption = "闪烁大小变化的字"
Label1.ForeColor = vbRed
Label1.FontSize = 12
Label1.AutoSize = True
s = 0
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = Choose(s + 1, vbRed, vbBlue)
Label1.FontSize = Choose(s + 1, 12, 15)
s = (s + 1) Mod 2
End Sub
全部回答
- 1楼网友:逐風
- 2021-03-25 12:20
你可以定时改变lable控件的字体大小,颜色,字体属性,适当调整,应该能达到你想要的效果追问这个我知道 不过用一些特殊的符号 和文字 拼出些图案之类的
还有就是能把字弄成闪烁的啊,有此功能吗
还有就是能把字弄成闪烁的啊,有此功能吗
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯