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()

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

相关问答

Q1: 求大神指点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

Q2: 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信息，这个我不知道，你上网找找看

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

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

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

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

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

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

        '方法1

        Me.PictureBox1.ImageLocation = fn

        '方法2

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