tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 表示のちらつきが気になります。
投稿日: 2009/01/26(Mon) 17:51
投稿者シロ
初めて利用させていただきます。

VB初心者です。宜しくお願い致します。

3桁の乱数を表示させた場合、数字の切り替わり時のちらつきが非常に気になります。
ちらつかずに表示させる方法はありませんか?
サンプルで抜き出したソースは下記の通りです。
(label1とtimer1を置いただけのformです。)


−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Option Explicit

Private Sub Form_Load()

Form1.BackColor = "&H00C0FFFF"

Label1.BackStyle = "0"
Label1.FontSize = "200"
Label1.Height = "4000"
Label1.Width = "7000"
Label1.Top = "200"
Label1.Left = "200"
Label1.Alignment = "2"

Timer1.Interval = 100
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Dim g As Integer

g = Int(999 * Rnd)
Label1.Caption = Right$("000" & Right$(Str(g), Len(Str(g)) - 1), 3)
Form1.Refresh

End Sub

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。