返回列表 上一主題 發帖

[發問] 如何讓滑鼠移入的判斷只判斷一次~當有改變時~再改變!?

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 »
發表於 2012-9-6 02:08 | 顯示全部帖子
回復 1# av8d
個人曾經用過如此作法

Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
         Image1.Picture = LoadPicture("")   
         Image1.Picture = LoadPicture(ThisWorkbook.Path & "\圖庫\規格1.JPG")
Private Sub CheckBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        Image1.Picture = LoadPicture("")   
         Image1.Picture = LoadPicture(ThisWorkbook.Path & "\圖庫\規格2.JPG")
僅能在CheckBox1    CheckBox2  上作文章
功力僅到此 至於游標到其他空白處做 Image1.Picture = LoadPicture("")   卸載圖片   我就不會了

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2012-9-6 02:11 | 顯示全部帖子
回復  av8d
個人曾經用過如此作法

Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal ...
yangjie 發表於 2012-9-6 02:08

須先在userform1中作一個 image的物件

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2012-9-6 23:09 | 顯示全部帖子
回復 6# Hsieh
漂亮
H大大的"而表單與物件的MOUSEMOVE事件不會同時存在
                  就可依此做為是否觸及物件的參考"
讓我想到如此作法
         Private Sub Userform1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
                  Image1.Picture = LoadPicture("")   
        end sub
        Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
                  Image1.Picture = LoadPicture("")   
                  Image1.Picture = LoadPicture(ThisWorkbook.Path & "\圖庫\規格1.JPG")
         end sub
         Private Sub CheckBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
                 Image1.Picture = LoadPicture("")   
                 Image1.Picture = LoadPicture(ThisWorkbook.Path & "\圖庫\規格2.JPG")
        end sub
  即可一離開CheckBox1的範圍 即刻 卸載圖形

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題