タイトル : イメージの表示タイミング 投稿日 : 2009/10/14(Wed) 14:52 投稿者 : YOSIKI
Private Sub Form_Activate() Dim i As Integer For i = 0 To 9 Image_GO(i).Visible = False Next i ・ ・ ・ Private Sub ImageS_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim EXTX As String Dim AUYX As Double Image_GO(Index).Visible = True MsgBox "処理中" ・ ・ ・ ImageSとImage_GOが同一のフォーム上にありますが、 ImageS_MouseMoveのコードの実行処理が全て終了しないと フォーム上のImage_GO(Index)が表示されません。 つまり Image_GO(Index).Visible = True を実行してもImageS_MouseMoveが全て終了しないと フォームに表示処理されない感じなのですが、 すぐに表示するには、どうすれば良いかこれだけでわかるでしょうか? |