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

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷ÕýæµÄʱºòËûµÄText²¢²»»á¼°Ê±¸üС£
  ÎÒÓÖ³¢ÊÔÓÃNavigate2ËûÀïÃæÒ²ÓиöURL²ÎÊý£¬µ«ÊÇÕâ¸öURLÓëÎÄ×Ö»òͼƬÖеij¬¼¶Á¬½Ó»¹ÊÇÓв»Í¬µÄ.
  ÏÖÔÚÎÒµÄÒªÇóÊÇ£¬µã»÷ij¸ö´øÓÐÁ¬½ÓµÄÎÄ×Ö»òͼƬʱÎÒÒªÏȵõ½Õâ¸öÁ¬½ÓµØÖ·£¬È»ºóÈ¥´ò¿ªÍøÒ³,ÉÏÃæµÄÁ½¸ö·½·¨
  ¶¼²»ÄÜÂú×ãÎÒµÄÒªÇó¡£
  ÔÚÕâÀïÇë¸ßÈËÖ¸µãÒ»ÏÂ.
 
´ËÌùÌáµÄÎÊÌâºÜºÃ£¬Ò²ÄÜ×öµ½£¬Ö»ÊǺÜÂé·³£¬ËùÒÔµ½ÏÖÔÚûÈ˻شËÌù¡£°ï涥һϡ£

ÓÑÇéUp ..................




ÒòΪÁ´½Ó²»Ò»¶¨¶¼ÊǵØÖ·£¬Ò²¿ÉÄÜÊÇÒ»¸ö½Å±¾µ÷Óã¬ËùÒÔÔÚ BeforeNavigate2() ºÍ NewWindow2() ʼþÖлñµÃ URL ±È½Ï¿¿Æ×¡£


ºÇºÇ......Â¥ÉϵĴð»°ÕæÈÃÎÒÍüÁËÊÇÀ´ÎÊ£¬ÎÊÌâµÄ.
¼ÈȻ΢ÈíÄÜ×öµ½£¬ÎÒÏë¿Ï¶¨»¹ÊÇÓа취µÄ..........

Õ⻹ÓÃ˵£¬Äãд¸öä¯ÀÀÆ÷Äں˿϶¨Ò²ÄÜ×öµ½¡£

ÀÏ´ó ÊÕµ½Õ¾¶ÌÁËô£¿

ÎÒÖ»ÖªµÀÔÚRichTextBoxÖÐÊó±êÒÆÖÁÁ´½Óʱ»áÓÐÏûϢ֪ͨ,Õâʱ¿ÉÒÔ´¦Àí,²»ÖªµÀWBÊÇ·ñÒ²ÓÐÀàËÆµÄÏûÏ¢,ÄãÕÒÕÒWBµÄ×ÊÁÏ

mark

ÏÂÃæÁ½¸ö·½·¨¶¼ÊÇÕë¶Ôµã»÷Á´½ÓÄܹ»ÔÚÖ¸¶¨WebBrowserÖдò¿ªµÄ
¶ø²»ÊÇÓÐЩÇé¿öÏ»áÔÚIEÖдò¿ª

Ò»¸öʹÓÃNewWindow2()ʼþ£¬Ó¦¸ÃÄܹ»½â¾öÎÊÌ⣬
·ÅÒ»¸öWebBrowse¡¢Ò»¸öcommandbutton
VB code:

Option Explicit

Private Sub Command1_Click()
WebBrows


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

vb¿ØÖÆGPRS MODEM²¦ºÅ

ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ

ÎÒÀ´¶¥

¶¥Ìù

LZºÃÀ÷º¦

²»¶¥²»ÐÐ

ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ