الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال هام وضرورى .............list box

مغلق
بدأه ياسر محمدحسانين في 16 مايو 2006 · 16 رد · 1,436 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندى مفاتيح عليها جميع الاصناف التى تباع فى محل وعندى text box للصنف وtextbox للعدد والمطلوب هو عند الضعط على المفتاح الذى به الصنف مرة واحدة يظهر اسمه فىtext box وفى خانة العدد يظهر الرقم1 اذا ضغط المستخدم مرة واحدة والعدد 2 اذا ضغط مرتين وهكذا

هذا سؤال اما الاخر

فهل من الممكن تطبيق ذلك مع listbox بحيث يظهر الصنف وبجانبه العدد

وجزاكم الله خيرا

#2

السلام عليكم

اخي الكريم ممكن بالطريقتين

سأذكرها مبدأياً وارجو ان يكون شرحي واضحاً

بالنسبة لطريقة الضغط على النص (فهي الأسهل :))

في Text1_Click تزيد القيمة في Text2.Text بعد اخذ القيمة ونزيدها بواحد

اما بالنسبة لطريقة صندوق القائمة ListBox

عند الضغط عليه List1_Click

يضيف مسمى العنصر االى Text1.Text ويضيف رقم 1 الى Text2.Text وكلما ضغط على List1 افتراضاً يقوم بعملية شرطية اذا كان السطر المضغوط عليه يساوي محتوى Text1.Text فيضيف واحد الى محتوى Text2.Text وهكذا...

ان صنعتها بنفسك فلن تنساها ولست عاجزاً عن وضع الكود ولكن ارجو ان تجرب بنفسك وان لم تفلح العملية معك يا أخي ضع تجربتك وان شاء الله سوف تجد المساعدة من الجميع.

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#3

ولكن كيف يظهر اسم الصنف والعدد معا داخل list box

#4

اوكى هذه بحالجة الى API

تفضل هذا كود لصنع التاب في صنودق القائمة

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const  LB_SETTABSTOPS = &H192
-----------
Private Sub Form_Load()
Dim tabs(2) As Long
	tabs(0) = 30
	tabs(1) = 120
	tabs(2) = 50

'//	Setting the tabs ... 3 tabs starts from 0
	SendMessage List1.hwnd, LB_SETTABSTOPS, 3, tabs(0)

'//	Entering values which of course going to be in loop for your application
	List1.AddItem "Item No" & vbTab & "Description" & vbTab & "Price US$"
	List1.AddItem "12354" & vbTab & "Intel P4" & vbTab & "500"
	List1.AddItem "1251" & vbTab & "Gigabyte Motherboard" & vbTab & "50"
	List1.AddItem "12E12D" & vbTab & "Samsun Monitor 21'" & vbTab & "1200"

	List1.AddItem ""		'// Just a seprator if you would like it to look like an invoice :D
	List1.AddItem "..." & vbTab & "Total" & vbTab & "FREE"
	List1.AddItem "..." & vbTab & "Discount" & vbTab & "0"
End Sub

ارجو يكون ذو فائدة :)

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

تم تعديل هذه المشاركة بواسطة meynot في 17 مايو 2006 في 04:20

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#5

انا اسف جدا اخى الكريم ممكن توضيح بسيط اسفل كل سطر حتى لفهم فانا لا اعرف برمجة api ولك جزيل الشكر

شكرا جزيلا مرة اخرى على اهتمامك

وهل فى هذة الحالة يمكن اجراء عملية حسابية على الرقم الموجود بجانب الصنف داخل listbox

#6

اخي الكريم بالنسبة للـ API فهناك موسوعة كاملة بالمتدى بهذا الشأن..

وعموماً فأن SendMessage تعتبر من أشهر دوال الـ API لأنها كثيرة ومتعددة الأستعمالات وان اردت شرحها فهي بالفعل تحتاج الى كتيب .. ولكن في هذا المثال بالأعلى فهي تجعل صندوق القائمة وكأن به أعمدة وهذه الأعمده حسب المثال 3 أعمدة وتعريف عرض كل عامود كما هو في السطور الأولى للكود..

اما بالنسبة لعمليات حسابيه فأن صندوق القائمة سوف يأتيك بالصف كاملاً بما في ذلك كل الأعمدة الثلاثة حسب المثال السابق ... لذلك أعتقد تستطيع أنت تقوم ببعض التغيرات واضافة او حذف بعض الأعمدة ...

الرقم 3 هو عدد الأعمدة ... ولا تنسى بأن المتغيرات عند الحجز تبدأ بالرقم صفر... فهنا هي 3 متغيرات لو ذكرنا الحجز على انه 2 .. يعني 0 و 1 و 2

أتمنى ان تكون وضحت الصورة.. !

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#7

شكرا جزيلا

#8

افترض ان listbox بها الصنف والعدد والسعر هل من الممكن الحصول على الاجمالى داخل نفس listbox او يكون الاجمالى داخل textbox اخرى

بعنى نحصل على حاصل صرب السعر والعدد

#9

اخي الكريم

خصائص صندوق القائمة ليست لمثل هذا ولكن بالتأكيد تستطيع عمل ذلك ولكن ((( يدوياً )))

اي لن تقوم الأداة بأي عمليه حسابيه من تلقاء نفسها وجميع المحتويات بها هي عبارة عن محتويات من نوع ((( نص )))

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#10

افترض ان هناك مجموعة من المواد عربى حساب علوم

المطلوب هو رفع جميع الطلاب الذين درجاتهم اقل من عشرة واكبر من سبعة الى عشرة وفى نفس الوقت تتغبر الوان هولاء الطلبة داخل flexgird الى اللون الاخضر مثلا على ان يتم الرفع فى كل مادة على حدا

وجزاكم الله خيرا

#11

بهذه المناسبة تجدر الإشارة إلى أنه بجوار القيمة التي تظهر في القائمة، يمكن إضافة قيمة أخرى وذلك باستخدام الخاصية ItemData ومن خلالها يمكن إجراء عمليات حسابية على هذه القيم ..

بالتوفيق ..

ani.gif
#12

وماذا عن الموضوع الثانى الخاص برفع الدرجات

#13

بالرغم من أني لم أفهم المطلوب بشكل جيد وما الذي أتى بالـ FlexGrid بعد أن كان الحديث عن الـ ListBox

اقتباس
المطلوب هو رفع جميع الطلاب الذين درجاتهم اقل من عشرة واكبر من سبعة الى عشرة وفى نفس الوقت تتغبر الوان هولاء الطلبة داخل flexgird الى اللون الاخضر مثلا على ان يتم الرفع فى كل مادة على حدا

ولكن على أي حال يمكنك بواسطة الاستعلام ترتيب الصفوف حسب الدرجة التي تم الحصول عليها ..

ani.gif
#14

السلام عليكم ورحمة اله

بالتأكيد مالذي اتى بالـ Flexgrid هنا .. او الطلبة .. اعتقد اننا كنا نتحدث عن اصناف وليس طلبة :)

على كل حال الفليكس طريقة اخرى وأذاة اخر عن صندوق القائمة ..

ولكنه ايضا أداة لعرص صفوف وبيانات ..

ارجو التوضيح اكثر!

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#15

هو سؤال جديد اخى الكريم ارجوا ان لا اكون اثقلت عليك

#16

السلام عليكم ورحمة الله..

اخي الكريم .. لا لم تثقل ومرحباً بك .. ولكن الموضوع كان عن List Box فأنك عند تغيير السؤال سيكون الموضوع بكاملة يحتاج الى اعادة نظر.. حيث أن موضوع السؤال هو List Box

لو حررت موضوعاً اخر يكون افضل.

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#17

شكرا جزبلا اخى الكريم

هذا الموضوع مغلق.

مواضيع مشابهة