Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈçºÎÓÃ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


Ïà¹ØÎĵµ£º

VB,C#ʹÓÃVCµÄ.libºÍ.hÎļþ

——————————————————————————————————
ÔÚc#ÖÐÈçºÎʹÓÃÒÔÇ°c++µÄ.lib¿âºÍ.hÍ·Îļþ
zhujiang_1977£¨Öì½­ ......

ת£ºWinFormʹÓÃWebService×Ô¶¯Éý¼¶ £¨VB + .Net£©

ת×Ô£ºhttp://hi.baidu.com/sunward08/blog/item/cb64ac224657014dac34de2d.html 
 
WinFormʹÓÃWebService×Ô¶¯Éý¼¶
2009-08-08 10:49
winform³ÌÐòÏà¶Ôweb³ÌÐò¶øÑÔ£¬¹¦ÄܸüÇ¿´ó£¬±à³Ì¸ü·½±ã£¬µ«Èí¼þ¸üÐÂÈ´Ï൱Âé·³£¬Òªµ½¿Í»§¶Ëһ̨һ̨µØÉý¼¶£¬Ãæ¶ÔÕâ¸öʵ¼ÊÎÊÌ⣬ÔÚ×î½üµÄÒ»¸öСÏîÄ¿ÖУ¬±¾ÈËÉè¼ÆÁËÒ»¸öͨ¹ýÈí ......

(VB)FTPÒì²½ÏÂÔØ

 ¸Ã·½·¨²»ÐèҪʹÓÃAPI¼°µÚÈý·½¿Ø¼þ
ÕâÀïʹÓõÄÊÇVBµÄUserControl¿Ø¼þµÄAsyncRead·½·¨
²½ÖèÈçÏÂ:
1¡¢Ìí¼ÓÒ»¸öÓû§¿Ø¼þ£¬ÉèÖÃInvisibleAtRuntimeÊôÐÔΪtrue£¬Ä¿µÄÊÇÔËÐÐʱ¸Ã¿Ø¼þ²»ÏÔʾÓû§½çÃ棬¾ÍÏóTimer¿Ø¼þÒ»Ñù¡£
2¡¢µ½×Ô¶¨Òå¿Ø¼þµÄ´úÂë´°¿Ú£¬Ìí¼ÓÈçÏ´úÂë
Option Explicit
'ÏÂÔؽá¹ûö¾Ù
Public Enum Downloa ......

VB»ñÈ¡ÍøÒ³ÏÂÎÄ×ÖµÄÁ´½ÓµØÖ·

ÌâÄ¿:
ÈçºÎ»ñÈ¡ÍøÒ³ÏÂÎÄ×ÖµÄÁ´½ÓµØÖ·
´°¿ÚÓÐWebBrowser1£¬ºÍÒ»¸öText1
ÏÖÔÚ
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
´ò¿ª´°ÌåÏÔʾ°Ù¶ÈµÄÊ×Ò³£¬ÒªÇ󻬶¯Êó±êµ½“ÐÂÎŔʱ
Text1ÀïÏÔʾhttp://news.baidu.com/
»¬¶¯µ½“Ìû°É”ʱ
Text1ÀïÏÔʾÇå¿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ