ÈçºÎÓÃvb²¥·Å»ÃµÆƬ
ÈçºÎÈûõÆƬÔÚvbµÄ¿ò¼ÜÀï²¥·Å
'Microsoft PowerPoint 9.0(Office 2000µÄ£¬Èç¹ûÊÇ97ÔòÊÇ8.0) Object Library)
''Microsoft PowerPoint 11.0(Office 2003) Object Library)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'ÑÓʱAPIÉùÃ÷
Private Sub Form_Load()
Dim ppt As New PowerPoint.Application
Dim pres As Presentation
ppt.Visible = True
Set pres = ppt.Presentations.Open(App.Path & "\Test.ppt") 'ÌîÈëÄãµÄÎļþÃû
With pres.SlideShowSettings
.Run
While pres.SlideShowWindow.View.State <> ppSlideShowDone
ppt.SlideShowWindows(1).View.Next
Sleep 1000 'ÌîÈëÑÓ³ÙµÄʱ¼äµ÷Õû¿ìÂý£¨ºÁÃ룩
Wend
End With
pres.Close
ppt.Quit
Set pres = Nothing
Set ppt = Nothing
End Sub
Ïà¹ØÎĵµ£º
Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
OpenThread(THREAD_ALL_ACCESS, 1, Ïß³ÌID) 'ÓÉÏß³ÌIDÈ¡µÃÏ߳̾ä±ú,·µ»ØÏß³Ì¾ä± ......
'ÒýÓãºMicrofoft VBScript Regular Expressions 5.5 'Ò»¸öÕýÔòÌáÈ¡¹¦ÄÜ
Public Function regGetStr_three(ByVal myString As String, ByVal patReg As String) As String()
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches As Ma ......
http://topic.csdn.net/t/20030306/11/1497896.html#
¹¤³ÌÎļþÃû£ºChdsp.vbp
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\PWIN95\SYSTEM\\STDOLE2.TLB#OLE Automation
Module=Module1; ChDsp.bas
Form=ChDsp.frm
Startup="Form1"
He ......
ÕýÔÚ¿ª·¢Ð¡ÃØÊéϵͳ²¢²»¶ÏÌá¸ßÆäÖÇÄÜˮƽ,ÆäÖÐÓõ½µÄÊǽű¾Ö§³ÖµÄ¼¼Êõ
ËäÈ»Õⲿ·Ö²»ÊôÓÚ³õѧÕßʹÓÃ,È»¶øÓÐЩÈËÏëѧÕâ¸ö¶«¶«,ÕâÀï¾Í·¢~~~²¼³öÈ¥°É!
н¨Ò»¸ö±ê×¼exe¹¤³Ì(Standard EXE);
"¹¤³Ì"(Project)-->"²¿¼þ"(Components)
Ñ¡¶¨"Microsoft Script Control 1.0" ,λÖÃÊÇC:\WINDOWS\system32\msscript.ocx
Ìí ......
3,Return without GoSub
5,Invalid procedure call
6,Overflow
7,Out of memory
9,Subscript out of range
10,This array is fixed or temporarily locked
11,Division by zero
13,Type mismatch
14,Out of string space
16,Expression too complex
17,Cant perform requested operation
18,User int ......