¶Ô³ÌÐòÔ±ºÍ
±à³Ì°®ºÃÕßÀ´Ëµ
£¬VBÖÐÀàµÄ¼¼ÊõÊÇѧϰÖеÄÒ»¸öÄѵã
£¬ÔÚ´óÐÍÈí¼þµÄ¿ª·¢¹ý³ÌÖУ¬Ä£¿é£¨Moudle)¡¢¿Ø¼þ£¨Activeocx)¡¢Á´½Ó¿â£¨Activedll)ºÍÀࣨClassmoudle)¹¹³ÉÁËϵͳ»¯¡¢¸ßЧ»¯µÄÈí¼þ¹¤³Ì£¬¶øÀàµÄ¼¼ÊõÊǿؼþºÍÁ´½Ó¿â¼¼ÊõµÄ»ù´
¡£¬Òò´ËÕÆÎÕÀàµÄÀíÂÛºÍ
±à³Ì·½·¨ÊǷdz£ÓÐÒâÒåµÄ
¡£¡¡¡¡
¡¡¡¡£¨Ò»£©
ÀàµÄ»ù±¾¶¨ÒåºÍÓ¦ÓøÅÊö£»
¡¡¡¡
¡¡¡¡ÀàÊÇ°üº¬ÁË·½·¨¡¢ÊôÐÔ¡¢Êý¾Ý³ÉÔ±µÄ¸ß¼¶´úÂëÄ£¿é£¬Ëü¼ÈÔÚÄ£¿éµÄ·¶³ëÖ®ÄÚ£¬ÓÖÊÇÒ»¸öûÓÐͼÐνçÃæµÄActiveocx£¬³ÌÐòÔ±¿ÉÒÔÏóʹÓÿؼþÒ»ÑùʹÓÃËü£¬µ«È´²»ÄÜ¿´µ½Ëü£¬ÖµµÃ×¢ÒâµÄÊÇ£¬ÀàÊDz»Äܼ̳еġ£
¡¡¡¡ÀàÄܹ»Ê¹ÎÒÃǸßЧµÄÍê³É¶Ôijһ¸ö»òÕßij¼¸¸öÌض¨µÄ¶ÔÏóµÄ¸´ÔÓ²Ù×÷£¬¶ÔÏóµÄ¶¯×÷¾ÍÊÇÀàµÄ·½·¨£¬¶ÔÏóµÄÊôÐÔ¾ÍÊÇÀàµÄÊôÐÔ¹ý³Ì¡£Ïà¶Ô¶øÑÔ£¬Èç¹û±à³ÌµÄ¶ÔÏóÊÇÒ»×éÊÂÎÄÇô£¬ÎÒÃDzÉÓñê׼ģ¿éµÄ·½Ê½ÊǷdz£ºÏÊʵģ¬ÔÚÏÂÁÐÁ½ÖÖÇé¿öÏ£¬Ó¦¸ÃʹÓÃÀà½øÐдúÂë´¦Àí£º
¡¡¡¡
¡¡¡¡£¨1£©´´½¨´óÁ¿ÐÔÖÊÏà½üµÄ¶ÔÏó£»
¡¡¡¡
¡¡¡¡£¨2£©Ìá¸ß´úÂëµÄ·â×°ÐÔ¡£
¡¡¡¡
¡¡¡¡ÀàµÄ´´½¨·Ç³£¼òµ¥£¬ÔÚ½øÐдúÂë±àдµÄʱºò£¬ÔÚ¡°¹¤³Ì¡±²Ëµ¥ÖÐÑ¡Ôñ¡°Ìí¼ÓÀàÄ£¿é¡±ÏîÄ¿£¬¾Í¿ÉÒÔÌí¼ÓÒ»¸ö¿Õ°×µÄÀà¡£
¡¡¡¡
¡¡¡¡ÀàÎļþÒ»°ãÒÔ.cls×÷ΪÀ©Õ¹Ãû±£´æ¡£
¡¡¡¡
¡¡¡¡£¨¶þ£©
ÀàµÄ·½·¨µÄʵÏÖ£»
¡¡¡¡
¡¡¡¡ÀàµÄ·½·¨ÀàËÆÓÚ¶¯Ì¬Á´½Ó¿âµÄ½Ó¿Úº¯Êý£¬ËüÄܹ»½ÓÊÜÆäËû´°Ìå´úÂëµÄÖ¸¶¨ÀàÐͲÎÊý£¬²¢ÇÒ´«µÝµ½ÀàÖС£Ò»°ãÀ´ËµÀàµÄ·½·¨ÊÇÄܹ»Ö¸¶¨ÊÇ·ñÓзµ»ØÖµµÄ¡£ËüÔÚÀàÖÐͨ³£ÊÇÒ»¸öpublic¹ý³Ì¡£Çë¿´ÏÂÃæµÄ´úÂëʾÀý£¬Ëüʹһ¸öÃÜÂë¿ò¾Ü¾ø·Ç×ÖĸµÄÊäÈ룺
¡¡¡¡
¡¡¡¡£¨1£©ÀàclsµÄ´úÂ룻
¡¡¡¡
¡¡¡¡OptionExplicit'±äÁ¿¼ì²é
¡¡¡¡
¡¡¡¡¡¡PrivateWithEventsmytxtAsTextBox
¡¡¡¡
¡¡¡¡¡¡'±¾ÀàÖеķ½·¨½ÓÊܺͿØÖÆÒ»¸ötextÃÜÂë¿ò
¡¡¡¡
¡¡¡¡¡¡DimisNUMAsBoolean
¡¡¡¡
¡¡¡¡¡¡'ÀàµÄÄ£¿é¼¶±äÁ¿
¡¡¡¡
¡¡¡¡¡¡PublicSubAttach(itTEXTAsTextBox)
¡¡¡¡
¡¡¡¡¡¡'½ÓÊÜÍⲿ±äÁ¿µ½mytxtÖÐ
¡¡¡¡
¡¡¡¡¡¡Setmytxt=itTEXT
¡¡¡¡
¡¡¡¡EndSub
¡¡¡¡
¡¡¡¡PrivateSubmytxt_KeyUp(KeyCodeAsInteger,ShiftAsInteger)
¡¡¡¡
¡¡¡¡isNUM=(KeyCode>=65)And(KeyCode<=90)
¡¡¡¡
¡¡¡¡'²âÊÔÃÜÂë¿òµÄ¼üÅÌÊäÈëÊÇ·ñÊÇÓ¢ÎÄ×Öĸ
¡¡¡¡
¡¡¡¡IfisNUM=FalseThen
¡¡¡¡
¡¡¡¡¡¡Beep
¡¡¡¡
¡¡¡¡¡¡mytxt.Text=""
¡¡¡¡
¡¡¡¡¡¡'Èç¹ûÊäÈë²»ÊÇÓ¢ÎÄ×ÖĸÔòÏìÁå²¢ÇÒÇå¿ÕÃÜÂë¿òÄÚÈÝ
¡¡¡¡
¡¡¡¡¡¡MsgBox"·Ç·¨×Ö·ûÊäÈ룡"
¡¡¡¡
¡¡¡¡EndIf
¡¡¡¡
¡¡¡¡Debug.Printmytxt.Text
¡¡¡¡
¡¡¡¡'µ÷ÊÔÊä³öÃÜÂë¿òÄÚÈÝ
¡¡¡¡
¡¡¡¡EndSub
¡¡¡¡
¡¡¡¡¡¡'ÀàµÄ´úÂë½áÊø
¡¡¡¡
¡¡¡¡£¨2£©
ÀàµÄÒýÓã»
¡¡¡¡
¡¡¡¡ÒѾ±àдÍê³ÉµÄÀà¿ÉÒÔ¾¹ýÁ½ÖÖ¸ñʽ½øÐÐÒýÓ㬵ÚÒ»ÖÖ·½Ê½£ºPrivate£¨public»òÕßdim)myCLS£¨Ö¸¶¨µÄÀàÃû£©AsNewcls£¨±àдÍê³ÉµÄÀàÃû£©£»µÚ¶þÖÖ·½Ê½½Ï¶àÓÃÓÚ³ÌÐò±àд·ç¸ñ½Ï¡°ÀÏ¡±µÄ³ÌÐòÔ±£ºÊ×ÏÈÔÚ´°Ìå´úÂëÖнøÐÐÄ£¿é¼¶ÉùÃ÷¡ª¡ªDimmyCLSAscls,È»ºóÔÚ¾ßÌå´úÂë¹ý³ÌÖнøÐоßÌ嶨Ò塪¡ªSetmycls=Newcls¡£ÕâÁ½ÖÖ·½Ê½µÄЧÂʺʹúÂëµÄ¼ò½àÐÔ·½Ãæ¿ÉÄÜ»áÓÐËù²î±ð£¬µ«ÔÚ±ÊÕߵıà³Ìʵ¼ùÖУ¬²¢Ã»ÓÐʲôÌرðµÄ¸Ð¾õ£¬²»¹ýÎҽ϶àʹÓõÚÒ»ÖÖ·½Ê½£¬ÒòΪËüÊéдÆðÀ´¸ü¼Ó·½±ã¡£ÁíÍ⣬ÔÚ´úÂë½áÊøµÄʱºò£¬Ê¹ÓÃSetmyCLS=NothingÀ´È¡ÏûÀàµÄ×ÊÔ´Õ¼ÓÃÊÇÒ»Öַdz£ºÃµÄ±à³ÌÏ°¹ß¡£
¡¡¡¡
¡¡¡¡ÔÚ´°Ìåform1ÖÐ(´°ÌåÓÐÒ»¸öÃÜÂë¿ò¿Ø¼þtext1£¬passworldchar="*")Ìí¼ÓÒÔÏ´úÂ룺
¡¡¡¡
¡¡¡¡OptionExplicit
¡¡¡¡
¡¡¡¡¡¡PrivatemyCLSAsNewcls
¡¡¡¡
¡¡¡¡¡¡'ÒýÓÃcls
¡¡¡¡
¡¡¡¡¡¡PrivateSubForm_Load()
¡¡¡¡
¡¡¡¡¡¡myCLS.AttachText1
¡¡¡¡
¡¡¡¡¡¡'Æô¶¯Àà
¡¡¡¡
¡¡¡¡EndSub
¡¡¡¡
¡¡¡¡'ÔÚ´úÂë½áÊøʱ¼ÇµÃÊÍ·Å×ÊÔ´
¡¡¡¡
¡¡¡¡PrivateSubForm_Unload(CancelAsInteger)
¡¡¡¡
¡¡¡¡¡¡SetmyCLS=Nothing
¡¡¡¡
¡¡¡¡End
¡¡¡¡
¡¡¡¡¡¡EndSub
¡¡¡¡
¡¡¡¡±¾ÎÄ´úÂëչʾÁËÀàµÄ·½·¨µÄ´úÂë±àд¹ý³ÌºÍµ÷Ó÷½Ê½(¾¡¹ÜËüºÍÀàµÄʼþ·Ç³£ÏàËÆ)£¬ËüµÄЧ¹ûÊÇ£¬Èç¹ûÃÜÂë¿òÖб»ÊäÈëÁË·Ç×Öĸ£¬ÔòϵͳÕñÁ壬²¢É¾³ýÃÜÂë¿òÖеÄÔÀ´µÄÊý¾Ý¡ª¡ªÔÚÒ»¶¨³Ì¶ÈÉϱ£»¤ÃÜÂë¡£
¡¡¡¡ÀàµÄ·½·¨¿ÉÒÔ²»ÐèÒªÈκβÎÊý£¬ÕâÒ»µãÀàËÆÒ»¸öpublicµÄº¯Êý»òÕß¹ý³Ì£¬ËüÒ²ÊÇÀàÖÐʹÓÃ×î¹ã·ºµÄ¡£ÔÚÏÂһƪÎÄÕÂÖÐÎÒ½«ÌÖÂÛ£¬ÈçºÎʹÓÃÀàµÄÊôÐÔ¡¢Ê¼þºÍ·½·¨½øÐÐ×ۺϱà³Ì¡£(δÍê´ýÐø)
¡¡¡¡->