VB ÓÃsleepʱ£¬³öÏÖ³ÌÐòÎÞÏìÓ¦
Ë®Á÷Ï߻ͼÈçÏ£º Picture1.CurrentX = pen(1).PenPointx Picture1.CurrentY = pen(1).PenPointy For temp1 = 1 To pointcount - 1 If (pen(temp1).PenPointx = -1 And pen(temp1).PenPointy = -1) Then Picture1.CurrentX = pen(temp1 + 1).PenPointx Picture1.CurrentY = pen(temp1 + 1).PenPointy Else Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPointy ) Sleep (pen(temp1 + 1).time - pen(temp1).time) End If Next temp1 penµÄ¶¨ÒåÈçÏ£º Private Type paintpen PenPointx As Integer 'XÖá×ø±ê PenPointy As Integer 'YÖá×ø±ê time As Long ¡®Ê±¼äµã End Type £¨-1£¬-1£¬0£©ÊÇ¿ªÊ¼ÏÂÒ»±Ê ÔõôÎÒÒ»µ½ÏÂÒ»»®µÄʱºò¾Í³ö´íÁË£¬³ÌÐò¾Í²»¶¯ÁË ´ó¼Ò°ïÎÒ¿´¿´£¬ÄÄÀï³öÎÊÌâÁË
²»ÒªsleepÄǾä»ò¸Ä³Éapplication.doeventsÒýÓà ²»ÒªsleepÄǾä»ò¸Ä³Éapplication.doevents ²»ÒªsleepµÄ»°£¬ÎÞ·¨¿ØÖÆËÙ¶È ÔõôÓÃapplication.doevents£¿ Ææ¹ÖµÄ Else Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPo
Ïà¹ØÎÊ´ð£º
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£ żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣ Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£ û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£ XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£ Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£ Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc) Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷ Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command] @= ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡ ²åÈë֮ǰselectһϰ¢¡£ »òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç IF not Exist( & ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\" cat = New ADOX.Catalog cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......