タイトル | : Re: ピクチャボックスのサイズ変更 |
記事No | : 9890 |
投稿日 | : 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
|