2.3 VBµÄ¶ÔÏó¡¢ÊôÐÔ¡¢Ê¼þºÍ·½·¨ 2.3.1 ¶ÔÏó(Object)
¶ÔÏóÊÇ´úÂëºÍÊý¾ÝµÄ×éºÏ£¬¿ÉÒÔ×÷Ϊһ¸öµ¥Î»À´´¦Àí¡£¶ÔÏó¿ÉÒÔÊÇÓ¦ÓóÌÐòµÄÒ»²¿·Ö£¬±ÈÈç¿ÉÒÔÊǿؼþ»ò´°Ìå¡£Õû¸öÓ¦ÓóÌÐòÒ²ÊÇÒ»¸ö¶ÔÏó¡£Ï±íÁгöÁËÔÚ Visual Basic ÖпÉÄÜÓõ½µÄ¼¸ÖÖÀàÐ͵ĶÔÏó£º Ê¾Àý ÃèÊö ÃüÁî°´Å¥ ´°Ìå Êý¾Ý¿â ͼ±í ´°ÌåÉϵĿؼþ£¬ÏóÃüÁî°´Å¥ºÍ¿ò¼Ü£¬ËüÃǶ¼ÊǶÔÏó¡£ Visual Basic ¹¤³ÌÖеÄÿһ¸ö´°Ìå¶¼ÊǶÀÁ¢µÄ¶ÔÏó¡£ Êý¾Ý¿âÊǶÔÏ󣬲¢ÇÒ»¹°üº¬ÆäËû¶ÔÏó£¬Èç×ֶΡ¢Ë÷ÒýµÈ¡£ Microsoft Excel ÖеÄͼ±íÊǶÔÏó¡£ ÔÚVisual BasicÖд´½¨Ó¦ÓóÌÐò£¬ÆäʵҲ¾ÍÊǺͶÔÏó´ò½»µÀ£¬°üÀ¨Ê¹ÓÃVisual BasicÌṩ
µÄ¶ÔÏó£¨Èç¿Ø¼þ¡¢´°ÌåºÍÊý¾Ý·ÃÎʶÔÏóµÈ£©£¬ÒÔ¼°ÔÚÒ»¸öVisual BasicÓ¦ÓóÌÐòÄÚ²¿¿ØÖÆÁíÒ»¸öÓ¦ÓóÌÐò¶ÔÏ󣬻¹¿É½¨Á¢×Ô¼ºµÄ¶ÔÏ󣬶¨ÒåËüÃǵÄÊôÐԺͷ½·¨µÈ¡£
¶ÔËùÓжÔÏóµÄʹÓö¼ÊÇͨ¹ýÆäÊôÐÔ¡¢Ê¼þºÍ·½·¨½øÐеġ£ÔÚVisual BasicÖУ¬³Æ¶ÔÏóµÄÊý¾Ý£¨ÉèÖúÍÊôÐÔ£©ÎªÊôÐÔ£¬³Æ¸÷ÖÖ¿ÉÔÚ¶ÔÏóÉϲÙ×÷µÄ¹ý³ÌΪ·½·¨¡£Ê¼þÊǿɱ»¶ÔÏóʶ±ðµÄ¶¯×÷£¬ÀýÈçµ¥»÷Êó±êºÍ°´Ï¼üÅ̼ü£¬»¹¿É±àд´úÂëÀ´ÏìӦʼþ¡£
ÔÚVisual BasicÖУ¬Ö÷ÒªÓÐÁ½ÖÖ¶ÔÏ󣺴°ÌåºÍ¿Ø¼þ¡£ ´°ÌåÊÇÒ»ÖÖ¶ÔÏó£¬ÓÉÊôÐÔ¶¨ÒåÆäÍâ¹Û¡¢ÓÉ·½·¨¶¨ÒåÆäÐÐΪ¡¢ÓÉʼþ¶¨ÒåÆäÓëÓû§µÄ½»»¥¡£Í¨¹ýÉèÖô°ÌåÊôÐÔ²¢±àдÏìӦʼþµÄ Visual Basic ´úÂ룬¾ÍÄܶ¨Òå³öÂú×ãÓ¦ÓóÌÐòÐèÒªµÄ¶ÔÏó¡£
¿Ø¼þÊǰüÀ¨ÔÚ´°Ìå¶ÔÏóÄڵĶÔÏó¡£Ã¿ÖÖÀàÐ͵Ŀؼþ¶¼ÓÐ×Ô¼ºµÄÒ»Ì×ÊôÐÔ¡¢·½·¨ºÍʼþ£¬ÒÔÊÊÓÃÓÚÌØ¶¨µÄÄ¿µÄ¡£Ò»Ð©¿Ø¼þ×îÊʺÏÔÚÓ¦ÓóÌÐòÖÐÊäÈë»òÏÔʾÎı¾¡£ÁíһЩ¿Ø¼þÄܹ»·ÃÎÊÆäËüµÄÓ¦ÓóÌÐòºÍ´¦ÀíÊý¾Ý£¬¾ÍÏóÕâЩԶ³ÌÓ¦ÓóÌÐòÊÇÓû§×Ô¼ºµÄ´úÂëÒ»Ñù¡£
2.3.2 ÊôÐÔ(Properties)
ËùÓжÔÏó¶¼¾ßÓÐ×Ô¼ºµÄÊôÐÔ¡¢·½·¨ºÍʼþ¡£¿ÉÒÔ°ÑÊôÐÔ¿´×÷Ò»¸ö¶ÔÏóµÄÐÔÖÊ£¬°Ñ·½·¨¿´×÷¶ÔÏóµÄ¶¯×÷£¬°Ñʼþ¿´×÷¶ÔÏóµÄÏìÓ¦¡£
¸Ä±ä¶ÔÏóµÄÊôÐԾͿɸıä¶ÔÏóµÄÌØÐÔ»òÍâ¹Û£¬´Ó¶øÊµÏÖ¶Ô¶ÔÏóµÄ¿ØÖÆ¡£
VBÖÐÓÐÁ½ÖÖÀàÐ͵ÄÊôÐÔ£¬ÔÚÔËÐÐʱ¿ÉÒÔÉèÖò¢¿É»ñµÃÖµµÄÊôÐÔ½Ð×ö¶ÁдÊôÐÔ£¬ÔÚÔËÐÐʱֻÄܶÁÈ¡µÄÊôÐÔ½Ð×öÖ»¶ÁÊôÐÔ¡£
¶ÁдÊôÐÔ¿ÉÓÃÀ´ÉèÖÃÊôÐÔµÄÖµ¡£ ͨ¹ý´úÂëÉèÖöÔÏóµÄÊôÐԵĸñʽΪ£º ¶ÔÏóÃû.ÊôÐÔÃû=ÉèÖõÄÊôÐÔÖµ
ÀýÈ磬ͨ¹ý¸Ä±äTextBox ¿Ø¼þµÄText ÊôÐÔ£¬¾Í¿ÉÒԸıäÎı¾¿òµÄÄÚÈÝ£º
Text1.Text = \
ÉÏÒ»¾ä´úÂë±íʾÔÚÎı¾¿ò¶ÔÏóText1ÖÐÏÔʾ¡°hello¡±×Ö·û´®¡£
ÓеÄÊôÐÔ¿ÉÔÚÉè¼ÆÊ±ÉèÖ㬼´¿ÉÔÚ¡°ÊôÐÔ¡±´°¿ÚÉèÖÃÕâЩÊôÐÔµÄÖµ¶øÎÞÐè±àд´úÂë¡£ ¶ÁÈ¡ÊôÐÔÖµ¿ÉÒÔ»ñÖª¶ÔÏóµÄ״̬¡£ÔÚ´ó¶àÊýÇé¿öÏ¿ÉÒÔÓÃÒÔÏÂÓï·¨»ñµÃÊôÐÔÖµ£º ±äÁ¿=¶ÔÏóÃû.ÊôÐÔÃû
ÀýÈ磬Èç¹ûÏ£Íû·µ»ØTextBox¿Ø¼þµÄText ÊôÐÔÖµ£¬ÒÔÈ·¶¨Îı¾¿òµÄÄÚÈÝ£º a= Text1.Text
ÉÏÒ»¾ä±íʾ°ÑÎı¾¿ò¶ÔÏóText1ÖÐÏÔʾµÄ×Ö·û´®·µ»Ø¸³Öµ¸ø±äÁ¿a¡£
2.3.3 ʼþ(Event)
¶ÔÏó»¹ÓÐʼþ¡£µ±¶ÔÏóµÄij·½ÃæÓб䶯ʱ¾Í´¥·¢ÁËʼþ¡£ÀýÈ磬ÊÕÒô»ú¿ÉÄÜÓС°ÒôÁ¿µ÷½Ú¡±Ê¼þ£¬µç»°¿ÉÄÜÓС°ÏìÁ塱ʼþ£¬µÈµÈ¡£
ʼþÊÇ´°Ìå»ò¿Ø¼þʶ±ðµÄ¶¯×÷¡£Ê¼þ¿ÉÒÔͨ¹ýÖîÈçµ¥»÷Êó±ê»ò°´Ï°´¼üµÄ²Ù×÷¶ø²úÉú£¬Ò²¿ÉÒÔͨ¹ý³ÌÐòµÄ¿ØÖƶø²úÉú£¬ÉõÖÁ¿ÉÒÔÓÉÁíÒ»¸ö´°¿ÚµÄ²Ù×÷¶ø²úÉú¡£
ÔÚÏìӦʼþʱ£¬Ê¼þÇý¶¯Ó¦ÓóÌÐòÖ´ÐÐ Basic ´úÂë¡£Visual Basic µÄÿһ¸ö´°ÌåºÍ¿Ø¼þ¶¼ÓÐÒ»¸öÔ¤¶¨ÒåµÄʼþ¼¯¡£Èç¹ûÆäÖÐÓÐÒ»¸öʼþ·¢Éú£¬¶øÇÒ£¬ÔÚ¹ØÁªµÄʼþ¹ý³ÌÖдæÔÚ´úÂ룬Ôò Visual Basic µ÷ÓøôúÂë¡£
¾¡¹Ü Visual Basic ÖеĶÔÏó×Ô¶¯Ê¶±ðÔ¤¶¨ÒåµÄʼþ¼¯£¬µ«ÒªÅж¨ËüÃÇÊÇ·ñÏìÓ¦¾ßÌåʼþÒÔ¼°ÈçºÎÏìÓ¦¾ßÌåʼþÔòÊDZà³ÌµÄÔðÈÎÁË¡£´úÂ벿·Ö£¨¼´Ê¼þ¹ý³Ì£©Óëÿ¸öʼþ¶ÔÓ¦¡£ ÏëÈÿؼþÏìӦʼþʱ£¬¾Í°Ñ´úÂëдÈëÕâ¸öʼþµÄʼþ¹ý³ÌÖ®ÖС£
¶ÔÏóËùʶ±ðµÄʼþÀàÐͶàÖÖ¶àÑù£¬µ«¶àÊýÀàÐÍΪ´ó¶àÊý¿Ø¼þËù¹²ÓС£ÀýÈ磬´ó¶àÊý¶ÔÏó¶¼ÄÜʶ±ðclick ʼþ£ºÈç¹ûµ¥»÷´°Ì壬ÔòÖ´Ðд°ÌåµÄµ¥»÷ʼþ¹ý³ÌÖеĴúÂ룻Èç¹ûµ¥»÷ÃüÁî°´Å¥£¬ÔòÖ´ÐÐÃüÁî°´Å¥µÄ click ʼþ¹ý³ÌÖеĴúÂ롣ÿ¸öÇé¿öÖеÄʵ¼Ê´úÂ뼸ºõÍêÈ«²»Ò»Ñù¡£
Ðí¶àʼþ°éËæÆäËüʼþ·¢Éú¡£ÀýÈ磬ÔÚ DblClick£¨×ó¼üË«»÷£© ʼþ·¢Éúʱ£¬MouseDown¡¢MouseUpºÍClickʼþÒ²»á·¢Éú¡£
2.3.4 ·½·¨(Method)
³ýÁËÊôÐÔÒÔÍ⣬¶ÔÏó»¹Óз½·¨¡£·½·¨ºÍÊôÐÔ¶¼ÊǶÔÏóµÄÒ»²¿·Ö¡£Ò»°ã˵À´£¬·½·¨¾ÍÊÇÒªÖ´Ðе͝×÷£¬¶øÊôÐÔ¾ÍÊÇÒªÉèÖûò¼ìË÷µÄÌØÐÔ¡£ÒÔ²¦ºÅ´òµç»°ÎªÀý¡£¿ÉÒÔ˵µç»°ÓÐÒ»¸ö¡°²¦ºÅ¡±·½·¨£¬²¦Ò»¸ö 7 λµç»°ºÅÂëµÄÓï·¨¾ÍÊÇ£º
Phone.Dial 5551111
ÔÚ´úÂëÖÐʹÓ÷½·¨Ê±ÈçºÎÊéдÓï¾ä£¬ÕâÈ¡¾öÓڸ÷½·¨ÒªÇó¶àÉÙ²ÎÊý£¬ÒÔ¼°ÊÇ·ñ·µ»ØÒ»¸öÖµ¡£Èç¹û·½·¨²»ÒªÇó²ÎÊý£¬ÔòÓÃÒÔÏÂÓï·¨±àд´úÂ룺
¶ÔÏóÃû.·½·¨Ãû
ÏÂÀýÖУ¬Óà Refresh ·½·¨ÖػͼƬ¿ò£º Picture1.Refresh ' Ç¿ÆÈÖØ»¿Ø¼þ¡£
ÓÐЩ·½·¨£¬ÈçÉÏÃæµÄ Refresh £¬¼ÈÎÞ²ÎÊýÓÖ²»·µ»ØÖµ¡£
Èç¹û·½·¨ÒªÓöà¸ö²ÎÊý£¬¾ÍÓöººÅ½«ËüÃÇ·Ö¿ª¡£ÀýÈ磬 Circle ·½·¨¾ÍÒªÓôú±í´°ÌåÉÏÔ²µÄλÖᢰ뾶ºÍÑÕÉ«µÄ²ÎÊý£º
' »Ò»¸ö°ë¾¶Îª 1200 ç¾µÄÀ¶É«Ô°¡£ Form1.Circle (1600, 1800), 1200, vbBlue
Èç¹ûÒª±£´æ·½·¨µÄ·µ»ØÖµ£¬¾Í±ØÐë°Ñ²ÎÊýÓÃÀ¨ºÅÀ¨ÆðÀ´¡£ÀýÈ磬GetData·½·¨´Ó¼ôÌù°å·µ»ØÒ»ÕÅͼƬ£º
Picture = Clipboard.GetData (vbCFBitmap)
Èç¹ûûÓзµ»ØÖµ£¬Ôò²ÎÊý²»»á³öÏÖÔÚÀ¨ºÅÖС£ÀýÈ磬AddItem ·½·¨Ã»Óзµ»ØÖµ¡£ List1.AddItem \ ' ÔÚÁбí¿òÖÐÌí¼Ó \¡£
2.4 Visual BasicÓïÑÔ»ù´¡ 2.4.1 ´úÂë±àд¹æÔò
ºÍÈκαà³ÌÓïÑÔÒ»Ñù£¬Visual Basic ÓÐ×ÔÉíµÄ×éÖ¯¡¢±à¼ºÍ¸ñʽ»¯´úÂë¹æÔò¡£ ´ó¶àÊý´úÂë¶¼ÔÚ¡°´úÂë±à¼Æ÷¡±´°¿ÚÉϱàд¡£ÏÂͼËùʾΪ¡°´úÂë±à¼Æ÷¡±´°¿Ú¡£
1¡¢´úÂëÊéд
£¨1£©½«µ¥ÐÐÓï¾ä·Ö³É¶àÐÐ
µ±Ò»¸öÓï¾äºÜ³¤Ê±£¬¾¡¹Ü¿ÉÒÔͨ¹ý´úÂë´°¿ÚÏ·½µÄˮƽ¹ö¶¯ÌõÀ´²é¿´£¬µ«ÊÇ»¹ÊÇÏԵò»·½±ã£¬Îª´Ë£¬¿ÉÒÔʹÓÃÐøÐзû£¨Ò»¸ö¿Õ¸ñºóÃæ¸úÒ»¸öÏ»®Ïߣ©½«³¤Óï¾ä·Ö³É¶àÐС£ÓÉÓÚʹÓÃÐøÐзû£¬ÎÞÂÛÔÚ¼ÆËã»úÉÏ»¹ÊÇ´òÓ¡³öÀ´µÄ´úÂë¶¼±äµÃÒ×¶Á¡£ÏÂÃæÓÃÐøÐзû ( _) ½«´úÂë·Ö³ÉÈô¸ÉÐУº
Data1.RecordSource = _
\
& \& \
ÔÚͬһÐÐÄÚ£¬ÐøÐзûºóÃæ²»ÄܼÓ×¢ÊÍ¡£
£¨2£©½«¶à¸öÓï¾äºÏ²¢µ½Í¬Ò»ÐÐÉÏ
ͨ³££¬Ò»ÐÐÖ®ÖÐÓÐÒ»¸ö Visual Basic Óï¾ä£¬¶øÇÒ²»ÓÃÓï¾äÖÕ½á·û¡£µ«ÊÇÒ²¿ÉÒÔ½«Á½¸ö»ò¶à¸öÓï¾ä·ÅÔÚͬһÐУ¬Ö»ÊÇÒªÓÃðºÅ (:) ½«ËüÃÇ·Ö¿ª¡£
Text1.Text = \µ«ÊÇ£¬ÎªÁ˱ãÓÚÔĶÁ´úÂ룬×îºÃ»¹ÊÇÒ»ÐзÅÒ»¸öÓï¾ä¡£
2¡¢ÔÚ´úÂëÖÐÌí¼Ó×¢ÊÍ
×¢ÊÍ·ûÓõ¥ÒýºÅ(')±íʾ£¬¸Ã·ûºÅºóÃæµÄÄÚÈÝÊÇ´úÂë¶ÎÖеÄ×¢ÊÍ£¬ÊǶԴúÂëµÄ˵Ã÷£¬ÕâÑù¿ÉÒÔ·½±ã¿ª·¢Õß×Ô¼º£¬·½±ãÒÔºó¿ÉÄܼì²éÔ´´úÂëµÄÆäËû³ÌÐòÔ±¡£Visual BasicÔÚÖ´ÐдúÂëʱ½«ºöÂԸ÷ûºÅºóÃæµÄÄÚÈÝ¡£ÀýÈ磺
' ÕâÊÇ´ÓÆÁÄ»×ó±ß ' ¿ªÊ¼µÄ×¢ÊÍ¡£
Text1.Text = \ 'ÔÚÎı¾¿òÖзŠ'»¶Ó´Ê¡£
×¢ÊÍ¿ÉÒÔºÍÓï¾äÔÚͬһÐв¢Ð´ÔÚÓï¾äµÄºóÃæ£¬Ò²¿ÉÕ¼¾ÝÒ»ÕûÐС£ÉÏÊö´úÂë¶ÔÕâÁ½ÖÖÇé¿ö¶¼×÷ÁËʾ·¶¡£¼Çס£¬²»ÄÜÔÚͬһÐÐÉÏ£¬½«×¢ÊͽÓÔÚÐøÐзûÖ®ºó¡£
3¡¢Visual BasicµÄÃüÃûÔ¼¶¨
ÔÚ±àдVisual Basic´úÂëʱ£¬ÒªÉùÃ÷ºÍÃüÃûÐí¶àÔªËØ£¨ÈçSub ºÍ Function ¹ý³Ì¡¢±äÁ¿¡¢³£ÊýµÈµÈ£©¡£ÔÚVisual Basic´úÂëÖÐÉùÃ÷µÄ¹ý³Ì¡¢±äÁ¿ºÍ³£ÊýµÄÃû×Ö£¬±ØÐë×ñÑÕâЩ¹æÔò£º
? ±ØÐëÒÔ×Öĸ¿ªÍ·¡£
? ²»¿ÉÒÔ°üº¬Ç¶ÈëµÄ¾äºÅ»òÕßÀàÐÍÉùÃ÷×Ö·û£¨¹æ¶¨Êý¾ÝÀàÐ͵ÄÌØÊâ×Ö·û£©¡£ ? ²»Äܳ¬¹ý 255 ¸ö×Ö·û¡£¿Ø¼þ¡¢´°Ìå¡¢ÀàºÍÄ£¿éµÄÃû×Ö²»Äܳ¬¹ý 40 ¸ö×Ö·û¡£ ? ²»ÄܺÍÊܵ½ÏÞÖÆµÄ¹Ø¼ü×ÖͬÃû¡£
Êܵ½ÏÞÖÆµÄ¹Ø¼ü×ÖÊÇVisual BasicʹÓõĴʣ¬ÊÇÓïÑÔµÄ×é³É²¿·Ö¡£ÆäÖаüÀ¨Ô¤¶¨ÒåÓï¾ä£¨±ÈÈç If ºÍ Loop£©¡¢º¯Êý£¨±ÈÈç Len ºÍ Abs£©ºÍ²Ù×÷·û£¨±ÈÈç Or ºÍ Mod£©¡£
¹ØÓڹؼü×Ö±íµÄ¸üÏêϸÐÅÏ¢£¬Çë²ÎÔÄVisual BasicÓïÑԲο¼ÊÖ²á»òÏà¹Ø½Ì²Ä¡£
2.4.2 Êý¾ÝÀàÐÍ
Êý¾ÝÊÇÐÅÏ¢µÄÎïÀí±íʾÐÎʽ£¬ÊdzÌÐò´¦ÀíµÄ¶ÔÏó¡£ÔÚVisual BasicÖУ¬¶Ô²»Í¬ÀàÐ͵ÄÊý¾ÝÓв»Í¬µÄ²Ù×÷·½Ê½ºÍ²»Í¬µÄȡֵ·¶Î§¡£Visual BasicÊý¾ÝÀàÐͰüÀ¨ Byte¡¢Boolean¡¢Integer¡¢