投稿日 | : 2007/01/07(Sun) 16:41 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: Appearanceについて |
> 私の したかった事は通常フラットで
> マウスポインターが上に行くと3Dになる様にしたかったのです。
だったら下記でもいいのでは。
Private Sub Form_Load()
Picture1.Appearance = 0
Picture1.ZOrder vbBringToFront
Picture1.Move 1000, 1000, 1500, 500
Command1.Move 1000, 1000, 1500, 500
End Sub
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Picture1.Visible = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Picture1.Visible = False
End Sub