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

ÓÃ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


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

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

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

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

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


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

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

ÉèÖ ......

VBÈçºÎÁªÏµÁ½¸ö´°Ì壿

¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......

vb ÈçºÎ½«Ê®Áù½øÖÆUTF-8ת»»Îªºº×Ö

¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿

byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
  try {
System.out.println(new String(b,"UTF-16"));
  } catch (UnsupportedEnco ......

vb.net ´´½¨accessÊý¾Ý±íʵÏÖÒ»Êý¾Ý¿â¶à¸öÊý¾Ý±í£¿

Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ