vb.net打开jpg,vbnet word

VB.NET加载图片问题

'先建立一个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()

'现在即可对文件进行操作

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

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

VB2008读取文件夹中所有文件JPG

用Microsoft.VisualBasic.FileIO.Filesystem.GetFiles方法。在文件名参数写"*.jpg"就行了。返回ReadOnlyCollection。记住:READONLYCOLLECTION的Item属性最大值为Count-1不是count

然后用for循环将readonlycollection的项添加到ListBox控件。把邮箱给我,过两天把代码发给你

代码

On Error Resume Next'最好使用VB.NET 的Try catch语句块

dim Loopint1 as integer,tmpstr1,tmpstr3 as string

Dim flist As System.Collections.ObjectModel.ReadOnlyCollection(Of String)

fList=Microsoft.VisualBasic.FileIO.FileSystem.GetFiles(gfPath, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")

x = flist.Count

For LoopInt1 = 0 To x - 1 '循环控制

tmpstr3 = "" '清空属性字符串

tmpstr1 = flist.Item(LoopInt1)

IntInStr = InStrRev(tmpstr1, "\")

tmpstr2 = Microsoft.VisualBasic.Strings.Right(tmpstr1, Len(tmpstr1) - IntInStr)'只得到文件名,如果要完整路径就要循环里第二行即可

Listbox1.Items.Add(tmpstr2)'添加内容

Next

'其实完全可以制作一个VB6的文件列表框,加上Listview,资源管理器也是可以做的,只不过图标控制比较麻烦而已

'照相时间要获得EXIF信息,这个我不知道,你上网找找看

vb.net如何将JPG文件缩放至不大于指定的字节数

1.我有个思路可以尝试一下:把一张字节数在280-300K的图片用PS打开看看像素大小;

2.定义一个新的位图,指定像素大小为上面得到的数据;

3.读取你需要修改大小的JPG文件,然后按指定大小复制到上面新建的位图,并保存为JPG格式

VB.Net 如何用代码为picturebox 打开一张图片

Dim fn As String = "D:\test.jpg"

'方法1

Me.PictureBox1.ImageLocation = fn

'方法2

Me.PictureBox1.Image = Image.FromFile(fn)


本文名称:vb.net打开jpg,vbnet word
分享网址:http://pwwzsj.com/article/hoipge.html