タイトル : 表示のちらつきが気になります。 投稿日 : 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 −−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−− |