用vb.net如何編寫圖片瀏覽器的基本步驟功能是：圖片的打開、顯示、縮放、旋轉(zhuǎn)。

窗體上放一個(gè)PictureBox，兩個(gè)CommandButton，一個(gè)FileListBox

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、李滄網(wǎng)絡(luò)推廣、成都微信小程序、李滄網(wǎng)絡(luò)營銷、李滄企業(yè)策劃、李滄品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供李滄建站搭建服務(wù)，24小時(shí)服務(wù)熱線：13518219792，官方網(wǎng)址：www.cdcxhl.com

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 '目錄中只有一張圖片時(shí)只顯示這一張

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做一個(gè)圖片瀏覽器？

在自定義工具箱中選擇dirlistbox，drivelistbox，filelistbox，添加這3個(gè)控件，然后在窗體上添加這些控件和一個(gè)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

你可以自己在修改下，這只是個(gè)模型，呵呵！

UG文件沒有預(yù)覽圖片，只有UG圖標(biāo)，怎么才能預(yù)覽

系統(tǒng)里的預(yù)覽功能想要支持ug，是需要通過注冊dll文件到系統(tǒng)里才能實(shí)現(xiàn)的。而你的ug在安裝的時(shí)候確實(shí)注冊了dll文件到系統(tǒng)里。但注冊的預(yù)覽dll文件是32位，32位的預(yù)覽dll是不支持64位系統(tǒng)的。所以不能在系統(tǒng)內(nèi)直接預(yù)覽。解決的方式是去找64位ug的dll預(yù)覽支持文件，替換，并重新注冊在系統(tǒng)里。或者安裝64位ug。

在VB.NET中瀏覽圖片

轉(zhuǎn)換成位圖肯定是可以瀏覽的，WMF文件沒試過。

你可以將圖片以二進(jìn)制形式存儲在數(shù)據(jù)庫中，如果是SQL Server，對應(yīng)字段的類型應(yīng)該是image。

如何用外部代碼如VB.net啟動(dòng)UG并修改零件參數(shù)

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

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

用Shell也可以打開指定文件

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

怎么獲得ug文件的預(yù)覽圖片？

將你在UG中所作的PRT圖和對應(yīng)的JPG同時(shí)保存到數(shù)據(jù)庫中，然后通過列表空間，將所有ptr文件列出來，然后你點(diǎn)擊的時(shí)候，同時(shí)用Picture控件將jpg圖形顯示出來！