建站
咨詢
售后
建站咨詢
新聞中心
用vb.net如何編寫圖片瀏覽器的基本步驟功能是：圖片的打開、顯示、縮放、旋轉(zhuǎn)。
窗體上放一個(gè)PictureBox，兩個(gè)CommandButton，一個(gè)FileListBox
我們提供的服務(wù)有：成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、外貿(mào)網(wǎng)站建設(shè)、微信公眾號(hào)開發(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" '可以瀏覽的文件類型，使用分號(hào)隔開
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
如果對(duì)您有幫助，請(qǐng)記得采納為滿意答案，謝謝！祝您生活愉快！
vaela
VB.NET自己做的網(wǎng)頁瀏覽器
vb.net2008， 網(wǎng)上找的，網(wǎng)頁沒加載完可能會(huì)出錯(cuò)
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)很不錯(cuò)了，人家勉強(qiáng)可以無償提供給你
“網(wǎng)頁縮放”，呵呵，樓主太天真了，人家有也不會(huì)把功能這么完善的給你！
誰愿意把自己辛辛苦苦做的東西送給人家呢！
建議樓主還是先去下載一個(gè)單窗口、能前進(jìn)、后退、刷新、地址欄的小作品！然后再在這個(gè)基礎(chǔ)上自己完善一下！
簡(jiǎn)單的可以提供給你，復(fù)雜的也有，但是不免費(fèi)提供！
如果樓主需要簡(jiǎn)單的，可以HI我！
新聞標(biāo)題：vb.net制作瀏覽器,vbnet web編程
分享路徑：http://ef60e0e.cn/article/dsgoscg.html
