Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


41477 / 76732 ←次へ | 前へ→

【40335】Re:アニメーションをなめらかにできないか?
回答  bykin  - 06/7/11(火) 17:49 -

引用なし
パスワード
   こんばんわ。

>切り替え時に一瞬黒くなってパチパチします。

あきまへんか?(^^;;
わての環境ではちょっとちらつくけど黒くなったりはしまへんが・・・
マシンスペックが原因なんかな?

そしたら、イメージコントロールをもう1個追加(Image11)して・・・

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub CommandButton1_Click()
  Dim i As Long
 
  For i = 1 To 10
    Me.Image11.Picture = Me.Controls("Image" & i).Picture
    DoEvents
    Sleep 100
  Next
End Sub

Private Sub UserForm_Initialize()
  Dim i As Long
 
  For i = 1 To 10
    With Me.Controls("Image" & i)
      .Picture = LoadPicture("C:\Pic" & i & ".bmp")
      .AutoSize = True
      .Left = 0
      .Top = 0
      .Visible = False
    End With
  Next
  With Me.Image11
    .Left = 0
    .Top = 0
    .Width = Me.Image1.Width
    .Height = Me.Image1.Height
    .Visible = True
  End With
End Sub

こんなんでどーかな?
ちらつきはマシになると思うけど・・・
試してみてな。
ほな。

2 hits

【40196】アニメーションをなめらかにできないか? 西谷 さくら 06/7/8(土) 13:31 質問
【40197】Re:アニメーションをなめらかにできないか? ぱっせんじゃー 06/7/8(土) 13:37 発言
【40198】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/8(土) 15:44 発言
【40206】Re:アニメーションをなめらかにできないか? ぱっせんじゃー 06/7/8(土) 22:34 発言
【40207】Re:アニメーションをなめらかにできないか? bykin 06/7/9(日) 0:15 発言
【40217】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/9(日) 11:13 お礼
【40226】Re:アニメーションをなめらかにできないか? bykin 06/7/9(日) 20:48 回答
【40227】Re:アニメーションをなめらかにできないか? ぱっせんじゃー 06/7/9(日) 20:52 発言
【40298】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/10(月) 22:27 発言
【40335】Re:アニメーションをなめらかにできないか? bykin 06/7/11(火) 17:49 回答
【40341】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/11(火) 22:32 発言
【40211】Re:アニメーションをなめらかにできないか? 西谷 さくら 06/7/9(日) 6:49 お礼

41477 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free