在自定义工具箱中选择dirlistbox,drivelistbox,filelistbox,添加这3个控件,然后在窗体上添加这些控件和一个picturebox控件,代码如下:
创新互联拥有一支富有激情的企业网站制作团队,在互联网网站建设行业深耕10年,专业且经验丰富。10年网站优化营销经验,我们已为1000多家中小企业提供了网站制作、成都网站建设解决方案,按需网站制作,设计满意,售后服务无忧。所有客户皆提供一年免费网站维护!
Public Class Form1
Private Sub DirListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.SelectedIndexChanged
FileListBox1.Path = DirListBox1.Path
End Sub
Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged
DirListBox1.Path = DriveListBox1.Drive
End Sub
Private Sub FileListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles FileListBox1.SelectedIndexChanged
PictureBox1.Image = Image.FromFile(FileListBox1.Path + "\搏信岩" + FileListBox1.SelectedItem.ToString())
End Sub
End Class
你可以自己在修改下,这只是坦悉个模型,呵呵!基御
webbrowser本身是不可运游兄能直接显示word的,webbrowser就是个浏览器的内核,只具备基本的浏览器功能,能解析html跟常见的javascript..
功能强大的firefox, IE9也不能直接显示word, 你看到的百度文库里显示的word,有些是转换了html显示出来的,有些是转旁袭成磨野了一种flash格式……
还有邮箱里的预览功能,有的是采用的microsoft 的web office app, 有的是永中office..这些都是购买的服务器软件支持……
.更古老的方式是做浏览器Activ X插件……
当然不行,那个是整个网页的
要这样猜正
web1=webbrowser1
For i = 0 To Web1.Document.All.Count - 1
'要具体判陪枣断是哪芦兆拆个控件还要看这两个
'Web1.Document.All(i).TagName
'Web1.Document.All(i).Name
Text1.Text=Web1.Document.All(i).InnerText
Next i