ÒÀÈ»ÇóÖú 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ÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æȨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......