[µo°Ý] ªí³æ¦C¦L

solely

¤U¸ü (48.84 KB)

2010-9-18 22:29

Personnel.PrintForm
·|³s¦P«ü¥O«ö¶s¡B²M³æªº±²¶b¤@°_¦C¦L
½Ð°Ý¦³¤°»ò¤èªk¥i¥H°£¥h«ü¥O«ö¶s??

solely

³W«h©Ê??
¹³CB_add
   CB_search
   CB_print
³o¼Ë¤l¶Ü??

Hsieh

­Y¨ú¦¨¦³³W«h©Êªº¦W¦r´N·|¦³¦n³B

solely

¦^´_ 2# Hsieh
ÁÂÁª©¥D~
¨Ì¼Ëµe¸¬Äª§Ú§â³o¥y
If ct.Name Like "CommandButton*" Then ct.Visible = False
§ï¦¨
If ct.Name Like "ComboBox*" Then ct.DropButtonStyle = 0
¤]¥i¥H§âComboBoxªº¤p½bÀY®ø±¼XD
©Ò¥H»¡...§ÚÀ°«ü¥O«ö¶s¡B²M³æ¨ú¦W¦r...¬O¦h¦¹¤@Á|-.-""..¥u·|¼W¥[¼gµ{¦¡ªº§xÂZ~

Hsieh

¦^´_ 1# solely

1. Private Sub CommandButton1_Click() '¦C¦L«ö¶s
   
2. With Me
   
3. For Each ct In .Controls
   
4.    If ct.Name Like "CommandButton*" Then ct.Visible = False
   
5. Next
   
6. .PrintForm
   
7. For Each ct In .Controls
   
8.    If ct.Name Like "CommandButton*" Then ct.Visible = True
   
9. Next
   
10. End With
    
11. End Sub

½Æ»s¥N½X