vb.net文件浏览器,VBNET下载

用vb.net如何编写图片浏览器的基本步骤功能是:图片的打开、显示、缩放、旋转。

窗体上放一个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

在vb.net下怎么制作一个图片浏览器,根据用户选择的文件夹,程序自动搜索改文件夹下的图片文件。

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

vb.net 编写浏览器

我不得不说,楼主很贪心!

“选项卡”的已经很不错了,人家勉强可以无偿提供给你

“网页缩放”,呵呵,楼主太天真了,人家有也不会把功能这么完善的给你!

谁愿意把自己辛辛苦苦做的东西送给人家呢!

建议楼主还是先去下载一个单窗口、能前进、后退、刷新、地址栏的小作品!然后再在这个基础上自己完善一下!

简单的可以提供给你,复杂的也有,但是不免费提供!

如果楼主需要简单的,可以HI我!

VB.net,我想用 WebBrowser直显示word文档

webbrowser本身是不可能直接显示word的,webbrowser就是个浏览器的内核,只具备基本的浏览器功能,能解析html跟常见的javascript..

功能强大的firefox, IE9也不能直接显示word, 你看到的百度文库里显示的word,有些是转换了html显示出来的,有些是转成了一种flash格式……

还有邮箱里的预览功能,有的是采用的microsoft 的web office app, 有的是永中office..这些都是购买的服务器软件支持……

.更古老的方式是做浏览器Activ X插件……

vb.net如何重置IE浏览器设置?或vb.net如何设置IE浏览器忽略网页上指定的

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


新闻名称:vb.net文件浏览器,VBNET下载
网页网址:http://ybzwz.com/article/dsijcdd.html