[如何制作豆贴画]工具/原料：各色豆类及干果类东东、卡纸、剪子、胶水（强力）、笔、盒子（衬衣一类） 1、选用与想制作的画相应的卡纸，大小适中，颜色能衬托画的卡纸。 2、在卡纸上先画出想要的图形轮廓...+阅读
简单点的啊。窗体上放一个timer1、一个picture1和一个file1控件，然后复制下列代码即可。
Const DR As String = ＂G：\下载＂ '图片所在文件夹
Dim NI As Integer
Private Sub Form_Load()
File1.Visible = False
File1.Path = DR
Timer1.Interval = 1000
Timer1.Enabled = True
NI = 0
Picture1.Picture = LoadPicture(File1.Path & ＂\＂ & File1.List(NI))
End Sub
Private Sub Timer1_Timer()
NI = NI + 1
If NI >File1.ListCount - 1 Then NI = 0
Picture1.Picture = LoadPicture(File1.Path & ＂\＂ & File1.List(NI))
End Sub
注意如果图片太大的话可能显示不全，需要再添加一下代码。
以下为关联文档：
制作电子手抄报用什么软件最好WORD或PHOTOSHOP 没有的话，网上下载吧 一、准备素材 (1)选择好手抄报的主题.本任务以”旅游家”为主题. (2)文挡：云南简介.doc，云南十八怪.doc，滇池风景区.doc，路南石林风景区.do...
怎样用VB做一个图片浏览器Public Class Form1 Dim i As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click i = i - 1 If (i...
怎么用VB做图片浏览器VB6.0实现图片旋转 使用过ACDSEE的朋友一定对它的JPG图片旋转功能记忆犹新，其实我们利用VB6的先进功能，可以对任意格式的图片文件（包括JPG、GIF、BMP、ICO等）进行45度、180度旋...
如何用VB调用windows图片浏览器Private Sub Command1_Click() Dim strPicPath As String strPicPath = ＂C:\Documents and Settings\Administrator\My Documents\My Pictures\1.jpg＂ strPicPath = ＂＂＂＂ & strPic...
怎么用vb编写一个图片浏览器呢Dim i% '用按钮更换图片 Private Sub Command1_Click() i = i + 1 If i > 5 Then i = 0 Image1.Picture = LoadPicture(App.Path & ＂\0＂ & i & ＂.jpg＂) End Sub '初始化 Private...
vb编程制作一个简单的图片浏览器上学期的作业，现在在电脑里，我把代码复制下 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Pri...
怎样制作VB图象浏览器用全局变量保存目前的图片编号 用Timer控件实现定时切换图片 Dim N As Integer Private Sub Command1_Click() Timer1.Enabled = Not Timer1.Enabled If Timer1.Enabled The...
vb怎么用ListBox和image做一个图片浏览器Private Sub List1_Click() Select Case List1.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path & ＂\0.jpg＂) Case 1 Image1.Picture = LoadPicture(App.Path & ＂\1.j...
怎样去做一个VB的图片浏览器啊。。Private Sub Form_Load() '初始化两个图片框的位置 PicFather.Move 0, 0, ScaleWidth - VScroll1.Width, ScaleHeight - HScroll1.Height PicSon.Move 0, 0 '将子图片框移到...
