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
»¹µÃÅжÏËûûÓгýÁË¡°´òÓ¡³É¼¨
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......