Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

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 - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

¼±ÇóÒ»¸öjavascript½Å±¾.. - Web ¿ª·¢ / ASP

ÇóÒ»¸öjavascript½Å±¾..
µ±µã»÷Õâ¸ö<a>Ìí¼Ó¸½½ü</a>Á´½Óʱ¾Í»áÌí¼Ó¶àÒ»ÐÐÉÏ´«¿òºÍ°´Å¥,ºÍ×îºóÒ»¸öÅԱ߻áÏÔʾ"È¡Ïû"µÄÁ´½Ó,µã»÷Õâ¸öÈ¡Ïû¾Í»áÈ¥µô×îºóÒ»ÐÐ,Ò»¸öÕâ¸ö½Å±¾Ôõôд?Íò·Öлл..

Ò ......

javascriptÖÐidºÍname - Web ¿ª·¢ / JavaScript

Ë­ÄܸøÎÒ½²Ò»ÏÂÔÚjavascriptÖÐidºÍnameÓÐʲôÑùÇø±ð£¿
Ò»¸öÒ³ÃæÖÐ id×îºÃÖ»ÓÐÒ»¸ö ÒòΪ javascript ÓÐ getElementById("id")Ö®ÀຯÊý
name ¿ÉÒÔÓжà¸ö ³£ÓÃÔÚÌá½»ÇëÇóÊ·þÎñÆ÷¶Ë»ñÈ¡
Ò»¸öÔªËØÖÐ×îºÃÉè ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ