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

¿ÉÒÔ½«VB³£Á¿ÉèÖÃΪÊý×éô£¿

±ÈÈç˵ÑÕÉ«³£Á¿vbRed£¬vbYellow£¬ ¿ÉÒÔ°ÑÕâЩvb×Ô´øµÄ³£Á¿Ìí¼Óµ½Ò»¸öÊý×éÀï̫̾£¿ ÔõôʹÓã¿

ÎÒÊÇΪÁËÊÔÊÔÏÂÃæÄǸö

VB code:

Private Sub Command1_Click()
Dim a(6) As Variant

a(6) = Array("vbRed,vbWhite,vbBlack,vbYellow,vbGreen")
Randomize
i = Int(Rnd * 5)
Text1.ForeColor = a[i]
End Sub



VB code:
Private Sub Command1_Click()
Dim a() As Variant

a() = Array(vbRed, vbWhite, vbBlack, vbYellow, vbGreen)
Randomize
i = Int(Rnd * 5)
MsgBox vbRed
Text1.ForeColor = a(i)
End Sub


VB code:
Private Sub Command1_Click()
Dim a() As Variant
a() = Array(vbRed, vbWhite, vbBlack, vbYellow, vbGreen)
Randomize
i = Int(Rnd * 5)
Text1.ForeColor = a(i)
End Sub


ÊÇÎÒд´íÁË£¬ Text1.ForeColor = a[i]  Ó¦¸ÃÊÇa£¨i£©£¬µ«ÊÇ»¹ÊDz»¶ÔµÄ£¬ÌáʾÀàÐͲ»Æ¥Åä


ʹÓÃ3Â¥µÄ¿ÉÒÔ£¬µ«Ð裺dim i as Long
ÁíÍ⣬ÄãµÄa(i)ÖÐʹÓõÄÀ¨ºÅÓ¦¸ÃÊÇÓ¢ÎÄÀ¨ºÅ¡£

VB code:
Private Sub Command1_Click()
Dim a As Variant
a = Array(vbRed, vbWhite, vbBlack, vbYellow, v


Ïà¹ØÎÊ´ð£º

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

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

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

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ