
VB»ù´¡ÈëÃŽ̳Ì
°ÑʹÓÃButton1µÄEnabledÊôÐÔÉèΪFalse£¨¼Ù£©£¬ÊÇʹ³ÌÐòÔÚ³õʼʱ£¬ÎÞ·¨µ¥»÷Command1¡£°´F5£¬ÔËÐгÌÐò£¬Í¼4£4£¬¸´Ô°´Å¥³ÉΪ»ÒÉ«£¬²»¿ÉÑ¡¡£
µ±È»ÏÖÔÚ³ÌÐò»¹Ê²Ã´Ò²²»ÄÜ×ö£¬ÏÂÃæÎÒÃÇÔÚ³ÌÐòÖÐÌí¼Ó´úÂ룺 Ê×ÏÈÔÚGeneralÀïÉùÃ÷È«¾Ö±äÁ¿£º
Dim StoreString As String 'ÓÃÀ´´¢´æ×Ö·û´® ¡ù×¢Ò⣺ΪʲôÓÃÈ«¾Ö±äÁ¿£¿
VBÀïÿһ¸öС¹ý³Ì¶¼Ï൱ÓÚÒ»¸ö³ÌÐò£¬³ÌÐòÀïµÄ±äÁ¿³ÆÎª¾Ö²¿±äÁ¿£¬ÊÇÖ»ÄÜÔÚ³ÌÐòÄÚ²¿Ê¹Óõ쬶øµ±³ÌÐòµ÷ÓýáÊøºó£¬ÓÉÓÚ´ÓÄÚ´æÖб»Çå³ý£¬ËùÒÔ±äÁ¿´¢´æµÄÖµÒ²¾ÍÏûʧÁË£¬ÕâÀïµÄÈ«¾Ö±äÁ¿ÊÇÓÃÀ´ÔÚ¹ý³ÌÖд«µÝ×Ö·û´®¡£ ½Ó×ÅÌîдÒÔÏ´úÂ룺
Private Sub Command1_Click() Text1.Text = StoreString Command1.Enabled = False End Sub
Private Sub Command2_Click() StoreString = Text1.Text Text1.Text = "" 'Çå³ý Command1.Enabled = True End Sub
°Ù¶ÈËÑË÷¡°77cn¡±»ò¡°Ãâ·Ñ·¶ÎÄÍø¡±¼´¿ÉÕÒµ½±¾Õ¾Ãâ·ÑÔĶÁÈ«²¿·¶ÎÄ¡£Êղر¾Õ¾·½±ãÏ´ÎÔĶÁ£¬Ãâ·Ñ·¶ÎÄÍø£¬Ìṩ¾µäС˵×ÛºÏÎÄ¿âVB»ù´¡ÈëÃŽ̳Ì(15)ÔÚÏßÈ«ÎÄÔĶÁ¡£
Ïà¹ØÍÆ¼ö£º
