哪位哥哥姐姐能帮我用VB6.0编一个“图片浏览器”？？？
来自： 更新日期：早些时候
请问怎样用vb6.0做一个图片浏览器，就是类似一个相册，点击下一张出现下一张图片，上一张出现上一张图片~
Private Sub Command1_Click()
Timer1.Interval = 6000
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
i = 0
End Sub
Private Sub Timer1_Timer()
Dim a As String
a = App.Path
If Right$(a, 1) <> "\" Then a = a & "\"
i = i + 1
Image1.Picture = LoadPicture(a & "xy" & ".bmp")
If i = 5 Then i = 0
End Sub
具体还是自己看书或者下载源代码吧！
www.vbgood.com里面有！
你是谁呀。我那有，有事给我发邮件吧
[email protected]
不是很难啊！！这些简单的东西自己去尝试一下效果会更好的
我这儿正好有个，不过是我1年前写的！
将以下代码保存为form1.frm用VB打开，再每个img（index）里添加你喜欢的图片运行就可以了！
''''''''''''''''''form1.frm''''''''''''''''''
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H00000000&
Caption = "Form1"
ClientHeight = 3510
ClientLeft = 5490
ClientTop = 3795
ClientWidth = 4620
LinkTopic = "Form1"
ScaleHeight = 234
ScaleMode = 3 'Pixel
ScaleWidth = 308
Begin VB.PictureBox Picture1
Height = 3000
Left = 750
ScaleHeight = 196
ScaleMode = 3 'Pixel
ScaleWidth = 196
TabIndex = 0
Top = 240
Width = 3000
Begin VB.Image img
Height = 3000
Index = 20
Left = 0
Picture = "Form1.frx":0000
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 19
Left = 0
Picture = "Form1.frx":2EB2
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 18
Left = 0
Picture = "Form1.frx":6534
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 17
Left = 0
Picture = "Form1.frx":8133
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 16
Left = 0
Picture = "Form1.frx":AE0C
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 15
Left = 0
Picture = "Form1.frx":F734
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 14
Left = 0
Picture = "Form1.frx":12DE7
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 13
Left = 0
Picture = "Form1.frx":15719
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 12
Left = 0
Picture = "Form1.frx":1885D
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 11
Left = 0
Picture = "Form1.frx":1C8A2
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 10
Left = 0
Picture = "Form1.frx":1F69A
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 9
Left = 0
Picture = "Form1.frx":22134
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 8
Left = 0
Picture = "Form1.frx":25323
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 7
Left = 0
Picture = "Form1.frx":29D8C
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 6
Left = 0
Picture = "Form1.frx":2CF5E
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 5
Left = 0
Picture = "Form1.frx":2EA3B
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 4
Left = 0
Picture = "Form1.frx":31A24
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 3
Left = 0
Picture = "Form1.frx":34645
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 2
Left = 0
Picture = "Form1.frx":377CB
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 1
Left = 0
Picture = "Form1.frx":3B81E
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 0
Left = 0
Picture = "Form1.frx":3FD06
Stretch = -1 'True
Top = 0
Width = 3000
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Click()
Call Form1.Refresh
End Sub
Private Sub Form_Load()
On Error Resume Next
Form1.BackColor = vbBlack
Form1.Show
DoEvents
For i = 0 To 20
img(i).Visible = False
Next i
Call p
Sleep (1000)
For i = 0 To 20
img(i - 1).Visible = False
Picture1.Refresh
img(i).Visible = True
DoEvents
Sleep (1000)
Call p
Next i
Picture1.Refresh
End Sub
Private Sub p()
For j = 0 To 200 Step 2
For i = 0 To 200 Step 1
Picture1.PSet (i, j), vbBlack
Next i
Next j
Sleep (1000)
End Sub
哪位哥哥姐姐能帮我用VB6.0编一个“图片浏览器”？？？视频
相关评论：13510402253：哪位哥哥姐姐能帮我用VB6.0编一个“图片浏览器”???
宣索纨Dim i As Integer Private Sub Command1_Click()Timer1.Interval = 6000 End Sub Private Sub Command2_Click()Timer1.Interval = 0 End Sub Private Sub Command3_Click()Unload Me End Sub Private Sub Form_Load()i = 0 End Sub Private Sub Timer1_Timer()Dim a As String a = App....
13510402253：哥哥姐姐们帮我快点解决一下这个vb好么?谢谢了
宣索纨首先楼主给的这些东西。都不完整的。就算给你解释了没用。程序是要有一个核心问题。就是要干什么。你最好是给一个连接。把全部文件打包然后提供下载。这样就ok了。然后就是楼主的简直无语。误导人。解释的都是什么= =+。这个一般就是vb6的 dim D(19),T(7) as string'声明数组D 和 T 为字符...
13510402253：用VB6编写声音、视频的进度控制
宣索纨启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌...
13510402253：求助:哪位哥哥姐姐能给小弟几个VISTER和XP的序列号…在此谢过啦…_百 ...
宣索纨vista要序列号没用,可以安装后下个破解工具来破解 xp professional序列号:TD7RW-2DVPJ-8FT87-JTY94-37DGB V4YV3-HXWFV-VCRHJ-99J79-CDG9G CFT9H-YDW6D-9YHFB-FBR79-G8RVW V63Q9-2PXT8-QC6YM-46VH8-DKTKW TCG9R-DDJ7K-P8Q37-94CC6-F4CKG R8GVF-QVPJB-6V6TV-CGHJ7-PDQFG ...
13510402253：我用得事VB6.0请问在窗体加载得时候如何清楚text1.text 的内容啊_百 ...
宣索纨方法一 在窗体中添加一个名为text的text控件，在属性窗口中将它的text属性置为空（你也可以修改其它属性），然后在text控件上点击右键，选择复制，再在窗体的空白区域单击右键，选择粘贴，此时会提示你是否创建控件数组，选择是。重复粘贴n次（根据需要），所有的text控件的text属性都是为空的。引用时用...
13510402253：明白的哥哥姐姐给点建议,现在我的笔记本是windows7系统,但是我是学习...
宣索纨别改，你再装xp，让电脑拥有双系统，这样win7 xp 混着用
13510402253：...但是不知道学哪一个编程语言,学VB,还是C语言 哥哥,姐姐们指导...
宣索纨如果你是想用计算机做一些比较基础的应用，比如做个家庭记账程序、图片浏览器或者简单的学习辅助工具之类的，那可以从VB或者Delphi下手。这两种语言都已经将很多基础功能封装起来供你使用，上手快了很多。而且，它们的未来发展潜力并不比C弱多少。VB是以Basic为基础的，Delphi是以Pascal为基础的。如果你的...
13510402253：VB编程,随机3个数,从大到小排列,哥哥姐姐帮帮忙了,谢了
宣索纨Private Sub Command1_Click()Dim s(1 To 3) As Integer, str As String, Max As Integer, Min As Integer Randomize Min = 10 For i = 1 To 3 s(i) = Int(Rnd * 10 + 1)str = str & s(i) & ","If s(i) > Max Then Max = s(i)If s(i) < Min Then Min = s(i...
13510402253：各位哥哥姐姐帮个忙,帮我解答下一《电路与模拟电子技术》部分题目,万 ...
宣索纨2.D。2V和2.7V可知，压降为0.7，是NPN管，2.7v的肯定是基极，无论是什么管，只要工作在放大区，那么就有Ve>Vb>Vc，可知为D。3.A。4.A。5.D。其实这题问得有点怪，有没有补充呢?6.B 7.C。耗尽型本身内部就有形成到点沟道。8.看不到图。9.B。10.D。11.正偏，反偏。12.饱和...
13510402253：写作文我喜欢的哥哥
宣索纨作文一：《我喜欢的哥哥》我有一个特别喜欢的哥哥，他是我的榜样和好朋友。他是一个聪明、乐观且努力的人。哥哥在学业方面非常出色。他总是能够取得优异的成绩，但他从不炫耀或傲慢。相反，他愿意与我分享他的学习方法和经验，帮助我提高自己的学习效果。他教会我如何合理规划时间，如何理解难题，并鼓励...
帮你搞定了，我的思路是把目录下所有文件名存入数组，然后依次读取，把20张图片合成一张然后读取比较麻烦，到不如放在一个文件夹中，然后隐藏这个文件夹，只要把我给你的源码中的FileName = Dir(FilePath)替换为FileName = Dir(FilePath, vbHidden)就可以获取到隐藏文件夹了
我跟你说一下图片浏览器流程。我感觉你的方案有严重问题，我们探讨一下。
imagelist虽然可以加载大图片，但很少通过它做浏览器的。imagelist主要用来存储一些诸如自定义图标等类的图形，用来设置按钮、树、listview等的图案。如果要浏览硬盘图片，那么你要把图片添加到imagelist中，然后在picturebox里显示，到下一张的时候，要清除imagelist里图片，这样造成很大的不必要的开销，我们应该直接从硬盘读图片文件，直接在picturebox里显示，抛弃imagelist。
你可以做一个目录浏览器，如果不会做或者嫌麻烦，那就用对话框打开一个路径，自动获取里面的图片文件，在窗口里显示。
首先你要获得图片文件的数量，用循环的方式，根据图片数量，设置横向预览数量，自动创建picturebox，然后为每个picturebox加载图片。这部分应该不难。
所有的picturebox可以放到一个容器里，如panel，设置panel自动出现滚动条，这样就可以显示所有图片了。
至于代码，做目录浏览器的麻烦一些，代码较多，生成图片较为简单。
你可以百度一下，网上有类似源码。我就不编写了，太多。
Private Sub Command1_Click()
Timer1.Interval = 6000
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
i = 0
End Sub
Private Sub Timer1_Timer()
Dim a As String
a = App.Path
If Right$(a, 1) <> "\" Then a = a & "\"
i = i + 1
Image1.Picture = LoadPicture(a & "xy" & ".bmp")
If i = 5 Then i = 0
End Sub
具体还是自己看书或者下载源代码吧！
www.vbgood.com里面有！
你是谁呀。我那有，有事给我发邮件吧
[email protected]
不是很难啊！！这些简单的东西自己去尝试一下效果会更好的
我这儿正好有个，不过是我1年前写的！
将以下代码保存为form1.frm用VB打开，再每个img（index）里添加你喜欢的图片运行就可以了！
''''''''''''''''''form1.frm''''''''''''''''''
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H00000000&
Caption = "Form1"
ClientHeight = 3510
ClientLeft = 5490
ClientTop = 3795
ClientWidth = 4620
LinkTopic = "Form1"
ScaleHeight = 234
ScaleMode = 3 'Pixel
ScaleWidth = 308
Begin VB.PictureBox Picture1
Height = 3000
Left = 750
ScaleHeight = 196
ScaleMode = 3 'Pixel
ScaleWidth = 196
TabIndex = 0
Top = 240
Width = 3000
Begin VB.Image img
Height = 3000
Index = 20
Left = 0
Picture = "Form1.frx":0000
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 19
Left = 0
Picture = "Form1.frx":2EB2
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 18
Left = 0
Picture = "Form1.frx":6534
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 17
Left = 0
Picture = "Form1.frx":8133
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 16
Left = 0
Picture = "Form1.frx":AE0C
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 15
Left = 0
Picture = "Form1.frx":F734
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 14
Left = 0
Picture = "Form1.frx":12DE7
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 13
Left = 0
Picture = "Form1.frx":15719
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 12
Left = 0
Picture = "Form1.frx":1885D
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 11
Left = 0
Picture = "Form1.frx":1C8A2
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 10
Left = 0
Picture = "Form1.frx":1F69A
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 9
Left = 0
Picture = "Form1.frx":22134
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 8
Left = 0
Picture = "Form1.frx":25323
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 7
Left = 0
Picture = "Form1.frx":29D8C
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 6
Left = 0
Picture = "Form1.frx":2CF5E
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 5
Left = 0
Picture = "Form1.frx":2EA3B
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 4
Left = 0
Picture = "Form1.frx":31A24
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 3
Left = 0
Picture = "Form1.frx":34645
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 2
Left = 0
Picture = "Form1.frx":377CB
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 1
Left = 0
Picture = "Form1.frx":3B81E
Stretch = -1 'True
Top = 0
Visible = 0 'False
Width = 3000
End
Begin VB.Image img
Height = 3000
Index = 0
Left = 0
Picture = "Form1.frx":3FD06
Stretch = -1 'True
Top = 0
Width = 3000
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Click()
Call Form1.Refresh
End Sub
Private Sub Form_Load()
On Error Resume Next
Form1.BackColor = vbBlack
Form1.Show
DoEvents
For i = 0 To 20
img(i).Visible = False
Next i
Call p
Sleep (1000)
For i = 0 To 20
img(i - 1).Visible = False
Picture1.Refresh
img(i).Visible = True
DoEvents
Sleep (1000)
Call p
Next i
Picture1.Refresh
End Sub
Private Sub p()
For j = 0 To 200 Step 2
For i = 0 To 200 Step 1
Picture1.PSet (i, j), vbBlack
Next i
Next j
Sleep (1000)
End Sub
哪位哥哥姐姐能帮我用VB6.0编一个“图片浏览器”？？？视频
相关评论：
宣索纨Dim i As Integer Private Sub Command1_Click()Timer1.Interval = 6000 End Sub Private Sub Command2_Click()Timer1.Interval = 0 End Sub Private Sub Command3_Click()Unload Me End Sub Private Sub Form_Load()i = 0 End Sub Private Sub Timer1_Timer()Dim a As String a = App....
宣索纨首先楼主给的这些东西。都不完整的。就算给你解释了没用。程序是要有一个核心问题。就是要干什么。你最好是给一个连接。把全部文件打包然后提供下载。这样就ok了。然后就是楼主的简直无语。误导人。解释的都是什么= =+。这个一般就是vb6的 dim D(19),T(7) as string'声明数组D 和 T 为字符...
宣索纨启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌...
宣索纨vista要序列号没用,可以安装后下个破解工具来破解 xp professional序列号:TD7RW-2DVPJ-8FT87-JTY94-37DGB V4YV3-HXWFV-VCRHJ-99J79-CDG9G CFT9H-YDW6D-9YHFB-FBR79-G8RVW V63Q9-2PXT8-QC6YM-46VH8-DKTKW TCG9R-DDJ7K-P8Q37-94CC6-F4CKG R8GVF-QVPJB-6V6TV-CGHJ7-PDQFG ...
宣索纨方法一 在窗体中添加一个名为text的text控件，在属性窗口中将它的text属性置为空（你也可以修改其它属性），然后在text控件上点击右键，选择复制，再在窗体的空白区域单击右键，选择粘贴，此时会提示你是否创建控件数组，选择是。重复粘贴n次（根据需要），所有的text控件的text属性都是为空的。引用时用...
宣索纨别改，你再装xp，让电脑拥有双系统，这样win7 xp 混着用
宣索纨如果你是想用计算机做一些比较基础的应用，比如做个家庭记账程序、图片浏览器或者简单的学习辅助工具之类的，那可以从VB或者Delphi下手。这两种语言都已经将很多基础功能封装起来供你使用，上手快了很多。而且，它们的未来发展潜力并不比C弱多少。VB是以Basic为基础的，Delphi是以Pascal为基础的。如果你的...
宣索纨Private Sub Command1_Click()Dim s(1 To 3) As Integer, str As String, Max As Integer, Min As Integer Randomize Min = 10 For i = 1 To 3 s(i) = Int(Rnd * 10 + 1)str = str & s(i) & ","If s(i) > Max Then Max = s(i)If s(i) < Min Then Min = s(i...
宣索纨2.D。2V和2.7V可知，压降为0.7，是NPN管，2.7v的肯定是基极，无论是什么管，只要工作在放大区，那么就有Ve>Vb>Vc，可知为D。3.A。4.A。5.D。其实这题问得有点怪，有没有补充呢?6.B 7.C。耗尽型本身内部就有形成到点沟道。8.看不到图。9.B。10.D。11.正偏，反偏。12.饱和...
宣索纨作文一：《我喜欢的哥哥》我有一个特别喜欢的哥哥，他是我的榜样和好朋友。他是一个聪明、乐观且努力的人。哥哥在学业方面非常出色。他总是能够取得优异的成绩，但他从不炫耀或傲慢。相反，他愿意与我分享他的学习方法和经验，帮助我提高自己的学习效果。他教会我如何合理规划时间，如何理解难题，并鼓励...
