tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: ピクチャボックスのサイズ変更
投稿日: 2010/02/19(Fri) 18:28
投稿者花ちゃん
> このサイトのサンプルにあります。
> ペイントのキャンパスのようにサイズを変えられるものです。

>ちなみに、調べてみましたが、やり方が見つかりませんでした

その上に、タイトルバー付のピクチャーボックスを作成 というのがありませんでしたか?
VB6.0で Win32 API 関数を使って作成していた物を、.NET 用に移植したものですが。

要は、ドラッグした時に、ピクチャーボックスのサイズを変更すればいいだけですよね。
(どこをドラッグした時にどのようにサイズを変更するかだけで)

簡単な方法なら下記でもできます。
又は、Anchor プロパティ を使うとか。

( http://hanatyan.sakura.ne.jp/dotnet/mouse02.htm の応用です。)
( http://hanatyan.sakura.ne.jp/patio/read.cgi?no=181 でも同じ)
Private PicPoint As Point
Private PicWidth As Integer
Private PicHeight As Integer
Private Sub PictureBox1_MouseDown(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
   If e.Button = System.Windows.Forms.MouseButtons.Left Then
      PicPoint = New Point(e.X, e.Y)
      PicWidth = PictureBox1.Width
      PicHeight = PictureBox1.Height
   End If
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
   If e.Button = System.Windows.Forms.MouseButtons.Left Then
      Dim w As Integer = e.X - PicPoint.X
      Dim h As Integer = e.Y - PicPoint.Y
      PictureBox1.Width = PicWidth + w
      PictureBox1.Height = PicHeight + h
   End If
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。