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

タイトル Re^2: 表示のちらつきが気になります。
投稿日: 2009/01/26(Mon) 19:50
投稿者花ちゃん
乱数を表示させた場合はそれほど気になりませんでしたが、同じ数字を表示させた
場合、1秒に1回位の割合で画面の表示が変(画面にみだれが走る?)になりますね。
詳しくは知りませんが、VSYNC が原因のようです。


下記を試して見て下さい。

Option Explicit
Private Sub Form_Load()
   Me.Move 0, 0, 9400, 8400
   With Label1
      .Move 100, 100, 9000, 3800
      .BackColor = vbWhite
      .FontSize = 200
   End With
   With Picture1
      .Move 100, 4000, 9000, 3800
      .BackColor = vbWhite
      .FontSize = 200
      .AutoRedraw = True
      .ScaleMode = vbCharacters
      .CurrentX = 1
      .CurrentY = 1
   End With
   Timer1.Interval = 100
   Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
   Dim MyTime As String
   MyTime = Format$(Now, "nn:ss")
   Label1.Caption = MyTime
   Label1.Refresh
   Picture1.Cls
   Picture1.Print MyTime
   Picture1.Refresh
End Sub

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

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