VB2008 Formドラッグ時の描画を早くしたいです．．

質問

こんばんは，質問させていただきます．
どうぞよろしくお願いたします．

　Formが４つあるアプリを作成しております．いずれをドラッグされた際も
これらが一緒に動くように，下のように方法でコーディングいたしました．
が，コントロールの数が多いせいか，カクカク動いてしまいます．

　（↓Form3をドラッグした際のコードでございます）
　　Private mousePoint As Point
　　Private Sub Form3_MouseDown(ByVal sender As Object, _
　　　　ByVal e As System.Windows.Forms.MouseEventArgs) _
　　　　Handles MyBase.MouseDown
　　　　If (e.Button And MouseButtons.Left) = MouseButtons.Left Then
　　　　　　mousePoint = New Point(e.X, e.Y) '位置を記憶
　　　　End If
　　End Sub

　　Private Sub Form3_MouseMove(ByVal sender As Object, _
　　　　ByVal e As System.Windows.Forms.MouseEventArgs) _
　　　　Handles MyBase.MouseMove 'マウスが動いたとき
　　　　If (e.Button And MouseButtons.Left) = MouseButtons.Left Then
　　　　　　Me.Left += e.X - mousePoint.X
　　　　　　Me.Top += e.Y - mousePoint.Y
　　　　　　Form1.Left += e.X - mousePoint.X
　　　　　　Form1.Top += e.Y - mousePoint.Y
　　　　　　Form2.Left += e.X - mousePoint.X
　　　　　　Form2.Top += e.Y - mousePoint.Y
　　　　　　Form4.Left += e.X - mousePoint.X
　　　　　　Form4.Top += e.Y - mousePoint.Y
　　　　End If
　　End Sub

　VBでFormの動きを早くする方法というのは，単純にコントロール数を
減らすか，またはPCのスペックを上げるしか無いのでしょうか・・・？
　もしお詳しい方がいらっしゃいましたら，是非とも何かアドバイスを
いただきたくお願い申し上げます．
どうぞよろしくお願いいたします．

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

フォームを移動させるだけなら、フォーム自体は再描画されません。（正確には内部のバッファによって自動的に再描画されるのでコントロールやフォームが描画しているわけではないはずです。）
画面がカクつく原因は、フォームが移動したことで隠れていたウィンドウに対し再描画の命令が飛んでいるからだと思います。つまり、コントロールを減らしてもおそらく状況は変わらないでしょう。

フォームを移動するときは、Left, Topに分けずLocationで移動すると改善できるかもしれません。

Me.Left += e.X - mousePoint.X
Me.Top += e.Y - mousePoint.Y

この場合だと、Left移動で１回、Top移動で１回の計２回再描画命令が飛ぶことになります。ここを

Me.Location = New Point(Me.Left + e.X - mousePoint.X, Me.Top + e.Y - mousePoint.Y)

とすれば、再描画命令は１回だけになるはずです。
以下、Form1,2,4に対しても同じようにすれば、隠れていたフォームに送られる再描画命令の数が半分になるので少しはスムーズになるかもしれません。

あとは、フォーム移動完了時に他のフォームを一気に動かすくらいですかね・・・。

ちなみにWin7(Areo有効)では普通にスーっと動きました・・・。離れたウィンドウが一緒にくっついてくるのでちょっと面白かったです。

お礼

うぃず様

　どうもありがとうございます！！m(_ _)m
>フォームを移動させるだけなら、フォーム自体は再描画されません
貴重なご助言どうもありがとうございます．
>隠れていたウィンドウに対し再描画の命令が飛んで～
おっしゃられます通り，Formの２つが半分重なり合っていたり，
Visible=Falseになっているものが常に一つあったりいたしましたため
すべてVisible=Trueにしてかつ，重なり合わない状態で並行移動させてみましたが，今回につきましてはまだカクカクでしたorz

　しかし教えていただいた「再描画の命令が飛ぶ」という事から
もしかするとFormに張り付けてある大きな画像の「再描画」が原因かな？
などと推測いたしまして，BackGroundImageから画像を消したところ，
幾分か速くなったようでございます．どうもありがとうございます．

　この場合，Form上の画像を残したままでカクカクを無くす方法は何か
無いものでしょうか・・・orz

＞Win7
なんともう購入なされましたか．自分も動作環境テスト用に欲しいんですが．．．
（どうせ今作製しているアプリを人にあげても，今後Vista使い続ける
人ほとんどいないでしょうし．．）
VBの動作もVistaより快適なんでしょうか？？羨ましいです．＾＾；