VB ÔÚÖ´ÐÐtimer º¯ÊýµÄʱºò»¹Í¬Ê±×öÆäËûµÄÊÂÇéÂð£¿
²»×öÆäËüµÄ,±Ï¾¹Ëû²»ÊǶàÏ̵߳Ä.ÓиötimeseteventÓëÏß³ÌÓйØ
Ìáʾ¥Ö÷£º
VB Ö»ÄÜͬʱµ÷ÓÃÒ»¸öTimer¿Ø¼þ£¬Èç¹ûÔÚÖ´ÐÐÆÚ¼ä£¬²»¿Éµ÷ÓÃÆäËûTimerºÍ¹ý³Ì
timerûִÐÐÍêÊDz»»áÖ´ÐÐÆäËü¹ý³ÌµÄ
Ö»ÓжàÏ̲߳ÅÄÜʵÏÖÂ¥Ö÷ÏëÒªµÄ¹¦ÄÜ£¬µ«VB±¾Éí²¢²»ÄܺܺõÄÖ§³Ö¶àÏß³ ......
Bof»òÕßEofÖÐÓÐÒ»¸öÊÇÕæ£¬»òÕßµ±Ç°µÄ¼Í¼Òѱ»É¾³ý£¬ËùÐèµÄ²Ù×÷ÒªÇóÒ»¸öµ±Ç°µÄ¼Í¼£¿£¿ÕâÊÇʲôÒâ˼£¿³ÌÐòÓÖ´íÔÚÄÄÀҪÔõô¸Ä£¿
Function CopyRecordSetUpdatable(ByVal rs As ADODB.Recordset, ByVal mfg As MSHFlexGrid) As ADODB.Recordset
Dim rsReturn As ADODB.Recordset
Dim fld As ADODB.field
......
char jiu = (char)9;
char ba = (char)8;
ÈçºÎµÃµ½jiuºÍbaÁ¬½ÓÔÚÒ»ÆðµÄ×Ö·û´®£¿
vbµ±ÖÐÓÃjiu+ba¾ÍµÃµ½Á½¸öchar×éºÏµÄ×Ö·û´®¡£
c#µ±ÖÐÎÒÓÃjiu+ba²»ÐУ¬µÃµ½17ÁË ......
×ö³ÉÁËÒ»¸ö¹¤¾ß£¬¶ÁÈ¡ÉϰٸöpptÎļþ È»ºó»ñÈ¡ÀïÃæµÄÊý¾Ý¡£Ê¹ÓõÄÊÇpptÌṩµÄcom½Ó¿Ú¡°CreateObject("PowerPoint.Application")¡±£¬ÀûÓÃ.Presentations.Open·½·¨²»¶Ï´ò¿ªpptÎļþ¡£
¿ªÊ¼µÄʱºòËÙ¶È»¹²»´í£¬¿ÉÊǵ½Á˺óÃæÔ½À´Ô½Âý£¬ÓÐʱpptºÃÏñ¿¨ËÀÔÚÄDZßËÆµÄ£¬¹ýÁ˺ܳ¤Ê±¼ä²Å´¦ÀíÍê³É¡£»»Á˼¸¸ö»úÆ÷¶¼ÕâÑù¡£ÓеãÏ ......
20·ÖµÄÒ»´ó¶Ñ,40·ÖµÄÒ²²»ÉÙ.¶à¼¸¸öÈ˻شð,Õâ·Ö¾ÍÒªÒ»¸öÒ»¸öÊýÁË.
»¹ºÃ°É,ÏÖÔÚÓÐ40µÄÁË,ÒÔǰ¶¼ºÜ¶à10¡äµÄÄØ
ÕâÊÇÌáÎÊÕßµÄ̬¶ÈÎÊÌâ,Ëû¿ÉÄܾõµÃÕâµã·ÖÖµµÃ,̬¶ÈºÃµÄÎÒÃÇ¿ÉÒÔ¶à˵¼¸¾ä,·ñÔòÉÙ˵»ò²»Ëµ.
²»ÒªËµËûûÓжàÉÙ¿ÉÓ÷Ö,Ö»ÄÜ˵Ëû»¹²»¹»ÇÚ·Ü
up........................
ÒýÓÃ
up................... ......
Dim XML As DOMDocument 'xml ¶ÔÏó
Dim XmLRoot As IXMLDOMElement 'xml¸ù½Úµã
Dim I As Integer
Set XML = New DOMDocument
If XML.Load("c:\TDDOWNLOAD\200901.XML") = False Then
MsgBox "´ò¿ªxml³ö´í£¡"
Exit Sub
End If
Set XmLRoot = XML.docum ......