投稿日 | : 2007/07/03(Tue) 19:16 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: コマンドボタンの拡大 |
下記を試してみたら。
Private Sub Command1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Command1.Height = 800
Command1.Width = 2000
End Sub
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Command1.Height = 800 Then
Command1.Height = 500
Command1.Width = 1500
End If
End Sub
参考の為、お聞きしますが、改行処理をされていないようですが
どうしてなのでしょうか?
投稿画面の注意書きはご覧になったのでしょうか?