紹介して頂いたサンプルを見て、下記のようにコードを修正して画像の表示は
できました。
Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim rectD As New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height)
Dim w As Integer
Dim h As Integer
Dim HDC_Src As IntPtr
Dim HDC_Dst As IntPtr
Dim hOrg As IntPtr
Dim hNew As IntPtr
If m_MyBmp Is Nothing Then
Exit Sub
End If
w = PictureBox1.ClientSize.Width / m_ZoomF
h = PictureBox1.ClientSize.Height / m_ZoomF
HDC_Dst = e.Graphics.GetHdc()
HDC_Src = CreateCompatibleDC(HDC_Dst)
hOrg = SelectObject(HDC_Src, m_MyBmp.GetHbitmap())
StretchBlt(HDC_Dst, 0, 0, PictureBox1.ClientSize.Width, PictureBox1.ClientSize.Height, HDC_Src, HScrollBar1.Value, VScrollBar1.Value, w, h, SRCCOPY)
hNew = SelectObject(HDC_Src, hOrg)
DeleteObject(hNew)
DeleteDC(HDC_Src)
e.Graphics.ReleaseHdc(HDC_Dst)
End Sub
しかし、性能アップは果たせませんでした。DrawImageメソッドとそれほど変わらない
感じです。
タスクマネージャでスクロールさせながらCPU使用率を見ると私のプログラムでは
すぐに90%とかにアップするのに､Windowsアクセサリのペイントで同じ画像の
スクロール時は10％以下です。
ペイント並みの描画はどのようにして実現されているのでしょうか。
.NETのコントロールを使ってお手軽にプログラミングするのは無理なのでしょうか。
アドバイス頂ければ幸いです。
■No23851に返信(Hongliangさんの記事)
> 2009/01/23(Fri) 15:08:08 編集(投稿者)
>
>>スクロールバーをドラッグ中に画像が更新されず､ドラッグを止めた
>>位置で描画になってしまいます。
> あれ、私の環境だと随時更新されたんですけど。
>
私が最初に作ったのはフォームにPanelを貼り付けて、その上にPictureBoxを
貼り付けて、ボタンをフォームにおいてコードは下記の通りです。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Load("test01.bmp")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Panel1.AutoScroll = True
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
End Sub
End Class
私の環境ではスクロールバーの■のドラッグ中は画像は元のままでドラッグを
やめたら1回更新されるだけです。
何か根本的なことを忘れてるのでしょうか。
■No23854に返信(H.K.R.さんの記事) > 私のPC（XPHome）で試したところ、 > 画面のプロパティ−デザイン−効果−ドラッグ中にウィンドウの内容を表示する > のチェックを外すと、ひで46さんと同様、スクロールバーのつまみをドラッグ中は画像が更新されなくなりました。 > > ひで46さんのPCの設定を確認してみてください。 > > ＃ もし外れていたらすみません。 H.K.R. さま、情報ありがとうございます。 おっしゃるように画面のプロパティ−デザイン−効果− 「ドラッグ中にウィンドウの内容を表示する」のチェックを 入れたら更新されるようになりました。 ただ、速度は速くなりませんでした。 英語サイトも見なくてはと、検索して A picture viewer class that can scroll and zoom using API http://www.codeproject.com/KB/miscctrl/Picture_Viewer.aspx?display=PrintAll というのがヒットしました。 ダウンロードしたら高速にスクロールしてます。 応用できるか分かりませんが､英語ですが詳しい説明が書いてあるので、 調べてみたいと思います。
魔界の仮面弁士様
情報ありがとうございました。
TextureBrushというのは全く知りませんでした。
Paintイベントは下記のコードでズーミング機能を含めて十分高速な
プログラムができました。TextureBrush描画すごいです！！。
（なぜ、速くなるのか理解できていません）
'--------------------------------
' PictureBox1のPaintイベント
'
Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim rectD As New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height)
If m_MyBmp Is Nothing Then
Exit Sub
End If
m_Texture.ResetTransform()
m_Texture.TranslateTransform(-HScrollBar1.Value, -VScrollBar1.Value)
With e.Graphics
.ScaleTransform(m_ZoomF, m_ZoomF)
.FillRectangle(m_Texture, PictureBox1.ClientRectangle)
End With
End Sub
1点問題がありまして、拡大表示したときに、スムージングが掛かった画像になって
しまいます。DrawImageで描画時は下記の2つのMode設定で拡大時にドットが単純に
大きくなった画像が得られていました。
今回､TextureBrushに変えたら､どこに何を設定すれば良いのか分かりません。
With e.Graphics
.PixelOffsetMode = Drawing2D.PixelOffsetMode.Half
.InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor
.DrawImage(m_MyBmp, rectD, iHS, iVS, w, h, GraphicsUnit.Pixel)
End With
アドバイス頂ければ幸いです。
■No23870に返信(魔界の仮面弁士さんの記事) 魔界の仮面弁士様、ありがとうございます。 お示しいただいたコードを参考に望みの動作ができました。 今回は皆さんの書き込みで色々新しいことを知るきっかけができました。 ご教授ありがとうございました。
分類:[.NET]
画像ファイルのビューアを作っています。 フォームにPictureBoxとVScrollBar、HScrollBarを置いています。 ビットマップm_MyBmpに画像ファイルを別途ロードして PictureBoxのPaintイベントにてPictureBoxの描画領域に相当する 矩形領域をビットマップから切り出して描画しています（DrawImageメソッド使用）。 Paintイベントでのコードは下記の通りで問題なく動作します。 Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint Dim rectD As New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height) Dim w As Integer Dim h As Integer Dim iHS As Integer Dim iVS As Integer If m_MyBmp Is Nothing Then Exit Sub End If w = PictureBox1.ClientSize.Width / m_ZoomF 'm_ZoomF:ズーム倍率変数(1,2,4,8,16の何れか） h = PictureBox1.ClientSize.Height / m_ZoomF iHS = HScrollBar1.Value iVS = VScrollBar1.Value With e.Graphics .PixelOffsetMode = Drawing2D.PixelOffsetMode.Half .InterpolationMode = Drawing2D.InterpolationMode.NearestNeighbor .DrawImage(m_MyBmp, rectD, iHS, iVS, w, h, GraphicsUnit.Pixel) End With End Sub ところが巨大な画像ファイル（例えば16Kx4K）を開いたとき､パフォーマンスが 急激に落ちます。 Windowsアクセサリのペイントで同じ画像を開いてもスクロールなどは高速 なので、ＰＣの問題でなく､プログラムの作り方の問題のはずです。 ネットで調べてDrawImageは巨大画像ファイルで遅くなると知り､この部分を StretchBltを用いた処理にて置き換えたいと考えました。色々調べてやって いますが、うまくいきません。 Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint Dim rectD As New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height) Dim w As Integer Dim h As Integer Dim gS As Graphics Dim HDC_Src As IntPtr Dim HDC_Dst As IntPtr Dim hBmpSrcBackup As IntPtr If m_MyBmp Is Nothing Then Exit Sub End If HDC_Dst = CreateCompatibleDC(e.Graphics.GetHdc()) gS = Graphics.FromImage(m_MyBmp) HDC_Src = gS.GetHdc() hBmpSrcBackup = SelectObject(HDC_Src, m_MyBmp.GetHbitmap()) StretchBlt(HDC_Dst, 0, 0, w, h, HDC_Src, HScrollBar1.Value, VScrollBar1.Value, SRCCOPY) SelectObject(hBmpSrcBackup, m_MyBmp.GetHbitmap()) gS.ReleaseHdc(HDC_Src) e.Graphics.ReleaseHdc(HDC_Dst) End Sub このように書きましたが､何も描画されません。 アドバイスを頂きたく､よろしくお願いします。