- ©«¤l
- 132
- ¥DÃD
- 31
- ºëµØ
- 0
- ¿n¤À
- 167
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taipei
- µù¥U®É¶¡
- 2011-4-14
- ³Ì«áµn¿ý
- 2024-2-28
|
¦U¦ì«e½ú¡A§Ú«á¨Ó¸ÕµÛ«Ü¦h¦¸¡A¦b§Úªºµ{¦¡¤¤¥[¤JDoEvents¡A¦Ó¥B¬O¥[¦b¨º¤@Ó¦ì¸m¤W¡A´N¥i¥H¤F¡A¦ý¬O§Ú¤]¤£²M·¡¬°¤°»ò¡An¬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©Ò¥Hn¨ú¥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¤@¦æ¡An¤£µ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
'¤Wz¬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 |
|