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 回答日時： 2007/10/14 14:41

ピクチャボックスそのもののサイズを変更したいのであれば

ピクチャボックスの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
といった具合です

この回答へのお礼

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

お礼日時：2007/10/14 19:09

No.1 回答者： VERIMITAS 回答日時： 2007/10/14 12:37

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

補足日時：2007/10/14 13:54