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

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

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

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下怎么制作一個(gè)圖片瀏覽器，根據(jù)用戶選擇的文件夾，程序自動(dòng)搜索改文件夾下的圖片文件。

Public Class Form1

Private TPS As Integer

Private TPPath() As String '定義不確定元素個(gè)數(shù)組，及動(dòng)態(tài)數(shù)組

Private Sub LoadPhoto()

'將圖片路徑及圖片名加載到數(shù)組

Dim JS As Integer '計(jì)數(shù)用

For Each foundFile As String In My.Computer.FileSystem.GetFiles(CurDir() "\職員圖片")

TPS = TPS + 1 '將圖片數(shù)存入變量中

Next

ReDim TPPath(TPS - 1) '確定數(shù)組大小

For Each FoundFile As String In My.Computer.FileSystem.GetFiles(CurDir() "\職員圖片")

'將圖片路徑存入數(shù)組

TPPath(JS) = FoundFile

JS = JS + 1

Next

End Sub

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

LoadPhoto()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Text = TPPath.Length '獲取數(shù)組大小

Label1.Text = TPPath(1) '獲取數(shù)組中第2個(gè)元素的值

End Sub

vb.net 編寫瀏覽器

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

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

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

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

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

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

如果樓主需要簡(jiǎn)單的，可以HI我！

VB.net,我想用 WebBrowser直顯示word文檔

webbrowser本身是不可能直接顯示word的，webbrowser就是個(gè)瀏覽器的內(nèi)核，只具備基本的瀏覽器功能，能解析html跟常見的javascript..

功能強(qiáng)大的firefox, IE9也不能直接顯示word, 你看到的百度文庫(kù)里顯示的word,有些是轉(zhuǎn)換了html顯示出來(lái)的，有些是轉(zhuǎn)成了一種flash格式……

還有郵箱里的預(yù)覽功能，有的是采用的microsoft 的web office app, 有的是永中office..這些都是購(gòu)買的服務(wù)器軟件支持……

.更古老的方式是做瀏覽器Activ X插件……

vb.net如何重置IE瀏覽器設(shè)置？或vb.net如何設(shè)置IE瀏覽器忽略網(wǎng)頁(yè)上指定的

VB.NET調(diào)用IE代碼示例：

Dim p As New Process

'獲得URL

aURL = GetURL()

'獲得IE路徑

p.StartInfo.FileName =

System.Environment.

GetFolderPath( _

Environment.SpecialFolder.

ProgramFiles).Trim() _

"\Internet Explorer\

IEXPLORE.EXE"

p.StartInfo.Arguments

= aDenURL

'啟動(dòng)IE

'p.Start(aDenURL)

p.Start()

'主程序開始等待IE結(jié)束

p.WaitForExit()

另一種VB.NET調(diào)用IE的方法

Imports System.Threading

Private Sub Button1_Click(ByVal

sender As System.Object, ByVal e

As System.EventArgs) Handles

Button1.Click

Dim webobj As Object

webobj = CreateObject("Internet

Explorer.Application")

With webobj

.visible = True

.Navigate2(";)

Do While (.busy Or .readyState 4)

Thread.Sleep(100)

Loop

.Document.f.q.Value = Me.TextBox1.Text

.Document.f.btng.Click()

End With

MsgBox("completed.")

End Sub

網(wǎng)站名稱：vb.net文件瀏覽器,VBNET下載
鏈接URL：http://chinadenli.net/article11/dsijcdd.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供軟件開發(fā)、App設(shè)計(jì)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站收錄、外貿(mào)建站、網(wǎng)站設(shè)計(jì)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)