|
▼hori さん:
おはようございます。
Hideというメソッドは、ユーザーフォームを非表示にするメソッドです。
このイベントプロシジャーは、ユーザーフォームが表示されたと同時に
ずっとループしていますね!!↓
>Private Sub UserForm_Activate()
> Do
> Label3.Caption = Now
> DoEvents '←★ここがポイント
> Loop
>End Sub
Hideメソッドで非表示にしても動作していることがトラブルの原因になっています。
簡単な修正は、HIDEという記述がある箇所をすべて
Unload me
に変更すれば、改善すると思いますが・・・。
これだとこのコードを見た人はきっと不安になります。
>Private Sub UserForm_Activate()
> Do
> Label3.Caption = Now
> DoEvents '←★ここがポイント
> Loop
>End Sub
このループはどこで終わるのだろう?? って・・。
Private loop_end as boolean
>Private Sub UserForm_Activate()
loop_end=false
Do until loop_end
> Label3.Caption = Now
> DoEvents '←★ここがポイント
> Loop
>End Sub
とし、
loop_end=true
doevents
unload me
というコードをUnload Meの前(Hideと記述したところ全て)に追加します。
これで試してみてください
それとHIDEだけでも動作しますが、
せめてMe.HideとMeぐらいは付けてくださいね。
Hideはユーザーフォームのメソッドですから。
|
|