貼代碼啊,貼上加載兩個圖片框的代碼,有代碼才知道你加載圖片時錯在那里.下回提問要詳細周全,碰到了就回一下,但問題資料提供不全面會浪費時間也會浪費一個別人回答的機會,因為等你再提供更多資料時能回答的人就不一定在線了.下回再看到你這問題不知道等到什么時候了...
創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站制作、網(wǎng)站建設與策劃設計,白河網(wǎng)站建設哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設10余年,網(wǎng)設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:白河等地區(qū)。白河做網(wǎng)站價格咨詢:028-86922220
'初始化的時候添加事件
Private Sub Main_Load(....) Handles MyBase.Load
AddHandler pic_10.Click, New EventHandler(AddressOf Pic_Click)'pic_10為你自創(chuàng)建圖片的需放大的圖片名稱
End Sub
'自定義控件處理函數(shù)(注意TabIndex的編號)
Protected Sub Pic_10Click(ByVal sender As Object, ByVal e As EventArgs)
'在這放大圖片
pic_10.Width+=20
pic_10.Height+=20
End Sub
假定春夏秋冬四個按鈕分別是Command1、Command2、Command3、Command4,四個圖片框分別是Picture1、Picture2、Picture3、Picture4
Private?Sub?Command1_Click()
Picture1.Picture?=?LoadPicture("春的圖片路徑放在這")
End?Sub
Private?Sub?Command2_Click()
Picture2.Picture?=?LoadPicture("夏的圖片路徑放在這")
End?Sub
Private?Sub?Command3_Click()
Picture3.Picture?=?LoadPicture("秋的圖片路徑放在這")
End?Sub
Private?Sub?Command4_Click()
Picture4.Picture?=?LoadPicture("冬的圖片路徑放在這")
End?Sub
如果按鈕和圖片框弄成控件數(shù)組則程序會更簡單(四個圖片的文件名要改為1.jpg、2.jpg、3.jpg、4.jpg):
Private?Sub?Command1_Click(Index?As?Integer)
Picture1(Index).Picture?=?LoadPicture(App.Path??"\"??Index?+?1??".jpg")
End?Sub