成都创新互联网站制作重庆分公司

vb.net向后浏览图片 vb程序设计图片浏览器

求大神指点vb.net 怎么以指定方式打开图片呢?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

成都创新互联成立于2013年,我们提供高端成都网站建设成都网站制作成都网站设计公司、网站定制、网络营销推广小程序开发、微信公众号开发、成都网站推广服务,提供专业营销思路、内容策划、视觉设计、程序开发来完成项目落地,为柴油发电机企业提供源源不断的流量和订单咨询。

'建立新的系统进程    

Dim process As New System.Diagnostics.Process()

If RadioButton1.Checked Then

'设置文件名,此处为图片的真实路径+文件名    

process.StartInfo.FileName = "c:\a.bmp"

'设置进程运行参数    

process.StartInfo.Arguments = "rundll32.exe shimgvw.dll"

Else

process.StartInfo.FileName = "mspaint.exe"

process.StartInfo.Arguments = "c:\a.bmp"

End If

'此项为是否使用Shell执行程序,因系统默认为true,此项也可不设,但若设置必须为true    

'process.StartInfo.UseShellExecute = True

'此处可以更改进程所打开窗体的显示样式,可以不设    

'process.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden

process.Start()

process.Close()

End Sub

用vb.net如何编写图片浏览器的基本步骤功能是:图片的打开、显示、缩放、旋转。

窗体上放一个PictureBox,两个CommandButton,一个FileListBox

Private Sub Command1_Click()

If File1.ListIndex = 0 Then

ShowPic File1.ListCount - 1

Else

ShowPic File1.ListIndex - 1

End If

End Sub

Private Sub Command2_Click()

If File1.ListIndex = File1.ListCount - 1 Then

ShowPic 0

Else

ShowPic File1.ListIndex + 1

End If

End Sub

Private Sub Form_Load()

File1.Visible = False

File1.Pattern = "*.jpg;*.gif" '可以浏览的文件类型,使用分号隔开

File1.Path = App.Path '改成你需要浏览的目录,比如"C:\Pic"

If File1.ListCount 1 Then '目录中图片在两张以上可以浏览

ShowPic 0

Exit Sub

ElseIf File1.ListCount = 1 Then '目录中只有一张图片时只显示这一张

ShowPic 0

End If

Command1.Enabled = False

Command2.Enabled = False

End Sub

Private Sub ShowPic(Index As Long)

File1.ListIndex = Index

Picture1.Picture = LoadPicture(File1.Path "\" File1.List(Index))

End Sub

如果对您有帮助,请记得采纳为满意答案,谢谢!祝您生活愉快!

vaela

在VB.NET中浏览图片

转换成位图肯定是可以浏览的,WMF文件没试过。

你可以将图片以二进制形式存储在数据库中,如果是SQL Server,对应字段的类型应该是image。

VB.net如何调用资源文件(resx)里的图片?

放在解决方案资源管理器还没完。进入项目属性,资源,把解决方案资源管理器里的资源文件拖进来,改个便于调用的名称,然后My.Resources里面就可以调用了。如果是VS可以识别的,那么就直接是Bitmap类型的,可以隐式转换成Image类型。


新闻标题:vb.net向后浏览图片 vb程序设计图片浏览器
转载注明:http://cxhlcq.com/article/doiighj.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部