十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
贴代码啊,贴上加载两个图片框的代码,有代码才知道你加载图片时错在那里.下回提问要详细周全,碰到了就回一下,但问题资料提供不全面会浪费时间也会浪费一个别人回答的机会,因为等你再提供更多资料时能回答的人就不一定在线了.下回再看到你这问题不知道等到什么时候了...
创新互联是一家专注于成都网站制作、网站建设与策划设计,白河网站建设哪家好?创新互联做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:白河等地区。白河做网站价格咨询:028-86922220
'初始化的时候添加事件
Private Sub Main_Load(....) Handles MyBase.Load
AddHandler pic_10.Click, New EventHandler(AddressOf Pic_Click)'pic_10为你自创建图片的需放大的图片名称
End Sub
'自定义控件处理函数(注意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
如果按钮和图片框弄成控件数组则程序会更简单(四个图片的文件名要改为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