VB.NETのPictureBoxのスクロールで発生した不具合（？）の解決

Question

前提・実現したいこと

VB.NETのPictureBoxのスクロールで発生した不具合（？）の解決をしたいです。
※他に代替案があればご教示願います。

発生している問題・エラーメッセージ

VB.NETのPanelにPictureBoxを配置し、BitMap画像を描画。
その画像を水平スクロールバーでスクロールする際に
スクロールバーの移動値分、PictureBoxの位置をずらして
スクロールを実現している。
ところが、PictureBoxのサイズがある範囲（-32768 ～ +32767）を越えると
スクロールが不可能になる。
※下記のコードであれば、PictureBox.Leftに-32768以下の数値を設定不可能となり、
それ以上先にスクロールができない。

該当のソースコード

フォーム作成し、そこに500×200くらいのPanelを配置。
その下に、HScrollBarを配置

Imports System
Imports System.Drawing.Printing

Public Class Form1

    Private pic1 As PictureBox

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '画像設定
        pic1 = New PictureBox
        pic1.Size = New Size(40000, Panel1.Height)
        pic1.Location = New Point(0, 0)
        Panel1.Controls.Add(pic1)
        Dim bm1 As New Bitmap(pic1.Width, pic1.Height)
        Dim g As Graphics = Graphics.FromImage(bm1)

        'スクロールが分かりやすいように目盛を描画
        For index = 0 To 40000 Step 100
            g.DrawString(index.ToString(), New Font("MS ゴシック", 10), Brushes.Black, index, 100)
        Next

        'リソースを解放する
        g.Dispose()

        '作成した画像を表示する
        pic1.Image = bm1

        '水平スクロールバーの設定
        HScrollBar1.Maximum = 40000
        HScrollBar1.SmallChange = 100
        HScrollBar1.LargeChange = 1000


    End Sub

    Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll

        '左にスクロール
        If e.Type = ScrollEventType.LargeDecrement OrElse e.Type = ScrollEventType.SmallDecrement Then
            pic1.Left = pic1.Left + (e.OldValue - e.NewValue)
            Return
        End If
        '右にスクロール
        If e.Type = ScrollEventType.LargeIncrement OrElse e.Type = ScrollEventType.SmallIncrement Then
            pic1.Left = pic1.Left - (e.NewValue - e.OldValue)
            Return
        End If


    End Sub
End Class

Answer 1

WM_MOVE message

The low-order word contains the x-coordinate while the high-order word contains the y coordinate.

x 座標 y 座標ともにワード(-32768～32767)という Windows の制限があります。

Comments

[Zuishin]

解決方法はいろいろあると思いますが、私なら PictureBox に巨大な画像を入れるのをやめてスクロールバーの値に合わせて画像の該当する部分を描画するようにします。

[obaq]

ご回答ありがとうございます。こんな制限があるとは知りませんでした。

Answer 2

Windowsのメッセージによる制限だと思われます。
Control.Left等の位置、サイズに関わるプロパティはintで宣言されていますが
WM_MOVEやWM_SIZE等のWindowsメッセージはLParamの上位、下位で位置や大きさを表現し、shortの範囲の値しかとれない形になります。

このため、大きいコントロールの場合は、複数のコントロールを繋げてそれらしく見えるようにするしかないのではないかと思います。

もしくは、ビットマップを直接描画する形にすれば、この制限にはかからないと思います。

Comments

[obaq]

ご回答ありがとうございます。こんな制限があるとは知りませんでした。