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

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

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 ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

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

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

Ò ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

vbÖÐunicodeÂë,ÈçºÎת»»³ÉÎı¾ - VB / »ù´¡Àà

ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ