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

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´instr
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡

Ï£Íû×îºÃÓоßÌå´úÂë £¬±¾ÈËÊÇÐÂÊÖ£¬Ð»Ð»

Äã˵µÄ¡®´æÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®¡¯
ÊÇÈ«²¿»¹ÊDz¿·Ö£¿

if instr(a,b)<>0 and instr(a,c)=0 then

'aÖаüÀ¨bµ«²»°üÀ¨c
end if

if instr(a,b) and instr(a,c)=0 then 
  '....
end if

ÎÒµÄa¡¢bºÍc¶¼ÊDz»¹Ì¶¨µÄ£¬ÎÒÉÏÃæ¸ø³öµÄÖ»ÊÇÁгöµÄÒ»¸öÀý×Ó


instrº¯Êý

»òÕßÓÃsplitº¯Êý½«a×Ö·û´®°´ÕÕ¡°£¬¡±·ÖÀ뿪À´£¬È»ºóÅжÏ×Ö·û´®ÊÇ·ñÏàµÈ

×îºÃÊÇinstrº¯ÊýÁË

VB code:

Option Explicit

Function StringComp(ByVal s As String, sFind1 As String, sFind2 As String) As Long
'µÚÒ»¸ö´æÔÚ·µ»Ø1,µÚ¶þ¸ö´æÔÚ·µ»Ø2,¶þ¸ö¶¼´æÔÚ·µ»Ø3,¶þ¸ö¶¼²»´æÔÚ,·µ»Ø0
Const SEPARATOR = ","
s = SEPARATOR & s & SEPARATOR
sFind1 = SEPARATOR & sFind1 & SEPARATOR
sFind2 = SEPARATOR & sFind2 & SEPARATOR
StringComp = -(InStr(s, sFind1) > 0) + -2 * (InStr(s, sFind2) > 0)

End Function

Private Sub Command1_Click()
Dim a As String, b As String, c As String

a = "¹¤³Ì±àºÅ,µ


Ïà¹ØÎÊ´ð£º

VB µÄ PictureBOX ¿Ø¼þ»æͼÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æͼ°å£¨ÆÁÄ»,Piceure1£©µÄÒƶ¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍƼöʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂ붼ÊÇÖÐÎÄ ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
òËÆû·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ