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

[µo°Ý] ¦p¦óÅý¦Û­qªí³æªºTextBox°O¾Ð¸g±`¿é¤Jªº¸ê®Æ?

[µo°Ý] ¦p¦óÅý¦Û­qªí³æªºTextBox°O¾Ð¸g±`¿é¤Jªº¸ê®Æ?

TextBox¸g±`¿é¤J¤j¦P¤p²§ªº¸ê®Æ~¸Ó¦p¦óÅý¥¦°O¿ý~´N¹³ºô­¶ªº·j´MTextBox¤@¼Ë?

§Úªº·Qªk¬O¼W¥[¤@­Ó¤u§@ªí°O¿ý´¿¸g¥X²{¹Lªº¤å¦r
Textbox«h¥ÎListBox¨ú¥N
¨C¦¸±Ò°Êªº®É­Ô´N±N±`¥Îªº¤å¦rAdd¨ìListBox¸Ì..
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-6 23:14 ½s¿è

¦^´_ 2# kevin681024


    «D±`·PÁ¤j¤j~§Ú­è¬d¸ß¤F¤@¤U ListBox
½Ð°Ý¬O§_¦³°Ñ¦Ò½d¨Ò©O? ÁÂÁ¤j¤j!

¥Ñ©ó±`¿é¤Jªº¸ê®Æ¬O«D©T©wªº´X­Ó~©Ò¥HÀ³¸ÓµLªk¨Ï¥ÎListBox

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-7 07:34 ½s¿è

¦^´_ 3# av8d
§ï¥Î ComboBox
1¦b¤u§@ªí ¨Ï¥Î±±¨î¤u¨ã½cªºComboBox¨Æ¥ó
  1. Private Sub ComboBox1_LostFocus()
  2.     'LostFocus ¨Æ¥ó ActiveX ±±¨î¶µ¥¢¥h¿é¤JµJÂI®É§Yµo¥Í¦¹¨Æ¥ó
  3.    If ComboBox1 <> "" Then  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
  4. End Sub
½Æ»s¥N½X
2¦bªí³æ¨Ï¥ÎComboBox¨Æ¥ó¥i¥ô¿ï¤@ºØ
  1. Option Explicit
  2. Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
  3.     'Â÷¶}±±¨î¶µ«á: µo¥Í¦b±±¨î¶µ¤¤ªº¸ê®Æ¦³©Ò§ïÅܮɡCªº¨Æ¥ó
  4. If ComboBox1 <> "" Then  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
  5. End Sub
  6. Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  7. 'Enter¡BExit ¨Æ¥ó
  8. 'Enter ¥D­nµo¥Í¦b¤@­Ó±±¨î¶µ¡A±q¦P¤@ªí³æ¤Wªº¥t¤@­Ó±±¨î¶µ¨ú±o¾nÂI¤§«e
  9. 'Exit ·|¦b¤@­Ó±±¨î¶µ¥¢¥h¾nÂI®Éµo¥Í¡C
  10. If ComboBox1 <> "" Then  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1 & "AA"
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


¤j¤jÁÂÁÂ~§Ú¨Ï¥Î²Ä2­Ó~¥i¥H¦¨¥\°O¾Ð~¦ý¬OÃö³¬"¦Û­qªí³æ"µøµ¡«á~
¦A­«·s¶}±Ò~­ì¨Óªº°O¾Ð´N¨S¤F~½Ð°Ý¬O§_¦³¿ìªkÅý¥L«ùÄò°O¾Ð¤U¥h©O?

TOP

¦^´_ 5# av8d
¶Ç¤WÀɮ׸ոÕ

TOP

¦^´_ 6# GBKEE


    ComboBox.rar (338.31 KB)

¦]¬°¿é¤Jªº³¡¤À¤j¦P¤p²§~¦ý¬O²¦³ºÁÙ¬O¦³®t²§~¨Ã«D©T©w~

·Q§âUserForm1,UserForm2,UserForm1,UserFormInstallment¤ºªº

TextBox³£´«¦¨ComboBox~¦ý¬O¥X¤FÂI°ÝÃD@@~·PÁ¤j¤j!

TOP

¦^´_ 7# av8d
5# »¡ ¥i¥H¦¨¥\°O¾Ð~¦ý¬OÃö³¬"¦Û­qªí³æ"µøµ¡«á~ ¦A­«·s¶}±Ò~­ì¨Óªº°O¾Ð´N¨S¤F
½Ð¶Ç¤W³o­ÓÀÉ®×

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-6-7 16:40 ½s¿è

¦^´_ 8# GBKEE

½Ð°Ý¤W¶Ç­þ­ÓÀÉ®×?
    ¬Oªº~°O¾Ð·|®ø¥¢~½Ð°Ý¦p¦óÅý¥L¤£·|®ø¥¢©O?ÁÙ¬O»¡¦³¨ä¥L¤èªk? G¤jÁÂÁÂ!

TOP

¦^´_ 9# av8d
7# Àɮפ¤  3­ÓUserForm³£¬Ý¤£¨ì ComboBox ±±¨î¶µ

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD