VISUAL BASIC 滑鼠顯示圖案問題

2010-07-03 12:41 am

大家好, 我有一個PICTUREBOX1 它已經設好了, 背景圖案和IMAGELOCAITON已經有了圖案,

請問如果我用PICTUREBOX的CLICK事件
按CLICK
如果目前顯示的是背景圖案, 要把它顯示IMAGELOCATION的圖案, 請問怎樣做好

謝謝

更新1:

謝謝, 我的版本是VB.NET 2008 我的程式碼是已經訂好的是 changePictureButton picturebox1."背景圖案" = "ABC.GIF" picturebox1.imageLocation = "CDE.GIF"

更新2:

我的psuedo code 是: Private Sub ChangePicture handles changePicture.click if pictureBox1. 是 "背景圖案" 的話 pictureBox1.imageLocation 是 "CDE.GIF" 如果是顯示"CDE.GIF" 的話, 就改為 pictureBox1. image 是"背景圖案" "ABC.GIF" 就是這樣

更新3:

謝謝, 試過您提供的資料, 但是不行喲.

回答 (1)

[匿名]

2010-07-05 6:51 pm

✔ 最佳答案

ㄜ...你的版本是哪一版阿= =??

雖然不清楚你的版本...不過應該還是可以寫啦

Dim Tm as Object

(Form_Load)

Tm = PictureBox.Picture ' 把PictureBox.Picture存進Tm裡

(PictureBox_Click)

If PictureBox.Picture = Tm Then'如果PictureBox.Picture=Tm，代表PictureBox.Picture等於原來設的背景
PictureBox.Picture = PictureBox.ImageLocation'換成ImageLocation的圖案
End If

2010-07-09 10:38:20 補充：
恩...那這樣子應該也是可以的，先把Pic的圖片存在變數中，然後再用變數來比對是不是原圖，如果是的話就換圖，如果不是的話就不動。
照這樣的想法應該是可以的，因為我用的是VB6.0，雖然我也有想過要學VB.NET，但是...不是我要說，真的不好學，光是2005就被搞的好複雜，所以我到現在還是用6.0XD

2010-07-09 10:39:36 補充：
If PictureBox.Picture = Tm Then'如果PictureBox.Picture=Tm，代表PictureBox.Picture等於原來設的背景
PictureBox.Picture = PictureBox.ImageLocation'換成ImageLocation的圖案
else '如果不是
PictureBox.Picture = Tm '換回來
End If

2010-07-09 10:40:36 補充：
喔喔 SOR
Picture1.Picture 要改成Picture1.Image
抱歉抱歉

👍 0 👎 0