vb点虐 调用图片 在vb窗体上显示图片的代码

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

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

站在用户的角度思考问题，与客户深入沟通，找到福鼎网站设计与福鼎网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站制作、做网站、企业官网、英文网站、手机端网站、网站推广、国际域名空间、虚拟主机、企业邮箱。业务覆盖福鼎地区。

'建立新的系统进程    

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点虐 中，如何像下图一样，用很简单的办法，导入1000张图片。

很简单的方法，貌似没有。这个需要自己写很多代码：

用一个ListView控件。

判断滚动条当前所显示的图片集合，获取它们的物理路径。

用Bitmap.FromImage方法把这些图片读出来，

然后获取缩略图，

把缩略图用Graphics.DrawImage()绘制出来。

我可以提供Bitmap如何获取缩略图的方法：

''' summary必须创建一个委托并将对此委托的引用作为获取缩略图 callback 参数传递，但不使用此委托。/summary

Public Function ThumbnailCallback() As Boolean

Return False

End Function

''' summary返回Image，表示图像指定 宽 和 高 的缩略图。/summary

Public Function 获取缩略图(位图 As Bitmap, 宽 As Integer, 高 As Integer) As Image

Dim myCallback As New Image.GetThumbnailImageAbort(ThumbnailCallback)

Return 位图.GetThumbnailImage(宽, 高, myCallback, IntPtr.Zero)

End Function

VB点虐 如何调用资源文件(resx)里的图片？

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

分享名称：vb点虐 调用图片 在vb窗体上显示图片的代码
URL地址：http://shouzuofang.com/article/ddicgio.html