从品牌网站建设到网络营销策划,从策略到执行的一站式服务
贴代码啊,贴上加载两个图片框的代码,有代码才知道你加载图片时错在那里.下回提问要详细周全,碰到了就回一下,但问题资料提供不全面会浪费时间也会浪费一个别人回答的机会,因为等你再提供更多资料时能回答的人就不一定在线了.下回再看到你这问题不知道等到什么时候了...
创新互联是一家专注于成都网站制作、网站建设与策划设计,白河网站建设哪家好?创新互联做网站,专注于网站建设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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图