vb ÔõôÅжϴ¢´æµÄÒ»¶ÎÎÄ×ÖÖÐÓÐijЩ×Ö
Àý×ÓÈçÏ£º
Êý¾Ý¿âfault_reason_nameÕâ¸ö×ֶδ¢´æÁË ¡°Çë²éѯҪ´òÓ¡³É¼¨µ¥µÄѧÉú¡±
È»ºó¶¨ÒåÁËÒ»¸ö±äÁ¿bx µ±±äÁ¿ÖµµÃµ½¡°´òÓ¡³É¼¨µ¥¡±Õ⼸¸ö×Öʱ
ÔõôÅжÏfault_reason_nameÕâ¸ö×Ö¶ÎÀïÃæÒ²ÓÐÕ⼸¸ö×Ö
Èç¹û¿ÉÒԵϰ »¹ÓбäÁ¿ÖµµÈÓÚ¡°Çë²éѯ³É¼¨µ¥¡±Õ⼸¸ö×Ö
È»ºófault_reason_name×Ö¶ÎÀïÒ²ÄÜÅжϳöÓÐÕ⼸¸ö×ÖÀ´
лл¸÷λ°ï¸öæ Ê®·Ö¸Ðл
µÚ¶þÖÖÖÐ ¡°Çë²éѯ¡± ¡°³É¼¨µ¥¡± ±ØÐëÒªÔÚÒ»ÆðµÄ ²»ÄÜ·Ö¿ª
like "*xxx*"
instr
len(replace(source, find, "")) <> len(source)
Â¥ÉÏÌṩµÄ¼¸ÖÖ·½Ê½¶¼¿ÉÒÔ
²»ºÃÒâ˼³õѧÕß ÇëÏêϸµãºÃÂð лл
source = "Çë²éѯҪ´òÓ¡³É¼¨µ¥µÄѧÉú"
if len(replace(source, "´òÓ¡³É¼¨µ¥", "")) <> len(source) then
msgbox "ÓÐ"
else
msgbox "ûÓÐ"
end if
source = "´òÓ¡³É¼¨µ¥µÄѧÉú"
if len(replace(source, "´òÓ¡³É¼¨µ¥", "")) <> len(source) then
msgbox "ÓÐ"
else
msgbox "ûÓÐ"
end if
лл caozhy »¹ÓÐÒ»ÎÊÌâÇë½ÌÏÂ
source = "Çë²éѯҪ´òÓ¡³É¼¨µ¥µÄѧÉú"
if len(replace(source, "´òÓ¡³É¼¨µ¥", "")) <> len(source) then
msgbox "ÓÐ"
else
msgbox "ûÓÐ"
end if
»¹µÃÅжÏËûûÓгýÁË¡°´òÓ¡³É¼¨
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......