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

VB¹ý³Ì¿ØÖÆ

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

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

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

ÁíÒ»¸ö´°¿Ú£º
frm1.bEnd = True

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

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

ÁíÒ»¸ö´°¿Ú£º
frm1.bEnd = True


Ó¦¸Ã¿ÉÐÐ,DoEventsºÜ¹Ø¼ü

ÒªÊÇforÑ­»·ÄØ£¿

VB code:
Option Explicit
Dim bolExit As Boolean 'Í˳öÑ­»·µÄ±êÖ¾
Private Sub Command1_Click()
bolExit = False
Do
DoEvents '×îºÃÌí¼ÓÕâ¸öÓï¾ä£¬·ÀÖ¹³ÌÐò¼ÙËÀ
If Command1.Caption = "¿ªÊ¼Ñ­»·" Then Command1.Caption = "Ñ­»·Ö´ÐÐÖÐ..."
Loop Until bolExit
Command1.Caption = "¿ªÊ¼Ñ­»·"
End Sub

Private Sub Command2_Click()
bolExit = True
End Sub

Private Sub Form_Load()
Command1.Caption = "¿ªÊ¼Ñ­»·"
Command2.Caption = "½áÊøÑ­»·"
End Sub



For ÊÇÒ»ÑùµÄ¡£

ÒýÓÃ


Ïà¹ØÎÊ´ð£º

Çë½ÌÓÃvb½«txtµ¼ÈësqlµÄÎÊÌâ

ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
   
0023939608011»Æ¸ùÑø                                &n ......

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õÊ¼×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

VBÖйØÓÚÃÜÂëÈÏÖ¤

ÔÚÎҵijÌÐòÀ½øÈ롰ɾ³ýÓû§¡±£¬"Ìí¼ÓÓû§"´°Ìå֮ǰ¾ùÏȵ¯³öÒ»¸ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó²ÅÄܽøÈëÏàÓ¦½çÃæ£¬ÈçºÎÉè¼Æ´úÂ룿
¶ÁÊý¾Ý¿âÀïÃæ¹ÜÀíÔ±µÄÃÜÂë
È»ºó¸úÊäÈëµÄÄÚÈݱȽÏ
ºÜ¼òµ¥ ......

VBµ÷ÓÃwordºó³öÏÖµÄÎÊÌâ

ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£)

È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc

ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË

½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ


Õâ¸öÒªÔõà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ