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

VB¹ýÂËÖÐÎÄ×Ö·û´®Ô´Âë

Ìí¼Ó
Á½¸öTEXT(multiline=true)
Ò»¸ö°´Å¥
Private Function isChinese(ByVal asciiv) As Boolean
a = AscW(asciiv)
If Len(Hex$(a)) > 2 Then
isChinese = True
Else
isChinese = False
End If
End Function
Private Sub Command1_Click()
text2.text="" 'ÏÈÇå¿Õtext2
For i = 1 To Len(Text1.Text)
DoEvents
If isChinese(Mid(Text1.Text, i, 1)) = True Then
Text2.Text = Text2.Text & ""
Else
Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
End If
Next
MsgBox "Ìæ»»Íê±Ï"
End Sub

http://d.download.csdn.net/down/1160480/woldy


Ïà¹ØÎĵµ£º

vbÔÚÊý¾Ý¿âÖд¢´æÍ¼Æ¬²¢ÏÔʾ³öÀ´

 '**************************¶ÁͼƬÎļþ**************************************  
  Sub   GetPicfromDB(cn   As   ADODB.Connection)  
          On   Error   Resume   Next  
          Dim   ......

ʹÓÃVC±àдVBʹÓÃDLL

ʹÓÃVC±àдVBʹÓÃDLL
Ò»¡¢ÔÚº¯Êý¶¨Òåǰ±ØÐë¼ÓÉÏextern "c"£¬_stdcall¹Ø¼ü×Ö¡£
 extern "C" int _stdcall Sum(int x,int y)
 {
  return x+y;
 }
 
¶þ¡¢DLLµÄ.defÎļþÖбØÐë¼ÓÉÏÈë¿Úº¯Êý
    EXPORTS
     sample @1
     ......

ÈçºÎÓÃVBʵÏÖExcelÎļþµÄ×Ô¶¯ºÏ²¢

¼òµ¥¶øÊµÓõĺϲ¢ExcelÎļþµÄº¯Êý£¬Äܹ»½«¶à¸öXLSÎļþÖÐÖ¸¶¨ÊýÁ¿µÄ¹¤×÷±í×Ô¶¯ºÏ²¢µ½Ò»¸öXLSÎļþÀï¡£µ±È»£¬Èç¹ûÖ»ÊÇÊý¾ÝºÏ²¢£¬ÔòʹÓÃADO¾Í¿ÉÒÔʵÏÖ£¬µ«Èç¹ûÒª±£Áô±í¸ñ¸ñʽ£¬Ôò¿ÖÅÂÖ»ÄÜʹÓð³µÄ·½·¨ÁË¡£
    Ò»¡¢º¯Êý´úÂ룺
Option Explicit
'* ********************************************************* ......

vb Á¬½ÓoracleÊý¾Ý¿â

         
    Dim cn As ADODB.Connection
    Dim rs     As ADODB.Recordset
    Set cn = New ADODB.Connection
    cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info= ......

ÓÃvbʵÏÖ¼ÆËã»ú¹¦ÄÜ


±¨¸æÊé
Ãû³Æ
ʵÑé10-1 ʵÏÖ¼ÆËãÆ÷µÄ¹¦ÄÜ
ÐÕÃû
 
Ö¸µ¼½Ìʦ
 
ѧºÅ
 
ÈÕÆÚ
 
ÈÎÎñÇåµ¥
ÔÚ±¾Á·Ï°ÖУ¬Ä㽫ʹ»æÖƵļÆËãÆ÷Íê³É¼òµ¥µÄËÄÔòÔËËã¡£
1)        Æô¶¯Visual Studio 2005¡£
2)        н¨Ò»¸öVB WindowsÓ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ