返回列表下一主題上一主題發帖

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

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 »

發表於 2012-9-5 13:44 | 顯示全部帖子

當滑鼠指到CheckBox1的時候跳出一張圖~該如何下判斷式?

當滑鼠指到CheckBox1的時候跳出圖1
當滑鼠移開CheckBox1的時候關閉圖1

當滑鼠指到CheckBox2的時候跳出圖2
當滑鼠移開CheckBox2的時候關閉圖2

以此類推~

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

2^#

發表於 2012-9-6 16:08 | 顯示全部帖子

回復 4# Hsieh

太強了~

有點深奧~我看不太懂~努力學習中!

如何在Image2內放2張圖?

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

3^#

發表於 2012-9-10 09:47 | 顯示全部帖子

回復 7# yangjie

大大~謝謝你~

可是我測試了一下
      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
好像沒有效果~我確定是在Userform1底下運行~

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

4^# 倒序看帖

打印

字體大小: tT

發表於 2012-9-11 13:53 | 顯示全部帖子

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

Private Sub Userform1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Picture = LoadPicture("")

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")

由於每當滑鼠移動到的每一次~Image1會一直閃爍~是否有辦法讓他只判斷一次?當有改變時~再次判斷~再次改變!

1 評分人數