Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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£©¡£Ö»²»¹ýËüÃǵÄ


Ïà¹ØÎĵµ£º

VB ¡¢VBA ¡¢VSTO

****ʲôÊǶþ´Î¿ª·¢?
    Ò»°ãµÄÀ´Ëµ£¬Ò»Ð©´ó¹«Ë¾ÈçIBM¡¢MS¿ª·¢ÁËÒ»¸ö´óÐ͵ÄÈí¼þϵͳƽ̨£¬¸ù¾Ý²»Í¬µÄ¿Í»§µÄÐèÒª£¬Ò»Ð©ÆäËüµÄÖÐС¹«Ë¾Îª¿Í»§¸ù¾ÝÐèÇóÔÚ¸ÃÆ½Ì¨ÉϽøÐеڶþ´ÎÓÐÕë¶ÔÐԵĿª·¢£¬Õⱻͳ³ÆÎª¶þ´Î¿ª·¢¡£
¡¡ ¶þ´Î¿ª·¢Òª¿´Èí¼þÊÇ·ñÌṩÏàÓ¦µÄ½Ó¿Ú£¬ÓеãÈí¼þ¹«Ë¾Ö»ÌṩÈí¼þ£¬µ«Ò²ÓÐС¹«Ë¾Á¬´úÂëÒ»Æð³öÊÛ£¬È ......

C´úÂëÓïÑÔתVB´úÂëµÄÎÊÌ⣺

Ë­ÄܰïÎÒ°ÑÕâ¶Î´úÂëת³ÉVbµÄ´úÂ룬²»Ê¤¸Ð¼¤£¬Ð»Ð»£¡
void CTempDlg::OnOK()
{
  UpdateData(1);
  int nlen=m_edit1.GetLength();
  char *username=m_edit1.GetBuffer(nlen);//¶¨ÒåÒ»¸öÐÂ×Ö·û´®username,³¤¶ÈΪnlen£¬²¢½«m_edit1ÖеÄ×Ö·û´®Ò»¸ö¸ö·ÅÈëµ½usernameÊý×éÖÐ
  char strA[]="90123456 ......

vb ´òÓ¡

 Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
    Dim str As String
    Dim str1 As String
    Dim len1 As Long
   
    str = txt
    len1 = ConWidth
  &nbs ......

VB OpenGL»æÍ¼

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

µ÷ÊÔJavaScript/VB Script½Å±¾³ÌÐò£¨IEƪ£©


JavaScript/VB Script½Å±¾³ÌÐòÒ»°ãÓÐÁ½ÖÖÖ´Ðз½Ê½£¬Ò»ÖÖÊÇǶÈëÔÚËÞÖ÷³ÌÐòÀïÃæÖ´ÐУ¬±ÈÈçÔÚIEä¯ÀÀÆ÷ÀïÃæÖ´ÐУ»ÁíÍâÒ»ÖÖ£¬ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ö´ÐУ¨ËäÈ»»¹ÊÇͨ¹ýÁíÍâÒ»¸ö³ÌÐò½âÊÍÖ´ÐУ¬µ«ÊǸøÈ˵ĸоõ±Ï¾¹ÊÇÖ±½ÓÔËÐУ©¡£
ÕâÁ½ÖÖ·½Ê½£¬¶¼¿ÉÒÔʹÓÃVisual StudioÀ´½øÐе÷ÊÔ£¬ÏÈ¿´´ó¼ÒÓÃµÃ±È½ÏÆµ·±µÄÍøÒ³½Å±¾³ÌÐòµÄµ÷ÊÔ£º
1 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ