vb static
Private Sub fun()
Static a As Integer
A=a+1
Print a;
End Sub
Private Sub Command1_Click()
Dim m As Integer
For m=1 To 3
Call fun
Next m
End Sub
×îºó½á¹ûÊÇ1 2 3
µ«ÆäÖв»ÊÇÓÐStatic a As IntegerÂð
ËüµÄÒâ˼²»ÊÇ´ú±íÿ´Îµ÷ÓÃfun()¶¼ÊÇÒòΪStaticÕâ¸ö¶øÊ¹aµÄ³õֵΪ0Âð£¿ÕâÑù¾ÍÓ¦¸ÃÊÇ1 1 1 Á˰¡
staticÖ»ÊǵÚÒ»´Î³õʼ»¯Ê±Ê¹aΪ0
ºóÃæaµÄÖµ¾Í²»ÊÇ0£¬¶øÊÇÒ»Ö±±£´æ×ÅÁË
µÚÒ»´Îa=1
±£Áôµ½Ï´Îa=a+1=1+1=2
ͬÀíµÚÈý´ÎΪ3
Dim X
Private Sub Form_Click()
X = 2
For K = 3 To 5
AB
s = s + X
Next K
Print s
End Sub
Private Sub AB()
Dim X
X = X + 2
End Sub
¸ù¾ÝÕâ¸ö¿´ÓÖºÃÏñÊÇdim²ÅÊÇÿ´Îµ÷ÓÃAB()¶¼ÊÇÒòΪdimÕâ¸ö¶øÊ¹xµÄ³õֵΪ0
µ½µ×ÊÇdim»¹ÊÇstaticÿ´Î±»µ÷ÓÃʱʹÆäº¯ÊýÄڵıäÁ¿µÄ³õֵΪ0ÄØ
LZ:ÄãµÄÀí½âÊÇ´íÎóµÄ:
Static Óï¾ä
ÔÚ¹ý³Ì¼¶±ðÖÐʹÓã¬ÓÃÓÚÉùÃ÷±äÁ¿²¢·ÖÅä´æ´¢¿Õ¼ä¡£ÔÚÕû¸ö´úÂëÔËÐÐÆÚ¼ä¶¼Äܱ£ÁôʹÓà Static Óï¾äÉùÃ÷µÄ±äÁ¿µÄÖµ¡£
˵Ã÷
Ä£¿éµÄ´úÂ뿪ʼÔËÐкó£¬Ê¹Óà Static Óï¾äÉùÃ÷µÄ±äÁ¿»áÒ»Ö±±£³ÖÆäÖµ£¬Ö±ÖÁ¸ÃÄ£¿é¸´Î»»òÖØÐÂÆô¶¯¡£¿ÉÒÔÔڷǾ²Ì¬µÄ¹ý³ÌÖÐʹÓà Static Óï¾äÏÔʽÉùÃ÷Ö»Ôڸùý³ÌÄڿɼû£¬µ«¾ßÓÐÓë°üº¬¸Ã¹ý³Ì¶¨ÒåµÄÄ£¿éÏàͬÉúÃüÆÚµÄ±äÁ¿¡£
Àí½â±äÁ¿µÄ·¶
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
´ó¼Ò°ïæ¿´Ï£¬ÔÚVBÖÐÓиö±äÁ¿str=0.00016ÈçºÎ¼ÆËãÈÃËü±ä³ÉÊÇ1.6*10µÄ4´Î·½
»¹ÓиöÎÊÌâÊǹØÓÚÊý¾Ý¿â²éѯµÄ
ÔÚACCESSÖÐÈçºÎ²éѯʱ£¬ÅжÏ×Ö¶Î1ÊÇ·ñΪ¿ÕÈç¹ûÊÇÔò²éѯ×Ö¶Î2
ÔÚSQLÖÐÓ¦¸ÃÊÇselect case ×Ö¶Î1 isn ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......