ÓÃVBдÕâÑùÒ»¸ö¼òµ¥µÄ³ÌÐò!
¾ÍÊÇÕâô¼òµ¥µÄÒ»¸ö³ÌÐò..
ÒªÇó¾ÍÊÇ.
±ÈÈçÎÒдÈë ÅË°² µÄ»°.
µãÊÇ˧¸çô? msgboxÌø³öÀ´.µ±È»
ÆäËüµÄ±ÈÈçÎÒÂÒдһЩ¶«Î÷µÄ»°.
µãÊÇ˧¸çô? msgboxÌø³öÀ´.³¶µ°°ÉÄã
/
Çë´óϺ¿ÉÒÔÖ¸µãÎÒÒ»ÏÂô?
VB code:
Private Sub Command1_Click()
If Text1 = "ÅË°²" Then
MsgBox "µ±È»"
Else
MsgBox "³¶µ°°ÉÄã"
End If
End Sub
VB code:
Private Sub Command2_Click()
If Text1 = "Î÷Ê©" Then
MsgBox "µ±È»"
Else
MsgBox "³¶µ°°ÉÄã"
End If
End Sub
½áÌûÂÊ£º0.00%
so easy?
ÄãÒªÁ¬½ÓÊý¾Ý¿â»òÒ»¸öÎļþ¡£È»ºó±È½Ï¡£
VB code:
Private Sub Command1_Click()
If Text1 = "ÅË°²" and Text1 = "ÁõµÂ»ª" Then
MsgBox "µ±È»"
Else
MsgBox "³¶µ°°ÉÄã"
End If
End Sub
VB code
Code highlighting produced by Actipro CodeHighl
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......