????? ??? DropDown ?? ??? "???????" ?? ???? ????? ????

?????? ????????? ?????? ?????????
???? ???????: 124057 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

?? ??? ??????

??????

???? ??? ?????? ????? ????? ????? ??? ???? ????? ???? ???? ??? ????? ????? ?? ??????? ?? ?? ???.

?????? ?????? ??? ??????? ????? ????? ???? ???? ??? ?? ??????? ???????? ??????? ??? ???? ???? ????? ???? ??????? ?? ????? ??? ??????? F4 ????? ???? ??????? ??? ???? ??????. ???? ???? ????? ???? ??? ??? ????? ??? ???? ??? ?? ??????? ???????? ??? ???? ?? ??????? ?????? ?? ???? ???????? ??????? ???? ?? ??????? ?? ???? ESC ?? ??????? F4 ?? ???? ??? ?? ???? ??? ??? ??????.

??????? ????

????? ????? CB_SHOWDROPDOWN ???? ????? ???? ?? ??? 0 - ??????? ?????? ?????? ?? 2 - ????? ?????? ??????? ???? SendMessage API. ??? ???? ??????? wParam ?? ??? ???? ??? ????? ? ???? ????? ???????. ??? ???? wParam ????? 0 ? ???? ??? ???????. ?????? ???? ????? ???? ??????? 1 (????? ???? "????") ????? ??? ????? ??? ?????.

???? ???? ?????

  1. ??? ????? ???? ?? Visual Basic (ALT F? N). ??? ????? Form1 ???? ???????.
  2. ?? ?????? ???????? ??????? ??? ?????? Declarations ??? Form1:
          ' Enter the following two lines as one, single line:
    
          Declare Function SendMessage Lib "User" (ByVal hWnd As Integer,
          ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
    
          ?For Windows 95 and 98
          Const WM_USER = &H400
          Const CB_SHOWDROPDOWN = (WM_USER + 15)      
    
          ?For Windows NT, 2000 and XP, define CB_SHOWDROPDOWN as below
          ?Const CB_SHOWDROPDOWN = &H14F 
    
    						
  3. ?? ?????? ????????? ???????? ??????? ??? ????? Load ???????:
       Sub Form_Load ()
          combo1.AddItem "item# 1"
          combo1.AddItem "item# 2"
          combo1.AddItem "item# 3"
          combo1.AddItem "item# 4"
       End Sub
    
    						
  4. ??? ???? ????? ???? (Combo1) ??? Form1.
  5. ??? ?? ??? (Command1) ??? Form1 ?????? ????? ??????? ????????? ?????? ??? ??? DropDown.
  6. ?? ?????? ????????? ???????? ??????? ??? ???? ???? Command1 ?????:
       Sub Command1_Click ()
          x% = SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, 1, 0&)
       End Sub
    
    						
  7. ??? ?? ??? ???? (Command2) ??? Form1 ?????? ??????? ????????? ????? ?? ??????? Retract.
  8. ?? ?????? ????????? ???????? ??????? ??? ???? ???? Command2 ?????:
       Sub Command2_Click ()
          x% = SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, 0, 0&)
       End Sub
    
    						
  9. ???? ??????? F5 ?????? ????????. ???? ??? ???? DropDown ?????? ????? ???? ??????? ?????? ?? ???? ??? ???? Retract ???????.

?????????

??? ??? ??????? ????? ?? ????? ??? ????? ????? ?? ??????? ?? ?? ??? ??? ??????? ?? ???????. ????? ??? ?????? ??? "???? ????? ????" ???????? ?????? ???????? ???????? ??????? ??? ?????? ??????? ?????? ????? ??????? ???? ??? ???????:
   Sub Form_Paint ()
      x% = SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, 0, 0&)
   End Sub
				

   Sub Form_Resize ()
      x% = SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, 0, 0&)
   End Sub
				

??? ???? ?????? ???, ??? ??? ???? ????? ??? ??? ????? ?? ???????, ??? ????? ??? ??????? ?? ????? ????. ???? ?? ??? ???? ??????? ??? ?? ??? ????? ??? ?? "Rectract" ?? ?????? ???? ?? ???????.

???????

???? ???????: 124057 - ????? ??? ??????: 15/????/1424 - ??????: 2.0
????? ???
  • Microsoft Visual Basic 2.0 Standard Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 2.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
????? ??????: 
kbmt KB124057 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????124057
????? ??????? ?? ????? ???? ?? ????? ???????
?? ????? ????? ?????? ???? ???? ???? ??? ??????? ??? ?? ? ?? ??? ??????? Microsoft ??? ????? ??? ??????? ????? ?????? ?????

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com