代码实现图片幻灯播放（幻灯片图片展示教程）

本篇文章给大家谈谈代码实现图片幻灯播放，以及幻灯片图片展示教程对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、动作按钮可以实现ppt的自动播放？
• 2、用JAVA在界面中实现幻灯片播放，求代码
• 3、如何制作简易的HTML5幻灯片
• 4、PPT如何使用VBA实现幻灯片随机播放
• 5、VB怎样实现图片幻灯播放？

动作按钮可以实现ppt的自动播放？

动作按钮实现ppt自动播放需要利用VBA编程，具体操作步骤如下：

1、按Ctrl+F11组合键打开VBA编辑器；

2、依次单击“插入”--“模块”，并输入代码如下：

Sub Play()

ActivePresentation.SlideShowSettings.Run

End Sub

3、回到PPT界面依次单击“插入”--“图形”--“插入动画按钮”；

4、在PPT上画出按钮后自动弹出“操作设置”对话框，选择“运行宏”（这个时候会自动出现Play的宏）。

设置图如下：

代码图如下：

用JAVA在界面中实现幻灯片播放，求代码

要让照片随机播放,需要把照片名改成比如photo1.jpg,photo2.jpg,photo3.jpg...的有序号顺序排列的文件名,

然后把改名后的照片文件放到你的项目名的目录下,比如你的项目名叫"slideshow",你就把照片文件放到slideshow文件夹下.

最后把下面的Java程序拷贝到你的项目中,把有DD类名的地方改成你的类名,就行了.

完整的让一些照片在JFrame窗体里自动随机播放的幻灯片程序如下

(我用的图片文件是photo1.jpg,photo2.jpg,photo3.jpg,注意事项在注释中注明

import java.awt.Graphics;

import javax.swing.ImageIcon;

import javax.swing.JFrame;

public class DD extends JFrame implements Runnable{

ImageIcon ii=new ImageIcon("photo1.jpg");//这里换成你的图片文件名,放在你的项目名的文件夹中

DD(){

super("Slide");

setSize(400, 400);

setLocationRelativeTo(null);

setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

setVisible(true);

}

public void paint(Graphics g){

super.paint(g);

g.drawImage(ii.getImage(),0,0,400,400,null);

}

@Override

public void run() {

while(true){

try {

Thread.sleep(500);//这里是幻灯片播放间隔的时间,这里为500毫秒=0.5秒

} catch (InterruptedException e) {

e.printStackTrace();

}

int i=(int)(Math.random()*3)+1;//这里是产生从1-3的随机数,如果你有6个图片文件,把3改成6就是从1-6的随机数了.

ii=new ImageIcon("photo"+i+".jpg");//这里调用你的图片文件,如果你有6个图片文件,改成从1-6的文件名方便调用

this.repaint();

}

}

public static void main(String[] args) {

DD d=new DD();

Thread t=new Thread(d);

t.start();

}

}

如何制作简易的HTML5幻灯片

你需要一款简单易用的幻灯片演示制作工具，比如Focusky，这个软件支持输出多种格式，包括HTML/*.EXE/*.ZIP/*.APP/视频/PDF/H5等，应用很方便。

如何利用Focusky制作简易的HTML5幻灯片？有2种方式，一种是自定义创建幻灯片内容，一种是直接套用模板编辑制作，简单易上手，推荐使用。打开软件，登录账号，选择合适的幻灯片模板进行套用，替换模板原有内容，设置动画特效，就可以输出HTML5幻灯片。

另外，Focusky在演示上还支持3D幻灯片演示特效，可以打破传统的PPT切换方式，只需加入生动酷炫的3D镜头缩放、旋转和平移特效就可以使幻灯片像3D电影般播放，给人以视觉冲击感。

PPT如何使用VBA实现幻灯片随机播放

1、启动PowerPoint 2013并打开演示文稿，该演示文稿已经完成了标题页的制作和题目的添加。使用技巧429介绍的方法在幻灯片中添加一个按钮控件，并在“属性”面板中更改控件的“Caption”属性值。

2、右击幻灯片中的按钮控件，选择快捷菜单中的“查看代码”命令，在打开的Visual Basic编辑器的代码窗口中输入程序代码。具体的程序代码如下。

01 Private Sub CommandButton1_Click()

02 Dim i As Integer,n As Integer'定义变量

03 i=Int((6*Rnd)+1)'获取1～6间的随机数

04 Randomize'初始化随机数

05 i=Int((6*Rnd)+1)'初始化后再次生成1～6间的随机数

06 n=i+1'向变量n赋值，该值为幻灯片的编号

07 With SlideShowWindows(1)

08.View.GotoSlide n'跳转到指定编号的幻灯片

09 End With

10 End Sub

3、复制标题页中的按钮，将其粘贴到第二张幻灯片中，然后在“属性”面板中更改控件的“Caption”属性值。

4、右击幻灯片中的按钮控件，选择快捷菜单中的选择“查看代码”命令。在打开的Visual Basic编辑器的代码窗口中为按钮添加Click事件响应程序。具体的程序代码如下。

01 Private Sub CommandButton1_Click()

02 With SlideShowWindows(1)

03 .View.GotoSlide 1'跳转到第一张幻灯片

04 End With

05 End Sub

5、将第二张幻灯片中的按钮复制到其后的幻灯片中，使用与步骤④相同的方法为这些按钮添加事件响应程序后，按“F5”键播放幻灯片，在标题页中单击“出题”按钮，PowerPoint将随机跳转到其后的一张幻灯片显示题目;单击题目页中的“回到首页”按钮，如图6所示，将跳转回出题页。

希望通过以上方法步骤大家可以学会制作随机播放PPT幻灯片的方法。

VB怎样实现图片幻灯播放？

主要问题是获得文件列表吧？ 可以参照： 这个可以指定扩展名。 他是把文件完整路径的列表显示在listbox里了。你把listbox换成公共数组变量就行。 如果你保证文件夹里都是图片的话，也可以用下面的方法： [工程]--[引用]里添加“Microsoft Scripting Runtime”。 添加代码： ============================================== Dim myFiles() As String '存文件名列表的数组 Private Function GetFolderFiles(Path As String) As Integer 'path 文件夹路径 '返回文件夹中文件的个数 '如果要计算子文件夹可以通过 fldr.SubFolders 访问，方法类似 Dim n As Integer, i As Integer, j As Integer Dim fso As New FileSystemObject Dim fldr As Folder Dim fls As Files Dim fl As File '读取文件 Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.GetFolder(Path) Set fls = fldr.Files n = fls.Count If n 0 Then ReDim myFiles(n - 1) i = 0 For Each fl In fls myFiles(i) = fl.Name i = i + 1 Next End If GetFolderFiles = n End Function ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 界面构成，简单填个PictureBox，填两个按钮。 Command1是上一页，Command2是下一页。 并把两个按钮的Enable属性设为False。 在最上面加以下变量声明： Dim sPath As String '文件夹路径 Dim myCount As Integer '记录当前图片编号 Dim myNum As Integer '文件总数 写Form_Load(): ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Private Sub Form_Load() sPath = "E:\dyxq\pic\" '此处改为你要指定的路径（记得最后加\） myNum = GetFolderFiles(sPath) If myNum = 0 Then Exit Sub myCount = 0 Picture1.Picture = LoadPicture(sPath myFiles(myCount)) Command2.Enabled = True End Sub ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 添加两个按钮的Click事件代码： ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Private Sub Command1_Click() myCount = myCount - 1 Picture1.Picture = LoadPicture(sPath myFiles(myCount)) If myCount = 0 Then Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() myCount = myCount + 1 Picture1.Picture = LoadPicture(sPath myFiles(myCount)) If myCount = myNum - 1 Then Command2.Enabled = False Command1.Enabled = True End Sub ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 就可以啦！！ 如果是幻灯片式的自动播放的话要加个Timer控件，设好时间间隔，在Timer1_Timer()编代码让程序定时自动改变显示的图片就行了。

关于代码实现图片幻灯播放和幻灯片图片展示教程的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。