Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

¹ØÓÚASP.net(vb)²¥·Å¼à¿Ø¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

vb ÈçºÎ½«Ê®Áù½øÖÆUTF-8ת»»Îªºº×Ö

¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿

byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
  try {
System.out.println(new String(b,"UTF-16"));
  } catch (UnsupportedEnco ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ