13518219792
窗体上放一个PictureBox，两个CommandButton，一个FileListBox
成都创新互联专注为客户提供全方位的互联网综合服务，包含不限于成都网站建设、网站建设、肥东网络推广、成都小程序开发、肥东网络营销、肥东企业策划、肥东品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联为所有大学生创业者提供肥东建站搭建服务，24小时服务热线：18980820575，官方网址：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
Public Class Form1
Private TPS As Integer
Private TPPath() As String '定义不确定元素个数组，及动态数组
Private Sub LoadPhoto()
'将图片路径及图片名加载到数组
Dim JS As Integer '计数用
For Each foundFile As String In My.Computer.FileSystem.GetFiles(CurDir() "\职员图片")
TPS = TPS + 1 '将图片数存入变量中
Next
ReDim TPPath(TPS - 1) '确定数组大小
For Each FoundFile As String In My.Computer.FileSystem.GetFiles(CurDir() "\职员图片")
'将图片路径存入数组
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 '获取数组大小
Label1.Text = TPPath(1) '获取数组中第2个元素的值
End Sub
我不得不说，楼主很贪心！
“选项卡”的已经很不错了，人家勉强可以无偿提供给你
“网页缩放”，呵呵，楼主太天真了，人家有也不会把功能这么完善的给你！
谁愿意把自己辛辛苦苦做的东西送给人家呢！
建议楼主还是先去下载一个单窗口、能前进、后退、刷新、地址栏的小作品！然后再在这个基础上自己完善一下！
简单的可以提供给你，复杂的也有，但是不免费提供！
如果楼主需要简单的，可以HI我！
webbrowser本身是不可能直接显示word的，webbrowser就是个浏览器的内核，只具备基本的浏览器功能，能解析html跟常见的javascript..
功能强大的firefox, IE9也不能直接显示word, 你看到的百度文库里显示的word,有些是转换了html显示出来的，有些是转成了一种flash格式……
还有邮箱里的预览功能，有的是采用的microsoft 的web office app, 有的是永中office..这些都是购买的服务器软件支持……
.更古老的方式是做浏览器Activ X插件……
VB.NET调用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结束
p.WaitForExit()
另一种VB.NET调用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
