Picture box の サイズを変更

質問

お世話になります。 VB6 でform1 上に Picture1 を貼付け
ボタンを押すとPicture Boxのサイズを変更したいのですが
上手くサイズが変更されません。何か根本的な間違いでしょうか
よろしくお願いします。
例：
Yoko = 600
Tate = 480

Private Sub Command1_Click()
With Picture1
.ScaleMode = 3　'
.Width = Yoko
.Height = Tate
End With
End Sub

回答No.2

redfox63 · ベストアンサー

ピクチャボックスそのもののサイズを変更したいのであれば
ピクチャボックスのScaleModeではなく、ピクチャボックスのコンテナであるフォームのScaleModeを変更してからWidth/Heightpropertyを設定しましょう

Private Sub Command1_Click()
　　Dim org
　　org = Me.ScaleMode
　　Me.ScaleMode = 3
　　With PictureBox1
　　　　.Width = Yoko.Text
　　　　.Height = Tate.Text
　　End With
　　Me.ScaleMode = org
End Sub
といった具合です

お礼

ありがとうございます。
イメージ通りの処理ができました。

回答No.1

VERIMITAS

Yoko = 600
Tate = 480 という変数はどこで宣言していますか？

Private Sub Command1_Click()の外で宣言している場合、
「Private Yoko as Integer」のように
Privateを先頭につけて宣言しなければ変数の中身が消えてしまいます。

または、Private Sub Command1_Click()の中で宣言すれば
うまくいくと思います。

補足

すみません。記述を省略してしまいました。
テキストボックスに入力した内容でサイズを変化したいと思います。

Private Sub Command1_Click()
With Picture1
.ScaleMode = 3　'
.Width = val(Yoko.text)
.Height = val(Tate.text)
End With
End Sub