PB中完成圖片按鈕的mousemove事件
發表時間:2023-08-18 來源:明輝站整理相關軟件相關文章人氣:
[摘要]四川省綿陽市 李萬昌 ---- PB中除窗口(window)和富文本(richtextedit)具有mousemove事件外,其他控件都不接收ousemove事件。在某些程序中,可能會對按鈕進行動態...
四川省綿陽市 李萬昌
---- PB中除窗口(window)和富文本(richtextedit)具有mousemove事件外,其他控件都不接收ousemove事件。在某些程序中,可能會對按鈕進行動態的圖片切換,如:鼠標移到按鈕上時,切換按鈕的圖片以實現動感。
---- 創建一個用戶自定義對象(User Object),取名uo_picbutton,其上放一個Picture控件(p_1)。選中p_1,定義用戶自定義事件(user events),在event name中輸入mousemove, 由下面的Paste Event ID中選取pbm_mousemove放入Event ID欄。自此,p_1的事件欄中增加了事件mousemove,在其中編程:
---- p_1.picturename="c:\圖片_over.bmp" //鼠標移動到p_1上時要顯示的圖片
---- 關閉user object,新建一個窗口,添加剛才建成的user object(uo_1).在form的open事件中編程:
---- uo_1.p_1.picturename="c:\圖片_up.bmp" //初始圖片
---- 在form的mousemove事件中編碼:
---- uo_1.p_1.picturename="c:\圖片_up.bmp" //恢復原來的圖片
---- 這樣,運行時一旦鼠標移動到該控件上就會變換圖片,從而產生動態效果。只要在uo_picbutton的mousemove事件中增加兩三句代碼,可以使其成為通用的圖片按鈕;添加user event事件,并拷貝下面列出的事件ID(event id),可以生成更多的原本不能接收的事件。