3.22效果预览

amwyq 发表于: 2009-3-22 16:17 来源: 扑奔PPT网

amwyq 发表于 2009-3-22 16:19:16

Private Sub Cmd1_Click()
SlideShowWindows(1).View.EraseDrawing
Opt1.Value = False
Opt2.Value = False
Opt3.Value = False
Opt4.Value = False
Opt5.Value = False
Opt6.Value = False
Opt7.Value = False
Opt8.Value = False
End Sub
Private Sub Cmd2_Click()
If Cmd2.Caption = "关闭音乐" Then
back.Controls.stop
Cmd2.Caption = "打开音乐"
Else
back.Controls.Play
Cmd2.Caption = "关闭音乐"
End If
End Sub

Private Sub Cmd3_Click()
If Cmd3.Caption = "显示帮助" Then
Lbl1.Caption = "　　点击图下的小圆，然后点击单词上面的小圆！"
Cmd3.Caption = "隐藏帮助"
Else
Lbl1.Caption = ""
Cmd3.Caption = "显示帮助"
End If
End Sub

Private Sub Opt5_GotFocus()
If Opt2.Value = True Then
SlideShowWindows(1).View.DrawLine 372, 210, 300, 370
Else
Opt2.Value = False
Wrong.Controls.Play
End If
End Sub
Private Sub Opt6_GotFocus()
If Opt4.Value = True Then
SlideShowWindows(1).View.DrawLine 530, 210, 375, 370
Else
Opt4.Value = False
Wrong.Controls.Play
End If
End Sub

Private Sub Opt7_GotFocus()
If Opt1.Value = True Then
SlideShowWindows(1).View.DrawLine 297, 210, 452, 370
Else
Opt1.Value = False
Wrong.Controls.Play
End If
End Sub
Private Sub Opt8_GotFocus()
If Opt3.Value = True Then
SlideShowWindows(1).View.DrawLine 452, 210, 530, 370
Else
Opt3.Value = False
Wrong.Controls.Play
End If
End Sub

amwyq 发表于 2009-3-22 16:35:30

我扣好的PNG透明图片和提示声音

(2009-03-22 16:35:30, Size: 208 KB, Downloads: 152)

huaxianziyuemei 发表于 2009-3-22 19:02:18

:$ :$ :$ :$

jack0421 发表于 2009-3-22 21:11:10

我的作业


[ 本帖最后由 jack0421 于 2009-9-18 20:45 编辑 ]

390 KB, 下载次数: 101)

连线.jpg

春天里的太阳 发表于 2009-3-22 21:19:28

谢谢你，思索老师，听了这么多次，只有这一次跟上做对了。谢谢。

[ 本帖最后由 春天里的太阳 于 2009-3-22 21:21 编辑 ]

连线 题.gif

230 KB, 下载次数: 68)

090322连线题.jpg

amwyq 发表于 2009-3-22 21:30:51

真棒

XS88 发表于 2009-3-22 22:32:08

老师辛苦了,第一次交VB作业...

 

(2009-03-22 22:32:08, Size: 232 KB, Downloads: 64)

丰雪 发表于 2009-3-22 23:38:21

老师辛苦了

 

(2009-03-22 23:38:21, Size: 150 KB, Downloads: 75)

飞过海0234 发表于 2009-3-24 18:29:40

很实用 !!!谢谢

春天里的太阳 发表于 2009-3-29 21:38:01

我做的加减法，就回在这里了。做好了，好开心。

+-.gif

19.2 KB, 下载次数: 24)