VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -