ÒÀÈ»ÇóÖú vb ʵÏÖ¶þ²æÊ÷Ç°Ðò±éÀú - VB / »ù´¡Àà
ÓÃC++µÄ´úÂëÊÇÕâÑùµÄ
Status PreOrderTraverse(BiTree T,Status(*Visit)(TElemType e)){
//Ç°Ðò±éÀú¶þ²æÊ÷µÄ·ÇµÝ¹éËã·¨£¬¶Ôÿ¸öÔªËص÷Óú¯ÊýVisit
InitStack(S); p = T;
while(p || !StackEmpty(S)){
if(p){
if(!Visit(p->data)){
return ERROR;
}
Push(S,p);
p = p->lchild;
}
else{
Pop(S,p);
p = p->rchild;
}
}//while
return OK;
} //PreOrderTr
ÕâÊǶþ²æÊ÷µÄÇ°Ðò±éÀú£¬ÏÖÔÚÎÒÏëÓÃVBʵÏÖ ÔÚText1 ÈÃÓû§ÊäÈëÒ»¸öÐòÁÐ È»ºóÇ°Ðò±éÀú Êä³ö½á¹ûµ½label1 Èç ABCDE Ç°Ðò±éÀúºóΪ ABDEC
´ó¸ÅÄ¿µÄÊÇÕâÑùµÄ£¬ÇëÎÊVB ¿ÉÒÔÓÃÕ» ²»£¬ »òÕß ¸ÃÈçºÎʵÏÖ£¿£¿ Íû¸ßÈËÖ¸µã~
°ï¶¥.......
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÒÏë°Ñ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
......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......