PPT课件交互实例：拖动图片

谭笑风生 发表于: 2008-2-10 19:19 来源: 扑奔PPT网

lz371 发表于 2008-3-08 09:31:11

啥意思啊？什么动作都没有

美丽东营 发表于 2008-3-13 23:22:43

学习中 学习中 ```````

boboo8405 发表于 2008-3-25 14:23:58

gmgg            vhm

寻梦 发表于 2008-4-30 22:05:24

哈，动感老师好有趣呀，最近正在做这个拖放效果，不错呢，FLASH能做的，PPT也可以做，好象代码也差不多呀！

fengwuwen 发表于 2008-5-11 19:51:09

QUOTE:

原帖由 寻梦 于 2008-4-30 22:05 发表
哈，动感老师好有趣呀，最近正在做这个拖放效果，不错呢，FLASH能做的，PPT也可以做，好象代码也差不多呀！

flash 效果挺好的

lcyjxjs 发表于 2008-5-28 21:46:43

学习一下代码，看看
我的代码是：

Dim X1, X2, X3, X4, X5, X6 As Integer, Y1, Y2, Y3, Y4, Y5, Y6 As Integer, Down As Boolean
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Not Down Then
    X4 = X
    Y4 = Y
    Down = True
    End If
End Sub
    Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Down Then
    Image1.Left = Image1.Left + X - X4
    Image1.Top = Image1.Top + Y - Y4
    X4 = X
    Y4 = Y
    End If
    End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Down = False
    SlideShowWindows(1).View.First
End Sub

yuhu520 发表于 2008-5-28 22:20:22

学习学习。再学习

amichen 发表于 2008-8-24 09:50:33

怎么点了都没反映？？？？

lwfcom 发表于 2008-8-25 18:49:24

真得不错，学习啦！！！！！！

salix 发表于 2008-9-22 00:40:29

先看看再说。这个应该不会太容易。

ly27ssh 发表于 2008-10-06 10:25:49

非常值得好好进行研究，感谢楼主。

byxxdrls 发表于 2009-3-01 15:17:17

楼主的那个好像不行，还是lcyjxjs的好。谢谢啦

peacewyj 发表于 2009-3-01 17:58:56

能互动，不错，呵呵，学习下

haciq 发表于 2009-3-02 23:49:34

谢谢提供！学习中...

flyhc 发表于 2009-3-05 14:24:10

thank you so much!!!

hailaerqu 发表于 2009-4-23 21:40:32

什么效果呀什么效果呀什么效果呀

hellsen 发表于 2009-5-12 22:01:17

顶!
看看先

第三方媒体 发表于 2009-5-14 11:17:07

说的蛮有趣的下来学习一下。

第三方媒体 发表于 2009-5-14 11:18:55

没达到楼主说的效果，是不是版本不对？俺用03

realzch 发表于 2009-5-14 16:05:48

我也看不出什么效果，？？？试试前面提供的代码