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

窗體上放一個PictureBox，兩個CommandButton，一個FileListBox

我們提供的服務(wù)有：成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、外貿(mào)網(wǎng)站建設(shè)、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、碧江ssl等。為近千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的碧江網(wǎng)站制作公司

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自己做的網(wǎng)頁瀏覽器

vb.net2008， 網(wǎng)上找的，網(wǎng)頁沒加載完可能會出錯

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

WebBrowser1.Navigate("")

End Sub

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow

Dim urlNew

e.Cancel = True

urlNew = WebBrowser1.Document.ActiveElement.GetAttribute("href")

WebBrowser1.Navigate(urlNew)

End Sub

End Class

vb.net 編寫瀏覽器

我不得不說，樓主很貪心！

“選項(xiàng)卡”的已經(jīng)很不錯了，人家勉強(qiáng)可以無償提供給你

“網(wǎng)頁縮放”，呵呵，樓主太天真了，人家有也不會把功能這么完善的給你！

誰愿意把自己辛辛苦苦做的東西送給人家呢！

建議樓主還是先去下載一個單窗口、能前進(jìn)、后退、刷新、地址欄的小作品！然后再在這個基礎(chǔ)上自己完善一下！

簡單的可以提供給你，復(fù)雜的也有，但是不免費(fèi)提供！

如果樓主需要簡單的，可以HI我！