VB ÔÚ¾ÖÓòÍøÖÐÅжÁÓû§ÊÇ·ñµÇ¼¡£
ÔÚÒ»¸ö¾ÖÓòÍøµÄ»·¾³Ð´Á˸ö³ÌÐò£¬ÔÚ·þÎñÆ÷»úÉÏÒÔSQL 2000×öÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö±íΪÓû§ÐÅÏ¢´æÕʺÅÃÜÂë¡£
¾ÖÓòÍøÖÐÿ̨µçÄÔÿ´Î¿ª»úʱ¶¼»áÓÐÒ»¸ö³ÌÐòÔËÐУ¬ÒªÊ¹ÓñíÀïµÄÕʺźÍÃÜÂëµÇ¼£¬µÇ¼³É¹¦ºó°Ñ¿ªÊ¼Ê¹ÓõçÄÔµÄʱ¼äºÍʹÓÃÕʺÅдÈëµ½SQL£¬ÎªÁË·ÀÖ¹Ò»¸öÕʺÅͬʱÔÚ¶ą̀µçÄÔÀïÓã¬ËùÒÔ¼ÓÁËÒ»¸öÅжϣ¬µÇ¼³É¹¦ºó°ÑÕâ¸öÖµ¸ÄΪ1£¬¹Ø»úʱ°ÑÕâ¸öÖµ¸ÄΪ0£¬µ«ÊÇÏÖÔÚÓÐÁËÎÊÌ⣬Èç¹ûÊÇͻȻͣµçÁË£¨²»ÕýÈ·¹Ø»ú£©£¬»òÊÇÍøÂçÁ¬½ÓÓÐÎÊÌâÁË£¬Õâ¸öÖµ¾Í¸Ä²»ÁËÁË£¬ÒÔÖÁÕâ¸öÕʺÅÏ´εǼʱϵͳ»¹ÈÏΪÊÇÒѾµÇ¼¡£
Çë½ÌÈçºÎ½â¾öÕâ¸öÎÊÌâ¡£
ÔÚ±¾µØ¼ÆËã»úÖÐ×ö¼Í¼£¬±ÈÈç×¢²á±íÖ®ÀàµÄ£¬Ôڵǽʱ¼ì²â£¬±ÈÈ翪ʼʱÉèÖÃֵΪ1¹Ø»úʱÉèÖÃΪ0£¬µ±Ä㿪»úʱ·¢ÏÖÖµ»¹ÊÇ1µÄ»°±íÃ÷ÓпÉÄܷdz£¹Ø»úÁË
Óа²×°»¹ÔϵͳŶ¡£¡£¡£
ÄÇдÔÚÊý¾Ý¿âÒ»¸öµÀÀí°¡
ÎÒÊÇдÔÚÊý¾Ý¿âÀïµÄ£¬¿ÉÊÇÈç¹ûÄÇ̨»úÖÐ;³öÁËÎÊÌ⣬Á¬²»ÉÏ·þÎñÆ÷ÁË£¬ÄDz»ÊǸIJ»ÁËÊý¾Ý¿âÁËÂð£¿
ÄãÏ²Ų»»áÁ¬½Ó£¿£¿
Ö»Òª²»ÊÇ24Сʱ¶¼ÓÐÈËÉÏ,¿ÉÒÔÓÃ×÷ҵÿÌìÁ賿ij¸öʱ¼ä¸üд˱íµÄÕâ¸öֵΪ0
ÓпÉÄÜÕâ¸öÕʺÅÒ»ÌìÄÚÒªÖØ¸´µÇ¼ºÃ¼¸´ÎÄØ£¡ÒªÊÇÆäÖÐÓÐÒ»´Îû¸ÄÁËÊý¾Ý±í£¬ÄǾ͵Ǽ²»ÁËÁË£¬²»Äܵȵ½ÍíÉÏÔÙ¸üа¡£¡
Ä㻹ѧ³ÌÐòÄØ£¿ËµµÃÕâôÇå³þ»¹²»¶®
ÄãÔÚдÊý¾Ý¿â֮ǰÏȲéѯϵ±Ç°Öµ£¬Èç¹û²»ÊÇÍ˳öʱӦ¸ÃÌîµÄÖµ±íʾ¿ÉÄÜ·Ç·¨¹Ø»úÁË
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
²ËÄñѧVB,¸÷λ´óÏÀÄܰïÖúÎÒô£¬ÎÒµÄQQÊÇ544508194£¬mail. huguyue619@163.com
¿ÒÇë¸÷λ´óÏÀ¼ÓÎÒ£¬Ö¸µãСµÜÒ»¶þ
Çë¾³£¹â¹Ë±¾ÂÛ̳,ÓÐÒÉÄÑÖÚ¶à¸ßÊÖ¶¼»á¾¡Á¦.
¶¯ÊÖʵ¼ùд´úÂë,¾³£¹â¹Ë±¾ÂÛ̳ä¯ÀÀÓëѧϰ.
......
Option Explicit
Private Sub Command1_Click()
If DateDiff("n", Text1.Text, Time) >= 10 Then MsgBox "OK"
End Sub
Èç¹û µ±Ç°ÏµÍ³Ê±¼ä ´óÓÚµÈÓÚ text1.textÖ ......