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
Ïà¹ØÎÊ´ð£º
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......