我不得不说,楼主很贪心!
创新互联是一家专业提供太康企业网站建设,专注与做网站、成都网站建设、HTML5建站、小程序制作等业务。10年已为太康众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。
“选项卡”的已经很不错了,人家勉强可以无偿提供给你
“网页缩放”,呵呵,楼主太天真了,人家有也不会把功能这么完善的给你!
谁愿意把自己辛辛苦苦做的东西送给人家呢!
建议楼主还是先去下载一个单窗口、能前进、后退、刷新、地址栏的小作品!然后再在这个基础上自己完善一下!
简单的可以提供给你,复杂的也有,但是不免费提供!
如果楼主需要简单的,可以HI我!
窗体上放一个PictureBox,两个CommandButton,一个FileListBox
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
我说选把打开多个图片路径加载到一个listbox里,利用listbox写代码
Private Sub picbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If ListBox1.SelectedIndex = count Then
Try
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Catch
ListBox1.SelectedIndex = 0
End Try
End If
picbox.Image = ListBox1.SelectedItem.ToString
End Sub
如下两种方法,
1,
采用默认的浏览器打开FTP站点,不需要知道IE在什么地方,建议采用。
Shell("rundll32
url.dll
FileProtocolHandler
")
2,采用IE打开,只要更改为你的ie路径就可以了。不建议使用这个方法。
Shell("C:\Program
Files\Internet
Explorer\iexplore.exe
")