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

vb²Ù×÷ieä¯ÀÀÆ÷

ÏàÐÅÏÖÔÚ¾ø´ó¶àÊý¼ÆËã»úÉÏʹÓõÄÊÇIEä¯ÀÀÆ÷¡£ÈçºÎͨ¹ý±à³Ì¿ØÖÆIEµÄ²Ù×÷ÄØ£¬±¾ÎĽ«Ò»²½²½½éÉÜÈçºÎͨ¹ýVB  
µ÷ÓÃIEµÄ¶ÔÏó¿âÀ´¶ÔIE½øÐпØÖÆ¡£  
±¾ÎÄʹÓõıà³Ì¹¤¾ßÊÇVB6Ó¢ÎÄÆóÒµ°æ£¬ä¯ÀÀÆ÷ÊÇIE5£¬ÒÔϵĴúÂëÖ»ÄÜÔÚIE4¼°ÒÔÉϰ汾ÏÂÔËÐС£ÁíÍâΪÁËÄÜÉî  
ÈëÁ˽â³ÌÐò´úÂ룬×îºÃÄܰ²×°MSDN¡£ÎÄÖеÄËùÓжÔÏ󡢺¯Êý¡¢Ê¼þÔÚÆäÖж¼¿ÉÒԲ鵽¡£  
   
Ò»¡¢ÈçºÎ»ñµÃWindowsÖÐËùÓдò¿ªµÄä¯ÀÀÆ÷´°¿Ú  
Ê×ÏÈ´ò¿ªVB£¬½¨Á¢Ò»¸öй¤³Ì£¬µã»÷²Ëµ¥   Projects   |   References   ÏÔÚAvailable   References   ÁбíÖÐÑ¡Ôñ  
Microsoft   Internet   ControlsÏInternet¶ÔÏóÒýÓýéÈëµ½¹¤³ÌÖС£Ìí¼ÓÒ»¸öListBoxµ½Form1£¬È»ºóÔÚForm1ÖÐÌí  
¼ÓÈçÏ´úÂ룺  
Dim   dWinFolder   As   New   ShellWindows  
   
Private   Sub   Form_Load()  
Dim   objIE   As   Object  
   
For   Each   objIE   In   dWinFolder  
If   InStr(1,   objIE.FullName,   "IEXPLORE.EXE",   vbTextCompare)   <>   0   Then  
List1.AddItem   objIE.LocationURL  
End   If  
Next  
End   Sub  
´ò¿ª¼¸¸öä¯ÀÀÆ÷´°¿Ú£¬È»ºóÔËÐгÌÐò£¬¿ÉÒÔ¿´µ½ËùÓÐä¯ÀÀ´°¿ÚÖеÄURLµØÖ·¶¼ÔÚList1ÖÐÁÐÁ˳öÀ´¡£  
ÉÏÃæ³ÌÐòÖеÄShellWindows¶ÔÏóÊÇÃèÊöµ±Ç°ËùÓдò¿ªµÄ“ä¯ÀÀ´°¿Ú”¶ÔÏ󼯺ϵĶÔÏó£¬ÀûÓÃFor...EachÓï¾ä¿ÉÒÔ  
»ñµÃÆäÖÐËùÓеÄä¯ÀÀ´°¿Ú¶ÔÏó¡£ÕâÊÇÒ»¸öWebBrowser¶ÔÏó£¬ÔÚMSDNË÷ÒýÖÐͨ¹ý“WebBrowser   Object”ÖпÉÒÔÕÒµ½¸Ã  
¶ÔÏóµÄÏêϸ½éÉÜ  
ÔÚShellWindowsÖеÄä¯ÀÀ´°¿Ú¶ÔÏó²»½ö°üº¬IE£¬»¹°üº¬Explore´°¿Ú£¨Ïò×ÊÔ´¹ÜÀíÆ÷»òÕß“ÎҵĵçÄÔ”´°¿Ú¾ÍÊÇ  
Explore£©¡£Ö»²»¹ýËüÃǵÄ


Ïà¹ØÎĵµ£º

¹ØÓÚActiveXµÄ½Ì³Ì[vb]£¨×ªÌû£©

¹ØÓÚActiveXµÄ½Ì³Ì
Visual BasicÊÇÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼ÆÓïÑÔ£¬Î¢Èí¹«Ë¾ÍÆ³öÁËActiveX¼¼Êõ£¬ÀûÓÃActiveX¼¼ÊõÌá³öµÄ±ê×¼£¬¶Ô½çÃæµÄÉè¼Æ½øÐÐÁË·â×°£¬ÐγÉÁËһϵÁбà³Ì¿Ø¼þ£¬¼´Ìض¨¹¦ÄܵijÌÐòÄ£¿é¡£ÔÚ³ÌÐòµÄÉè¼ÆÖУ¬Éè¼ÆÈËÔ±Ö»ÐèÒªÍ϶¯ËùÐè¿Ø¼þµ½´°Ì壬Ȼºó¶Ô¿Ø¼þ½øÐÐÊôÐÔÉèÖúÍʹÓÃÆä·½·¨¡¢Ê¼þ¼´¿É£¬´ó´ó¼õÇáÁË·±ËöµÄ³ÌÐòÉè¼Æ¡ ......

VB OpenGL»æÍ¼

×î½üÔÚʹÓúÍÑо¿OpenGL»æÍ¼£¬Óöµ½²»ÉÙÎÊÌâ¡£ÍøÉϲéÔÄ×ÊÁϵÄʱºò£¬·¢Ïִ󲿷Ö×ÊÁ϶¼ÊÇCÓïÑÔ£¬ºÍC++дµÄ£¬VBÕâ·½ÃæµÄ×ÊÁÏÌ«ÉÙÁË£¬VB6.0µÄ¾Í¸üÉÙ£¬ÏÖÔÚ¶¼Á÷ÐÐdotnet¡£×Ô¼ºÂòÁ˱¾OpenGLÊéÊÇÒ²ÊÇCÓïÑÔ°æµÄ¡£Õâ¸ö²©¿ÍÒ²¿ªÁË2Äê¶àÁË£¬¶¼Ã»Ð´µã¶«¶«ÉÏÀ´¡£³ÃÍíÉÏ˯²»×Å£¬ÉÏÀ´Ð´µã¡£
 
 Ò»¡¢Ê²Ã´ÊÇOpenGL£¿
OpenGLÊÇOpe ......

vb¼Ç¼¼¯Êý¾Ýµ¼Èëµ½excel

 Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--½«DataGridµ¼³öÖÁExcel,ProgressBar1Ϊ½ø¶ÈÌõ,intFirstΪ´ÓÄÄÒ»ÁпªÊ¼´òÓ¡,intLastΪ´òÓ¡µ½ÄÄÒ»ÁÐ
On Error Resume ......

VBʵÏÖSoap XML½âÎö

http://bbs.blueidea.com/viewthread.php?tid=531257
Èç¹ûÏëÁ˽âSOAPµ½µ×ÊÇʲô£¬¾ÍÒª×Ô¼º¶¯ÊÖ½¨Á¢×Ô¼ºµÄSOAP±ê×¼¶ÔÏó¡£±¾ÎÄ¿ÉÒÔ°ïÖúÄãÆð²½¡£
============================================
¼ò½é
SOAP - ¼òµ¥¶ÔÏó´¦ÀíЭÒé(Simple Object Access Protocol) - Êǵ±Ç°XML¿ª·¢µÄÈȵ㡣ËüÊÇ΢ÈíÐÂÒ»´úVisual StudioµÄÖ÷Òª½Ç ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ