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

VB ÔÚ¾ÖÓòÍøÖÐÅжÁÓû§ÊÇ·ñµÇ¼¡£

ÔÚÒ»¸ö¾ÖÓòÍøµÄ»·¾³Ð´Á˸ö³ÌÐò£¬ÔÚ·þÎñÆ÷»úÉÏÒÔSQL 2000×öÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö±íΪÓû§ÐÅÏ¢´æÕʺÅÃÜÂë¡£
¾ÖÓòÍøÖÐÿ̨µçÄÔÿ´Î¿ª»úʱ¶¼»áÓÐÒ»¸ö³ÌÐòÔËÐУ¬ÒªÊ¹ÓñíÀïµÄÕʺźÍÃÜÂëµÇ¼£¬µÇ¼³É¹¦ºó°Ñ¿ªÊ¼Ê¹ÓõçÄÔµÄʱ¼äºÍʹÓÃÕʺÅдÈëµ½SQL£¬ÎªÁË·ÀÖ¹Ò»¸öÕʺÅͬʱÔÚ¶ą̀µçÄÔÀïÓã¬ËùÒÔ¼ÓÁËÒ»¸öÅжϣ¬µÇ¼³É¹¦ºó°ÑÕâ¸öÖµ¸ÄΪ1£¬¹Ø»úʱ°ÑÕâ¸öÖµ¸ÄΪ0£¬µ«ÊÇÏÖÔÚÓÐÁËÎÊÌ⣬Èç¹ûÊÇͻȻͣµçÁË£¨²»ÕýÈ·¹Ø»ú£©£¬»òÊÇÍøÂçÁ¬½ÓÓÐÎÊÌâÁË£¬Õâ¸öÖµ¾Í¸Ä²»ÁËÁË£¬ÒÔÖÁÕâ¸öÕʺÅÏ´εǼʱϵͳ»¹ÈÏΪÊÇÒѾ­µÇ¼¡£
Çë½ÌÈçºÎ½â¾öÕâ¸öÎÊÌâ¡£
ÔÚ±¾µØ¼ÆËã»úÖÐ×ö¼Í¼£¬±ÈÈç×¢²á±íÖ®ÀàµÄ£¬Ôڵǽʱ¼ì²â£¬±ÈÈ翪ʼʱÉèÖÃֵΪ1¹Ø»úʱÉèÖÃΪ0£¬µ±Ä㿪»úʱ·¢ÏÖÖµ»¹ÊÇ1µÄ»°±íÃ÷ÓпÉÄܷdz£¹Ø»úÁË

Óа²×°»¹Ô­ÏµÍ³Å¶¡£¡£¡£

ÄÇдÔÚÊý¾Ý¿âÒ»¸öµÀÀí°¡

ÒýÓÃ
ÄÇдÔÚÊý¾Ý¿âÒ»¸öµÀÀí°¡


ÎÒÊÇдÔÚÊý¾Ý¿âÀïµÄ£¬¿ÉÊÇÈç¹ûÄÇ̨»úÖÐ;³öÁËÎÊÌ⣬Á¬²»ÉÏ·þÎñÆ÷ÁË£¬ÄDz»ÊǸIJ»ÁËÊý¾Ý¿âÁËÂð£¿

ÄãÏ²Ų»»áÁ¬½Ó£¿£¿

Ö»Òª²»ÊÇ24Сʱ¶¼ÓÐÈËÉÏ,¿ÉÒÔÓÃ×÷ҵÿÌìÁ賿ij¸öʱ¼ä¸üд˱íµÄÕâ¸öֵΪ0

ÒýÓÃ
Ö»Òª²»ÊÇ24Сʱ¶¼ÓÐÈËÉÏ,¿ÉÒÔÓÃ×÷ҵÿÌìÁ賿ij¸öʱ¼ä¸üд˱íµÄÕâ¸öֵΪ0


ÓпÉÄÜÕâ¸öÕʺÅÒ»ÌìÄÚÒªÖØ¸´µÇ¼ºÃ¼¸´ÎÄØ£¡ÒªÊÇÆäÖÐÓÐÒ»´Îû¸ÄÁËÊý¾Ý±í£¬ÄǾ͵Ǽ²»ÁËÁË£¬²»Äܵȵ½ÍíÉÏÔÙ¸üа¡£¡

Ä㻹ѧ³ÌÐòÄØ£¿ËµµÃÕâôÇå³þ»¹²»¶®
ÄãÔÚдÊý¾Ý¿â֮ǰÏȲéѯϵ±Ç°Öµ£¬Èç¹û²»ÊÇÍ˳öʱӦ¸ÃÌîµÄÖµ±íʾ¿ÉÄÜ·Ç·¨¹Ø»úÁË

ÒýÓÃ
Ä㻹ѧ³ÌÐòÄØ£¿ËµµÃÕâôÇå³þ»¹²»¶®
ÄãÔÚдÊý¾Ý¿â֮ǰÏȲéѯϵ±Ç°Öµ£


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vb´òÓ¡

ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......

²ËÄñѧVB£¬

²ËÄñѧVB,¸÷λ´óÏÀÄܰïÖúÎÒô£¬ÎÒµÄQQÊÇ544508194£¬mail.  huguyue619@163.com
¿ÒÇë¸÷λ´óÏÀ¼ÓÎÒ£¬Ö¸µãСµÜÒ»¶þ
Çë¾­³£¹â¹Ë±¾ÂÛ̳,ÓÐÒÉÄÑÖÚ¶à¸ßÊÖ¶¼»á¾¡Á¦.

¶¯ÊÖʵ¼ùд´úÂë,¾­³£¹â¹Ë±¾ÂÛ̳ä¯ÀÀÓëѧϰ.
......

VB ʱ¼ä¼ä¸ôµÄÎÊÌâ

Option Explicit

Private Sub Command1_Click()
  If DateDiff("n", Text1.Text, Time) >= 10 Then MsgBox "OK"
End Sub

Èç¹û µ±Ç°ÏµÍ³Ê±¼ä ´óÓÚµÈÓÚ text1.textÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ