¨¸ªù£«

[愛冒險的人馬]

Private Sub Group1_MouseMove(ByVal Button As Integer, ByVal Shift As Long, ByVal X As Double, ByVal Y As Double)
OpenPicture "歷史記錄選單.grf", "", "", ""
End Sub
Private Sub Group31_MouseMove(ByVal Button As Integer, ByVal Shift As Long, ByVal X As Double, ByVal Y As Double)
OpenPicture "控制模擬選單.grf", "", "", ""
End Sub
Private Sub Group32_MouseMove(ByVal Button As Integer, ByVal Shift As Long, ByVal X As Double, ByVal Y As Double)
OpenPicture "參數顯示選單.grf", "", "", ""
End Sub
Private Sub Group34_MouseMove(ByVal Button As Integer, ByVal Shift As Long, ByVal X As Double, ByVal Y As Double)
OpenPicture "警報指示選單.grf", "", "", ""
End Sub
Private Sub Group35_MouseMove(ByVal Button As Integer, ByVal Shift As Long, ByVal X As Double, ByVal Y As Double)
OpenPicture "趨勢圖表選單.grf", "", "", ""
End Sub
Private Sub Group36_MouseMove(ByVal Button As Integer, ByVal Shift As Long, ByVal X As Double, ByVal Y As Double)
OpenPicture "虛擬動作選單.grf", "", "", ""
End Sub
Private Sub Group37_MouseMove(ByVal Button As Integer, ByVal Shift As Long, ByVal X As Double, ByVal Y As Double)
OpenPicture "應用程式選單.grf", "", "", ""
End Sub
Private Sub Text36_Click()
OpenPicture "說明支援.grf", "", "", ""
End Sub
Private Sub Text37_Click()
OpenPicture "軟件清單.grf", "", "", ""
End Sub
Private Sub Text42_Click()
OpenPicture "流程路徑.grf", "", "", ""
End Sub
--------------------------------------------------------------
我想設........."表單"上mousemove 時....就closepiceure
他居然說cant save run mode
哇靠~~why????

我是要做........像win2k的......"開始"那種選單效果
mouse移到選單上後......移到 如 "程式集"這字上面時 又會跑出另一個選單
但是........當會跑出"選單",但.....mouse離開.....他不會消失
也就是....只會打開不會銷失........
怎麼辦???可以指點一下嗎?
--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: 240.c6.ethome.net.tw