从品牌网站建设到网络营销策划,从策略到执行的一站式服务
将图形加载到 Image 控件中可通过以下两种方法实现。
专注于为中小企业提供成都做网站、成都网站制作、成都外贸网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业中宁免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上1000家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
1)设计时从控件的“属性”窗口中选择 Picture 属性,
在image控件属性窗口对Picture属性进行设置-点右侧小按钮
选择图片-打开,图片就加载到Image控件。
2)在运行时使用 Picture 属性和 LoadPicture 函数都可将图形加载到 Image 控件。
Private Sub Form_Load()
Image1.Picture = LoadPicture("c:\Sunset.jpg", vbLPLarge, vbLPColor)
End Sub
先用image对象在后台加载。完了后赋给picturebox.image. 音乐文件类似用filestream
1 在工具箱把OpenFileDialog和SaveFileDialog拖到窗体,此处设定其名称为OpenDlg和SaveDlg;
2 触发Button的点击事件,或PictureBox的点击事件,其对应的方法
OpenDlg.Filter = "图片文件(*.jpg,*.gif,*.bmp)|*.jpg|*.gif|*.bmp" '这是限定图片的格式
If OpenDlg.ShowDialog() = DialogResult.OK Then
Me.pictureBox1.image = image.fromFile(OpenDlg.FileName)
EndIf
3 保存图片
If SaveDlg.ShowDialog = DialogResult.OK Then
Me.pictureBox1.image.Save(SaveDlg.FileName, "") '第二个参数是图片格式
EndIf
纯手打,若拼写错误,那是很正常的。还有问题, 请追问。
'先建立一个bitmap对象,指向图像文件
Dim pic As Bitmap = New Bitmap("e:\1.jpg")
'定义一个图片框的graphics对象
Dim g As Graphics = PictureBox1.CreateGraphics()
'在图片框上绘图
g.DrawImage(pic, 0, 0, pic.Width, pic.Height)
'释放bitmap对象
pic.Dispose()
'现在即可对文件进行操作
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图