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

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

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


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

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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~

TOP

­Y¨ú¦¨¦³³W«h©Êªº¦W¦r´N·|¦³¦n³B
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD