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

vbÅжÏ.bmpÎļþÊÇ·ñ´ò¿ª

Open App.Path & "\tu\hb.bmp" For Binary As #100
ÓÃopenÓï¾ä´ò¿ªÎļþ,ÎÒÏëÓÃifÓï¾äÅжÏÕâ¸öÎļþÊÇ·ñ´ò¿ª,¾ÍÊÇ˵Èç¹ûû´ò¿ª,¾Í´ò¿ª,ÇëÎʸ÷λÅóÓÑÔõôд?
ÊÇ·ñ´ò¿ªÊÇÖ¸ÊÇ·ñÒѾ­Óû­±Ê´ò¿ªÁËô?»¹ÊDZðµÄÈí¼þ´ò¿ªÁË?
Èç¹ûÊÇ»­±Ê,¿ÉÒÔÓÃFindwindowº¯ÊýÅжÏÓÐûÓдò¿ª

Ϊ-1ÓÐÁ½ÖÖÇé¿ö,¿ÉÒÔͨ¹ýAPIº¯ÊýGetLastErrorÀ´ÅжÏ.Èç¹ûGetLastErrorµÄֵΪERROR_FILE_NOT_FOUND(ÖµÊÇ2),Ôò±íʾÎļþ²»´æÔÚ;Èç¹ûÊÇERROR_ACCESS_DENIED(ֵΪ5),Ôò±íʾÎļþÕýÔÚʹÓÃÖÐ,ÆäËüµÄ¾Í¸ù¾Ý¾ßÌåµÄ´íÎóºÅÇø·ÖÁË.

¶àлÁ½Î»ÅóÓÑ,¾ÍÊÇÓÃopen´ò¿ª,Ï£ÍûÁ½Î»Ð´µÄÏêϸһµã,лл°¡!!


²âÊÔ¹ý?
ÅÄÄÔ´üÏë³öÀ´µÄ°É?
ÎÒÓû­±Ê´ò¿ªºóÔõô¿ÉÒÔÖ±½Óɾ³ý?

ÒýÓÃ
»»ÖÖ˼·£¬Èç¹ûÏëÒª¶ÔÒ»¸öÒÑ´ò¿ªµÄÎļþʹÓà FileCopy Óï¾ä£¬Ôò»á²úÉú´íÎó¡£¾ÍÊÇ˵Èç¹û±¨´í£¬ËµÃ÷ÒѾ­´ò¿ª

´úÂ룺

on error goto A1
  FileCopy App.Path & "\tu\hb.bmp", "hb.bmp"
  kill "hb.bmp"
  'Èç¹û²»±¨´í£¬ËµÃ÷ûÓдò¿ª
    Open App.Path & "\tu\hb.bmp" For Binary As #100
    ......
  exit sub
A1:
  msgbox "ÎļþÒѾ­´ò¿ª"
end sub


ÉèÖÃÒ»²¼¶ûÁ¿,ÔÚ´°Ìå¼ÓÔØµÄʱºò¸³ÖµFalse,ÿ´ÎOpen App.Path & "\tu\hb.bmp" For Binary As #100
ºóÃæÎª¸Ã±äÁ¿¸³ÖµTrue
È»ºóÔÚÿ´Î´ò¿ªÖ®Ç°ÅжÏһϸñäÁ¿
ÎÒÕâÀïûVB,×Ô¼ºÊÔÊÔ

ÒýÓÃ
²âÊÔ¹ý


Ïà¹ØÎÊ´ð£º

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

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

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

VB Timer¿Ø¼þ

ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ

ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......

VB¹ý³Ì¿ØÖÆ

Ôõôµã»÷form2Éϵİ´Å¥ ¿ÉÒÔ½áÊøform1ÉÏÕýÔÚ½øÐеÄÑ­»· 

form1ÀïÃæÌí¼ÓÒ»¸ö±äÁ¿£º
Public bEnd As Boolean

Ñ­»·´úÂëÌí¼Ó£º
bEnd = False
Do
    ...
    If ......

VB ±£´æExcelÎļþÎÊÌâ

±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»­Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ ......

VB±êÌâÀ¸ ¶¯Ì¬ÏÔʾ

ÎÒÔÚ´°ÌåÕý³£ÔËÐеÄÇé¿öÏ ±êÌâÀ¸ÉÏ¿ÉÒÔ¶¯Ì¬ÏÔʾÊýÖµ

¿ÉÊǵã»÷×îС»¯°´Å¥µÄºó £¬ÔÚÈÎÎñÀ¸ÉϵıêÌâÉϾͲ»±äÁË£¿

Ôõô°ì 

±ðÕÛÌÚÕâЩ»¨¼Ü×Ó£¬Ã»ÒâÒå

²»»á°É£¿
VB code:
Private Su ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ