【VB】利用MouseMove事件輕鬆實現Image與Picture的切換

來源:互聯網
上載者:User

作品展越來越近了,我們的作品《檔案管理專家》也已經成形了,正在努力完善中,也在期待著作品選拔~~~

作品裡有很多精華的東西,算是整個作品的亮點功能。比如說:介面表徵圖的切換(當滑鼠移動到表徵圖上時,表徵圖變大,反之,滑鼠離開後,表徵圖變回原來大小)

效果如下:

(一)首先,添加Image控制項,在Image控制項裡添加自己所需要的圖片;其次,在Image控制項上面覆蓋一層Picture控制項;最後,通過代碼實現二者的切換。

在Image的MouseMove事件裡編寫如下代碼:


Picture1(index).Top = Image1(index).Top - 100    

Picture1(index).Left = Image1(index).Left - 100

Picture1(index).Picture = Image1(index).Picture

Picture1(index).Visible = True


(二)通過裝載Image控制項的容器的MouseMove事件和Form的MouseMove事件讓表徵圖輕鬆切換

Image1(index).Visible=True

Picture1(index).Visible=False


(三)2所示,當滑鼠移動到表徵圖上時,會有ToolTipList彈出,但是為了讓彈出的文字更加好看,我們使用了“氣泡提示”

的方式,修改了Picture的ToolTipList的形狀,讓介面更加美觀。


一點一滴的積累,為了做出完美的作品,更是為了更深入的學習。

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.