VB»ù´¡ÈëÃŽ̳Ì(15)

2020-12-24 20:33

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


VB»ù´¡ÈëÃŽ̳Ì(15).doc ½«±¾ÎĵÄWordÎĵµÏÂÔØµ½µçÄÔ ÏÂÔØÊ§°Ü»òÕßÎĵµ²»ÍêÕû£¬ÇëÁªÏµ¿Í·þÈËÔ±½â¾ö£¡

ÏÂһƪ£º¡¶ÌåÓýÓ뽡¿µ¡·¸´Ï°×ÊÁÏ

Ïà¹ØÔĶÁ
±¾ÀàÅÅÐÐ
¡Á ×¢²á»áÔ±Ãâ·ÑÏÂÔØ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩

ÂíÉÏ×¢²á»áÔ±

×¢£ºÏÂÔØÎĵµÓпÉÄÜ¡°Ö»ÓÐĿ¼»òÕßÄÚÈݲ»È«¡±µÈÇé¿ö£¬ÇëÏÂÔØÖ®Ç°×¢Òâ±æ±ð£¬Èç¹ûÄúÒѸ¶·ÑÇÒÎÞ·¨ÏÂÔØ»òÄÚÈÝÓÐÎÊÌ⣬ÇëÁªÏµÎÒÃÇЭÖúÄã´¦Àí¡£
΢ÐÅ£º QQ£º