السلام عليكم
عندي combo box وزر أمر command وأريد عند الضغط على زر الأمر command أن يتم فتح combo
وجزاكم الله خيرا
كيف يمكنني فتح combo بواسطة زر أمر
مغلق
أبعتله الـ Focus و بعدين بالـ SendKeys أبعت Alt + down arrow , جرب ممكن تنفع...!
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
جزاك الله خيرا أخي الكريم
نجحت الطريقة والحمد لله
معلش سؤال آخر
أريد أن أعمل هذه الطريقة أيضا مع أداة color picker بحيث عند الضغط على زر الأمر تفتح قائمة الألوان
جربت طبعا نفس الطريقة لكن للأسف أن هذه الأداة لا تفتح تقريبا من أي زر من الكيبورد
وجزاك الله خيرا
والله مش فاضى حتى لأنى أقعد مع أهلى , حاضر هبصلك عليها أن شاء الله.
تم تعديل هذه المشاركة بواسطة msayed2004 في 15 ديسمبر 2006 في 04:32
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
أنا بفترض أنك بتستعمل الـ MB Color picker
أبعتلها الـ Focus وبعدين Enter
أو
ColorPicker1.ShowPalette
و آسف على التأخير
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
السلام عليكم
أخى الكريم يمكنك إستخدام الأداه
Microsoft Common Dialog
وعن طريقها إستخدم الكود التالى
CommonDialog1.ShowColor
وللتعامل مع اللون المختار
CommonDialog1.Color
مثلا لتغير لون الفورم باللون المختار
Form1.BackColor = CommonDialog1.Color
Never Give Up You Are Programmer
Being Genius Is The Step Before Madness
Artificial Intelligence Is No Match For Natural Stupidity
وليه أدوات أساسا B)
حط الكود ده فى Module :
Private Type CHOOSECOLOR
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long
Dim CustomColors() As Byte
Public Function ShowColor(FormName As Form) As Long
Dim cc As CHOOSECOLOR
Dim Custcolor(16) As Long
Dim lReturn As Long
ReDim CustomColors(0 To 16 * 4 - 1) As Byte
Dim i As Integer
For i = LBound(CustomColors) To UBound(CustomColors)
CustomColors(i) = 0
Next i
cc.lStructSize = Len(cc)
cc.hwndOwner = FormName.hWnd
cc.hInstance = App.hInstance
cc.lpCustColors = StrConv(CustomColors, vbFromUnicode)
cc.flags = 0
If CHOOSECOLOR(cc) <> 0 Then
ShowColor = cc.rgbResult
CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
Else
ShowColor = -1
End If
End Function
Option Explicit
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
السلام عليكم
أخى الكريم msayed2004
طبعا من غير أدوات احسن
بس انا بتكلم على أداه فى الفيجوال مش أداه خارجيه
Never Give Up You Are Programmer
Being Genius Is The Step Before Madness
Artificial Intelligence Is No Match For Natural Stupidity
هى مع الفيجوال باسيك مش فيه و بالتالى تبقى أداة خارجية :blink: .
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
أخي الكريم الكود الأول لم ينجح لأن خاصية ShowPalette غير موجودة
لكن الكود الثاني نجح وهو جميل
جزاك الله خيرا
الأخ الفاضل GENIUS-IT
جزاك الله خيرا
أنا توقعت أنك بتستخدم الـ MB Color picker لأنك محددتش على العموم فى Color pickers كتير ممكن تحدد أنت بتستخدم أنهى واحدة و أنا أشوفهالك لو عندى .
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
msayed2004 كتب:أنا توقعت أنك بتستخدم الـ MB Color picker لأنك محددتش على العموم فى Color pickers كتير ممكن تحدد أنت بتستخدم أنهى واحدة و أنا أشوفهالك لو عندى .
أخي العزيز msayed2004
الأداة مرفقة
ملقيتش حل للأداه اللى أنت أرفقتها , على العموم أنا أرفقتلك الـ MB Color Picker
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
msayed2004 كتب:ملقيتش حل للأداه اللى أنت أرفقتها , على العموم أنا أرفقتلك الـ MB Color Picker
جزاك الله خيرا أخي الكريم
ودائما تأتينا بكل ما هو مفيد
msayed2004 كتب:أبعتله الـ Focus و بعدين بالـ SendKeys أبعت Alt + down arrow , جرب ممكن تنفع...!
كود اخر لزيادة الفائدة ;)
Private Sub Command1_Click()
Combo1.SetFocus
SendKeys "{F4}"
End Sub(h)
مع تحيات : عبدالرحمن نورالله
بيلار الدولية للتكنولوجيا لتصميم وأستضافة مواقع الأنترنت ، شركة مسجلة في المملكة الاردنية الهاشمية
أستضافة مواقع (Website Hosting) ابتداء من 35دينار اردني (50$) سنوي 962799247524+ أضغط هنا
هذا الموضوع مغلق.