vb µÇ½½çÃæÖÐÈçºÎʹÓÃvbÀ´ÅжÏÊäÈëµÄÊý¾ÝÊÇ·ñºÏ·¨
¾ÍÊÇʹÓÃvb scriptÓïÑÔʹµã»÷°´Å¥Ê±ÅжÏËùÊäÈëµÄÊý¾ÝÊÇ·ñºÏ·¨£¬ÀýÈçǰºóÊäÈëµÄÃÜÂë²»Ò»Ö¿ÉÒÔµ¯³öÌáʾҪÄãÖØÐÂÊäÈëµÈ
<script language="vbscript">
<!--
sub tijiao_onclick()
if len(login.userid.value) <3 then
msgbox "Óû§ÃûÌ«¶Ì£¬ÇëÑ¡ÔñÒ»¸ö³¤¶È´óÓÚ3µÄÃû×Ö"
login.userid.select
exit sub
end if
if instr(trim(login.userid.value),"¡¡")>1 then
msgbox "Óû§ÃûÖÐÇë²»Òª¼ÓÈë¿Õ¸ñ"
login.userid.select
exit sub
end if
if len(login.userpw.value) <4 then
msgbox "ÃÜÂëÌ«¶Ì£¬ÇëÊäÈëÒ»¸ö³¤¶È´óÓÚ4µÄÃÜÂë"
login.userpw.select
exit sub
end if
if login.userpw.value <>login.verifypw.value then
login.userpw.value=""
login.verifypw.vallue=""
login.userpw.select
exit sub
end if
if login.name.value="" then
msgbox "ΪÁ˸üºÃµØÎªÄã·þÎñ£¬ÇëÊäÈëÄãµÄÃû×Ö"
login.name.select
exit sub
end if
if login.idnumber.value="" or Not isnumeric(login.idnumber.value) or
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......