ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¨D±Ð¦³ÃöUserForm¨Ï¥Î§¹«á¤£¦û°O¾ÐÅ骺²M°£¤èªk

¨D±Ð¦³ÃöUserForm¨Ï¥Î§¹«á¤£¦û°O¾ÐÅ骺²M°£¤èªk

¦U¦ì«e½ú¡A¤£¦n·N«ä¡A¤S­n¨Óµo°Ý¤F
°²¦p§Ú¦Û¤v§@¤F¤@­ÓUserForm1¦Ó¡A­n¶}±Òªº¥L¤èªk¤S¦³¤GºØ
¤èªk¤@¡G
Sub Test_1()

    Dim AForm As UserForm1

    Set AForm = New UserForm1
   
    With AForm
        
        .Show
   
    End With
   
    Unload AForm
    Set AForm = Nothing
   
End Sub

¤èªk¤G
Sub Test_2()

    UserForm1.Show
   
    Unload UserForm1

End Sub

·Q½Ð±Ð¦U¦ì«e½úªº¬O¡G
¤@¡B¦b¤èªk¤@¤ºUnload AForm¡A³o®Éµøµ¡·|®ø¥¢¡A¦ý¬Oºâ¬O³s¦û¥Îªº°O¾ÐÅé³£²M±¼¤F¶Ü¡HÁÙ¬O­n¦A°õ¦æSet AForm = Nothing¤~·|²M±¼°O¾ÐÅé©O¡H
¤G¡B¥t¥~§Ú­n¬O¨S¦³°õ¦æUnload AForm¡A¥u°õ¦æSet AForm = Nothing¡A¦ü¥Gµøµ¡ÁÙ¦b¡A¦ý¬O²z½×¤W¨Ó»¡AForm¦û¥Îªº°O¾ÐÅéÀ³¸Ó
³Q²M±¼¤~¹ï
¤T¡B³o¤GºØ¤èªk¡A¦³¤°»òÀu¯ÊÂI¤§¤À§O¶Ü¡H
clio

¦^´_ 2# luhpro

·PÁ«e½úªº¸Ñ»¡¡A³o­Ó¤Ó²M·¡¤F¡AÅý§Ú§ó²M·¡ªº©ú¥Õ¡ASet ªº·N¸q¡A·PÁ±z¡C
clio

TOP

¦^´_ 3# stillfish00

·PÁ«e½úªº«ü¥¿¸ò»¡©ú¡AÅý§Ú§ó²M·¡ªº¤F¸Ñ¤F¤@¨Ç¨Æ¡A§Ú¥»¨Ó¬O¦Ò¼{«Ø¥ß¤@­ÓªÅ¥ÕªºUserForm¡AµM«á¦A¥Î¤@­ÓFunction¨Ó©I¥s¥¦¡A¦Ó©Ò¦³ªº¸ü¤J¸ê®Æ¡A¾e¨ú¦^Âиê®Æ³£¥Ñ³o­ÓFunction¨Ó³B²z¨ú±o¡A¦ÓFunction¤S¥i¥H¶Ç¦^¸ê®Æ¡A©Ò¥H§Ú´N¥i¥H±o¨ì¨Ï¥ÎªÌ¿ï¨úªº¸ê®Æ¬°¦ó¡A¦ÓFunction¤º¸ü¤Jªº¤@¨Ç°Ñ¼Æ¡A¥i¥H¨M©wListBoxªº­È¡A»P¤@¨Ç¿ï¶µ°Ñ¼Æ¡A§Ú¤]¥´ºâÅý¥L¦¨¬°±j¨î¿ï¨ú¡A©Ò¥H·|¨ú®ø✕«öÁ䪺¥\¯à¡A¨Ï¥¦¥¢®Ä¡A¦]¬°¥Ø«e§Ú§ä¤£¨ì§ó¦nªº¤èªk¨ÓÅýUserFormµ²§ô«e¡A§â¨Ï¥ÎªÌ¿ï¨úªº¸ê®Æ¶Ç¥X¥X¨Ó¡A¥Ø«e¥u¯à¥ÎPublicÅܼƤ~¯à¹F¨ì¡A¦ý¬O§Ú¦³¨Ç¤£·Q³]³o¼Ë¦hPublic ÅܼơA©Ò¥H¤~·Q§ï¥Î¦¹¤@¤è¦¡¡C
clio

TOP

¦^´_ 4# jackyq

«e½úªº³o­Ó¨Ò¤l¡A¸ÑÄÀªº«Ü²M·¡»¡¡A«e­±¤T­ÓLoadForm1³£¬O­«·sLoadForm1¡A©Ò¥H²Î­pUserForm2.Count³£¬°1
¦Ó«á¤T­ÓSet F1=New UserForm1¡A«h¬O«Ø¥ß¤F¥t¤@­ÓUserForm1¡A©Ò¥HUserForm2.Count´N·|¦A¥[1
·PÁ«e½úªº¨Ò¤l
clio

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD