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

¹ØÓÚactivex Óëjavascript ½»»¥ÇóÖú - VB / ¿Ø¼þ

ÍøÉÏÕÒµ½ÒÔÏÂ×ÊÁÏ
activexÀ´²Ù×÷javascriptº¯Êý¡£
  ÎÒÃÇÔÚÍøÒ³ÖмÓÈëÒ»¶Îjavascript´úÂ룺
  function Test(){
  alert("test")
  } 
  ÔÚactivexÎÒÃÇ¿ÉÒÔͨ¹ýÈçÏ´úÂëÀ´µ÷Óá£
  UserControl.Parent.Script.Test()
  ͬʱÎÒÃÇ¿ÉÒÔʹÓÃ
  UserControl.Parent.Script.window.CloseÀ´¹Ø±Õµ±Ç°ÍøÒ³¡£
  UserControl.Parent.Script.document.location.href="aa.html" À´¸ü»»Á¬½Ó¡£


ÎÒµÄVB¿Ø¼þÖÐ
Private Sub Command1_Click()
  UserControl.Parent.Script.Test()
End Sub

ÌáʾUserControl.Parent.Script.Test()Õâ¾äÓï·¨´íÎó£¬ÇëÎÊUserControlÊÇ×Ô¼ºµÄ¿Ø¼þÃû³ÆÂð£¿ÎҵĿؼþÃû³ÆÊÇMyControl£¬ÎÒ¸ÄΪMyControl.Parent.Script.Test()Ò²²»ÐÐ


Ïà¹ØÎÊ´ð£º

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......

javascriptɾ³ýÁÐ - Web ¿ª·¢ / JavaScript

´úÂëÈçÏ£º
<table>
<tr>
  <td>µÚÒ»ÐÐ
  </td>
</tr>
<tr>
<td><a href="javascript:delete()">ɾ³ý</a>
</td>
< ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ