ParsX.com
پذیرش پروژه از دانشجویی ... تا سازمانی 09376225339
 
   ProfileProfile   Log in to check your private messagesLog in to check your private messages  |  FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups Log inLog in   RegisterRegister 

باز كردن ليست كامل combo box بازدن down بدون زدن ALt

 
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET
View previous topic :: View next topic  
Author Message
emsii
دوست آشناي سايت


Joined: 16 Dec 2005
Posts: 90
Location: tehran

PostPosted: Fri Dec 16, 2005 8:29 pm    Post subject: باز كردن ليست كامل combo box بازدن down بدون زدن ALt Reply with quote

جهت باز كردن ليست كامل combo box بازدن down بدون زدن ALt
(مثل declration ------دو comboBox بالاي پنجره كد نويسي)
m.jahanbini@gmail.com
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Fri Dec 16, 2005 9:13 pm    Post subject: Reply with quote

اول یک combo روی فرم قرار بده بعد کد زیر رو توی فرم بنویس


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const CB_SHOWDROPDOWN = &H14F
Private Const CB_LIMITTEXT = &H141
Private Const CB_FINDSTRING = &H14C
Private Const LB_FINDSTRING = &H18F
Private Const LB_SETTABSTOPS = &H192

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyDown Then
   Dim lngRet As Long
   lngRet = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&)
End If

End Sub

Private Sub Form_Load()

For i = 0 To 10
    Combo1.AddItem i
Next

End Sub
Back to top
emsii
دوست آشناي سايت


Joined: 16 Dec 2005
Posts: 90
Location: tehran

PostPosted: Sun Dec 18, 2005 9:58 am    Post subject: Reply with quote

اقا جاکرتييـــــــــــــــــــيييم
دست گلت درد نکنه
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Sun Dec 18, 2005 6:04 pm    Post subject: Reply with quote

خواهش می کنم
لذتشو ببر
Back to top
emsii
دوست آشناي سايت


Joined: 16 Dec 2005
Posts: 90
Location: tehran

PostPosted: Tue Dec 20, 2005 8:28 pm    Post subject: Reply with quote

search تو يك ليست combobox dropdownList ترجيحا.
بازدن حرف اول
Back to top
emsii
دوست آشناي سايت


Joined: 16 Dec 2005
Posts: 90
Location: tehran

PostPosted: Tue Dec 20, 2005 8:31 pm    Post subject: search تو يك ليست combobox dropdownList ترجيحا. بازدن حرف ا Reply with quote

search تو يك ليست combobox dropdownList ترجيحا.
بازدن حرف اول
Back to top
Display posts from previous:   
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET All times are GMT + 3.5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum