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

ÀûÓÃreplace º¯Êý ÔÚvbÖÐʵÏÖ Ïû³ý¿ÕÐÐ


ÕâÀïÊÇ ÀûÓÃreplace º¯Êý ÔÚvbÖÐʵÏÖ Ïû³ý¿ÕÐеÄÒ»¸ö³ÌÐò
ÕâÀïµÄÈÝÆ÷ÊÇrichtext
¿ÉÒÔÀ©³äµ½ÆäËûÈÝÆ÷ ºÍÆäËû×Ö·û ÓÃÓÚ±àд²éÕÒÌæ»»¹¦ÄÜ
'--------------------------------------------------------------------------------------------
' Ïû³ý¿ÕÐÐ , ÀûÓÃinstrº¯Êý, ËÑË÷Îı¾ÀïµÄvbcrlf(»Ø³µ + »»ÐÐ), Á½¸ö»Ø³µÌæ»»³ÉÒ»¸ö»Ø³µ¼Ó»»ÐÐ
'--------------------------------------------------------------------------------------------
Do While InStr(1, rtffile.Text, vbCrLf & vbCrLf)
rtffile = Replace(rtffile.Text, vbCrLf & vbCrLf, vbCrLf)
Loop


Ïà¹ØÎĵµ£º

VBÖÐʵÏÖµØÍ¼²Ù×÷µÄ·½·¨

1.       ÔÚVBµÄFormÉè¼ÆÊ±£¬¼ÓÈëÒ»¸öpicturebox¿Ø¼þ£¬Õâ¸ö¿Ø¼þ×÷ΪOLEÈÝÆ÷£¬MapInfoÖеĵØÍ¼½«ÔڸÿؼþÉÏÏÔʾ¡£
2.       Ö´ÐÐVBµÄº¯ÊýCreateobject(“MapInfo.Application”),Æô¶¯MapInfo¡£ÕâʱMapInfoÔÚºǫ́Æô¶¯£¬¶ÔÓû§À´Ëµ²»¿É¼û£¬²»»áµ¯³ösp ......

ìÓë¶Ü:ÓÃVB´òÔìÇý¶¯¼¶¼üÅ̼ǼÆ÷,ÄܹýQQÃÜÂë¿ò(Ô´Âë)

¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
       ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
       Ð¼¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
       DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
       µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......

Asp.netÁ¬½ÓÊý¾Ý¿â½Ì³Ì£¨vb.net£©

Asp.netÁ¬½ÓSQL Server2000Êý¾Ý¿âÀý³ÌÏê½â: 
<%@ Import Namespace="System.Data" %> 
<%@ Import NameSpace="System.Data.SqlClient" %> 
<script laguage="VB" runat="server"> 
sub page_load(sender as Object ......

VBʵÏÖÊý×Öµ½ÖÐÎĽð¶îµÄת»»º¯Êý

Private Function NMoneyToSMoney ( NMoney As Variant )   As String
      If IsNumeric ( NMoney )     =   False Then
            NMoneyToSMoney   =   "²»ÊÇÊý×ÖÀ ......

VB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó

±¾ÎÄÒý×Ô¡£¸Ðлԭ´´£¡http://useway.blog.51cto.com/736087/176913
VBÎÞËù²»ÄÜÖ®Èý£ºVB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://useway.blog.51cto.com
 
    VBÒ»Ö±±»ÈÏΪÊÇÒ»¸ö¿ÉÒÔͨ¹ý¼òµ¥µÄ·½·¨£¬Íê³ÉWindows½çÃæÓ¦ÓóÌÐòµÄÒ»¸öÓïÑÔ¡£¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËÆºõÊ× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ