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

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

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

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

Public Class Form1

Private TPS As Integer

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

Private Sub LoadPhoto()

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

Dim JS As Integer '計數(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個元素的值

End Sub

vb.net 編寫瀏覽器

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

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

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

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

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

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

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

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

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

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

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

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

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

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

'啟動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