¿ÉÒÔ½«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
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?
ÐǪ̈ÁªÏµ·½Ê½ÄØ
ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨
¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ
±±¾©µÄÐв»£¿
ÎÒÔÚËÕÖÝ£¬ ......
¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......