質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

89.64%

VB.NETのPictureBoxのスクロールで発生した不具合(?)の解決

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 926

obaq

score 9

前提・実現したいこと

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
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

+3

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 の制限があります。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/12/21 07:51

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

    キャンセル

  • 2018/12/22 22:18

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

    キャンセル

+1

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/12/22 21:56

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

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 89.64%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る