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

UserFormÅã¥Ü°ÝÃD

UserFormÅã¥Ü°ÝÃD

¦U¦ì«e½ú
¤pªº³]©w¤@­ÓUserForm¡A°õ¦æ®É·|®Ú¾Ú¡A¿é¤Jªº¸ê®Æ¤j¤p¡A¦Ó§ïÅܵøµ¡ªº¬Û¹ïÀ³¤j¤p¡A·|¥ý­pºâ¸ê®Æªºµ§¼Æ¡A¦A³]©w¦nµøµ¡¤j¤p¡A¤~°õ¦æShow¡A¦ý¬O¦³®É·|«Ü¥¿±`ªº§e²{¡A¦³®É¤S·|¨S¦³·Ó§Ú³]©wªº¥h§ïÅܤj¤p
³y¦¨¦³¨Ç±±¨î¶µ¤£¨£¡A­n¬O§Ú¥ÎF8¤@¨B¨Bªº°õ¦æ¡A´N³£¥¿±`¡A³o­Ó¦³¸Ñ¨Mªº¤èªk¶Ü¡H
clio

¦U¦ì«e½ú¡A§Ú«á¨Ó¸ÕµÛ«Ü¦h¦¸¡A¦b§Úªºµ{¦¡¤¤¥[¤JDoEvents¡A¦Ó¥B¬O¥[¦b¨º¤@­Ó¦ì¸m¤W¡A´N¥i¥H¤F¡A¦ý¬O§Ú¤]¤£²M·¡¬°¤°»ò¡A­n¬O¦³²M·¡ªº«e½ú¡A¯à§_À°§Ú¸ÑºÃ¡A·PÁ±z

With UFLB
   
        .Caption = UFListBox_Caption
        .ListBox1.ListStyle = fmListStyleOption         'Åý«eºÝ¦³¤@­Ó¤Ä¿ïªº®Ø¡A¥i¥H§ó²M·¡¬O§_¦³³Q¿ï¨ú
        .ListBox1.MultiSelect = LB_MultiSelect_Lng
        .ListBox1.List = LB_List_AR_Str
        
        'UserForm1ªºInsideHeight , »PInsideWidth¡A³£¬°°ßŪ¡A¤£¯à§ïÅܨä¼Æ­È¡A³o¤G­Ó¼Æ­È¬O«ü¡AUserFormªº¤º³¡ªÅ¶¡¤j¤p¡A¦]¬°UserFormÁÙ¦³©ê¬A¼ÐÀY»PÃä½u¡A©Ò¥H­n¨ú¥X¨ä®t¶Z¡A¦A¨Ó¥[¤WInsideHeight¡A¨Ó³]©wHeight¡F¥[¤WInsideWidth¨Ó³]©wWidth¡C
        HeightGap_Sng = .Height - .InsideHeight
        WidthGap_Sng = .Width - .InsideWidth
   
        .ListBox1.Height = LB_Height_Sng
        .ListBox1.Width = LB_Width_Sng
        '¤W­±¤G­È­n¨M©wListBox1ªº¤j¤p
        
        DoEvents                '»Ý­n¥[³o¤@¦æ¡A­n¤£µM¦³®É¤U¤èªº¤G­Ó±±¨î¶µOK»PCancel·|µLªkÅã¥Ü¥X¨Ó
        
        .OK.Height = OKC_Height_Sng
        .OK.Width = OKC_Width_Sng
        '¤W­±¤G­È­n¨M©wOKªº¤j¤p
     
        .Cancel.Height = CancelC_Height_Sng
        .Cancel.Width = CancelC_Width_Sng
        '¤W­±¤G­È­n¨M©wCancelªº¤j¤p
     
        .ListBox1.Top = 0
        .ListBox1.Left = 0
        .OK.Top = .ListBox1.Top + .ListBox1.Height
        .OK.Left = 0
        .Cancel.Top = .OK.Top
        .Cancel.Left = .OK.Left + .OK.Width
        '¤W­z¬O¨M©w³o¤T­Ó±±¨î¶µªº±Æ¦C¦ì¸m
        
        .Height = .ListBox1.Height + .OK.Height + HeightGap_Sng
        .Width = .ListBox1.Width + WidthGap_Sng
        '³]©wUFListBoxªº§e²{¤j¤p
        
        .ListBox1.ListIndex = -1
        'ªì©l¤ÆListBox1¬°µL¥ô¦ó¤Ä¿ï
        
        .Show                                           'Initialize¦b«e­±¡uSet UFLB = New UFListBox¡v°õ¦æ¹L¤F¡A©Ò¥H³oÃäShow¤£·|¦A°õ¦æ
   
    End With
clio

TOP

­ì¥» Height ªº³]©w¦b ListStyle = fmListStyleOption   ¤§«á      
        .ListBox1.ListStyle = fmListStyleOption         
        .ListBox1.MultiSelect = LB_MultiSelect_Lng
        .ListBox1.List = LB_List_AR_Str
......
        .ListBox1.Height = LB_Height_Sng
        .ListBox1.Width = LB_Width_Sng

§â¥L§ï¦¨ ¦b ListStyle = fmListStyleOption   ¤§«e      
Åܦ¨
        .ListBox1.Height = LB_Height_Sng
        .ListBox1.Width = LB_Width_Sng

        .ListBox1.ListStyle = fmListStyleOption         
        .ListBox1.MultiSelect = LB_MultiSelect_Lng
        .ListBox1.List = LB_List_AR_Str

µM«á®³±¼ Doevents
¬O§_ok?

TOP

¦^´_ 3# jackyq


   ·PÁ«e½ú¡A·Ó©p³o¼Ë§ï´N¥i¥H­C¡A¬O¤£¬O¦³¤°»ò³W©w¡A­n¥ý³]±±¨î¶µªº¤j¤p¡A¦A³]©w¥Lªº¤@¨Ç°Ñ¼Æ­È¡A¤~¯à¥¿±`°Ê§@¡H
clio

TOP

(1)
listbox ·|¦Û°ÊÁY©ñ height
Private Sub CommandButton1_Click()
  ListBox1.ListStyle = fmListStylePlain
  ListBox1.ListStyle = fmListStyleOption
End Sub

(2)
listbox ¦³·å²«
³s«ö«Ü¦h¦¸ CommandButton1 «á, §A·|¬Ý¨ì·å²«
·å²«¥X²{«á, ²¾°Ê¤@¤U Form
Private Sub CommandButton1_Click()
  h = ListBox1.Height
  ListBox1.ListStyle = fmListStylePlain
  ListBox1.ListStyle = fmListStyleOption
  ListBox1.Height = h
End Sub

TOP

¦^´_ 5# jackyq


    ·PÁ«e½úªº¸Ñ»¡¡K
clio

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD