vb.net预览ug图,ug文件预览图

用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

相关问答

Q1: 怎样用vb.net做一个图片浏览器？

在自定义工具箱中选择dirlistbox，drivelistbox，filelistbox，添加这3个控件，然后在窗体上添加这些控件和一个picturebox控件，代码如下：

Public Class Form1

Private Sub DirListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.SelectedIndexChanged

FileListBox1.Path = DirListBox1.Path

End Sub

Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged

DirListBox1.Path = DriveListBox1.Drive

End Sub

Private Sub FileListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles FileListBox1.SelectedIndexChanged

PictureBox1.Image = Image.FromFile(FileListBox1.Path + "\" + FileListBox1.SelectedItem.ToString())

End Sub

End Class

你可以自己在修改下，这只是个模型，呵呵！

Q2: UG文件没有预览图片，只有UG图标，怎么才能预览

系统里的预览功能想要支持ug，是需要通过注册dll文件到系统里才能实现的。而你的ug在安装的时候确实注册了dll文件到系统里。但注册的预览dll文件是32位，32位的预览dll是不支持64位系统的。所以不能在系统内直接预览。解决的方式是去找64位ug的dll预览支持文件，替换，并重新注册在系统里。或者安装64位ug。

Q3: 在VB.NET中浏览图片

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

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

Q4: 如何用外部代码如VB.net启动UG并修改零件参数

用Process.Start可以打开指定文件

Process.Start(My.Application.Info.DirectoryPath() "\***.***")

用Shell也可以打开指定文件

Shell("C:\123.exe", 1)

Q5: 怎么获得ug文件的预览图片？

将你在UG中所作的PRT图和对应的JPG同时保存到数据库中，然后通过列表空间，将所有ptr文件列出来，然后你点击的时候，同时用Picture控件将jpg图形显示出来！