ドラッグを用いての拡大/縮小 ピクチャボックスについて

質問

QNo.2999555の続きの質問です。元の質問のコピーと共に質問します。

>VB6.0により、プログラムの実行後、フォームウィンドウの端（角）を>ドラッグすることにより、(ボタンやボックスを含め)全体を拡大，縮
>小させることはできますでしょうか？
>フォームウィンドウの端からのドラッグはデフォルトでも出来るので
>すが、フォームウィンドウのみが拡大,縮小されてしまい，ボタンやボ>ックスは元の大きさのままになってしまいます。

この質問については、Form_resize イベントに
Public Sub Form_Resize_Ctl(KmForm As Object, _
OrgSize As ReSize_Tag)
Dim ParH As Double ' 縦比率
Dim ParW As Double ' 横比率
Dim KmControl As Control ' フォームのコントロール
Dim OrgFont As Double ' フォントサイズ退避
ElseIf TypeOf KmControl Is Line Then ' Line
.X1 = .X1 * ParW
.X2 = .X2 * ParW
.Y1 = .Y1 * ParH
.Y2 = .Y2 * ParH
ElseIf TypeOf KmControl Is PictureBox Then ' PictureBox
.FontSize = .FontSize * ParW
Select Case .Align
Case 0 '
.Top = .Top * ParH
.Left = .Left * ParW
.Height = .Height * ParH
.Width = .Width * ParW
　　　　　　　　　　　　　　　　　　　　　　　…
等と拡大・縮小処理を記述し、解決したかと思ったのですが、
プログラム実行以前からのラインはしっかり拡大・縮小されるのですが、
実行後にピクチャボックス内に描画したラインは指定した座標に描かれたまま、周りのコントロールや文字のみが拡大・縮小されてしまいました。ラインの描画は折れ線グラフとして用いているのですが、
描画したラインのみがその場にそのままの大きさで留まってしまいます。
プログラム実行後に描画したラインも拡大・縮小は可能でしょうか？

ご教授、お願いします。

回答No.2

KG_ · ベストアンサー

参考URLにサンプルが載っていますのでご覧になってみてください。

参考URL：

http://www.microsoft.com/japan/msdn/vbasic/migration/tips/Image/

回答No.1

KG_

ControlのLineとPictureBox上に引いた線は別物です。
PictureBoxに描いた線は画像の拡大処理等を行わないといけないかと
思います。

それとも、動的に増やしたLineコントロールの拡大縮小ができないのでしょうか。

補足

画像の拡大処理構文を追加しなければいけないのですね
アドバイス、ありがとうございます！

picturebox自体の拡大・縮小処理は上記の通り書いたのですが、
今回のような場合、どのように記述すれば良いのでしょうか？
もしよろしければご教授お願いします。