كيف اربط الlistbox بالinput بال buttom

[حسين أحمد محمد]

السلام عليكم ورحمه الله وبركاته
استفسار صغير يا شباب بما اني جديد في العالم ده

انا عايز اعمل خاصية اني لما اكتب كلمة input واختار كلمة من listbox
وادوس علي button يبحث عن الكلمة اللي ف الانبوت في الباث اللي في الليست بوكس
وبعدين يفتح لي الفايل اللي موجود
هل ده ينفع ؟؟؟

[محمد بن أحمد أبو حذيفة]

تفضل في الانبوت ضع الكود
if e_Key== 13 then

ad = ListBox.GetSelected("ListBox2");

if ad ~= nil then

result = Input.GetText("Input2");
if result~="" then
con = ListBox.GetCount("ListBox2");
for i=1, con do
tx = ListBox.GetItemText("ListBox2", i);
if tx~="" then
k,s = string.find(tx, result);
if k~=nil then
ListBox.SelectItem("ListBox2", i);
is_it = Dialog.Message("يوجد نتيجة للبحث", "إنظر إلى الإختيار المحدد فى الليست بوكس هل هو المطلوب ؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if is_it~=IDNO then
break
end
elseif k==nil and i==con then
Dialog.Message("نتيجة البحث","لم يتم العثور على نتيجة");
end
end
end
else
Dialog.Message("تنبيه", "لم يتم تحديد اي مجلد من قائمة المجلدات");
end
else
Dialog.Message("تنبيه", "لم يتم تحديد اي مجلد من قائمة المجلدات");

end


end

[ثامر أبو بلقيس]

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

حاول فتح مشـــروع جديد و قم ببناء مشروعك
ممكن تضمن تجميعيتك بالعناصر الثلاث المذكورة

01 - أنبوت وليكن Input1
02 - ليستبوكس وليكن ListBox1
03 - زر

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

جيد نجرب في الزر كتابة الكود
sLookFor = Input.GetText("Input1");
sListBoxItem = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, "*" .. sLookFor .. "*");
if sListBoxItem ~= -1 then
ListBox.SelectItem("ListBox1", sListBoxItem);
end


هل نجح معك الأمر

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

اذن : في اليست و بالضبط في الحدث : on select
نكتب :
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
File.Open(ListBox.GetItemData("ListBox1", tSelected[1]), "", SW_SHOWNORMAL);
end


على أساس أن : الملفات المراد تشغيلها مساراتها موجودة في جهة
ItemData في اليست مقابل لعناوينها
موفق :abc_152:

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
اظن اني لم افهم المقصود
الان فهمت من اكواد الاخ بلقيس
متابع معكم

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
اظن اني لم افهم المقصود
الان فهمت من اكواد الاخ بلقيس
متابع معكم

مشكور جدا مشاركتي ما هي إلا متابعة لردكم على السائل
يهمني كثيرا مبادرتكم في هكذا ردود أجدت :abc_022:

[حسين أحمد محمد]

اولا مشكور جدااا علي الرد والاستجابة السريعه
وجاري التجربة واعلامكم بالنتائج

[ثامر أبو بلقيس]

اولا مشكور جدااا علي الرد والاستجابة السريعه
وجاري التجربة واعلامكم بالنتائج

لقد سعدت بهذا الخبر

[حسين أحمد محمد]

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

حاول فتح مشـــروع جديد و قم ببناء مشروعك
ممكن تضمن تجميعيتك بالعناصر الثلاث المذكورة

01 - أنبوت وليكن Input1
02 - ليستبوكس وليكن ListBox1
03 - زر

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

جيد نجرب في الزر كتابة الكود
sLookFor = Input.GetText("Input1");
sListBoxItem = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, "*" .. sLookFor .. "*");
if sListBoxItem ~= -1 then
ListBox.SelectItem("ListBox1", sListBoxItem);
end


هل نجح معك الأمر

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

اذن : في اليست و بالضبط في الحدث : on select
نكتب :
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
File.Open(ListBox.GetItemData("ListBox1", tSelected[1]), "", SW_SHOWNORMAL);
end


على أساس أن : الملفات المراد تشغيلها مساراتها موجودة في جهة
ItemData في اليست مقابل لعناوينها
موفق :abc_152:

لا يا أخي اظن اني موضحتش انا اقصد كفاية
اللي اقصده اني لما اكتب كلمة مثلا logo في الانبوت
واختار من الليست بوكس مسار معين مثلا الاختيارات في الليست بوكس
اغاني
صور
فيديوهات
هختار كلمة صور
واكتب في الانبوت كلمة لوجو
وادوس بحث هيبحث عن كلمة لوجو في مسار الصور اللي هو الاختيار اللي انا اخترته في الليست بوكس
وبكده ابقي اقدر ابحث مثلا عن اي اغنية في الانبوت بس اكتب اسم الاغنية واختار اغاني من الليست وادوس بحث يفتح لي الاغنية
هل ينفع ده ؟؟؟

[ياسرهتهت]

لا يا أخي اظن اني موضحتش انا اقصد كفاية
اللي اقصده اني لما اكتب كلمة مثلا logo في الانبوت
واختار من الليست بوكس مسار معين مثلا الاختيارات في الليست بوكس
اغاني
صور
فيديوهات
هختار كلمة صور
واكتب في الانبوت كلمة لوجو
وادوس بحث هيبحث عن كلمة لوجو في مسار الصور اللي هو الاختيار اللي انا اخترته في الليست بوكس
وبكده ابقي اقدر ابحث مثلا عن اي اغنية في الانبوت بس اكتب اسم الاغنية واختار اغاني من الليست وادوس بحث يفتح لي الاغنية
هل ينفع ده ؟؟؟
----------------------------------------------------
بسم الله الرحمن الرحيم
اخي الكريم طلبك مش واضح
ارفع ملف مفتوح للتوضيح ؟؟
موفق بإذن الله ... لك مني أجمل تحية .

[عبد العزيز البسكري]

شـكــ وبارك الله فيكم ـــرا لكم ... لكم مني أجمل تحية .
متابع معكم بإذن الله

[ثامر أبو بلقيس]

شـكــ وبارك الله فيكم ـــرا لكم ... لكم مني أجمل تحية .
متابع معكم بإذن الله

مرور عطر أخي عبد العزيز
ضع المجلدات و محتوياتها في مجلد Docs
ووزع الأكواد على عناصرها بعد المعاينة قد يتحقق المطلوب :abc_145:
--============= votre projet ==========================

-- 01 -- Page on show
result = Folder.Find("AutoPlay\\Docs", "*", false, nil);
if result then
for h , n in pairs(result) do
path_parts = String.SplitPath(n);
ListBox.AddItem("ListBox1", path_parts.Filename, n);
end
end
-------------------------------------------------------
-- 02 -- ListBox1 on select
b = ListBox.GetSelected("ListBox1");
if b ~= nil then
bb = ListBox.GetItemData("ListBox1",b[1]);
end
-------------------------------------------------------
-- 03 -- xButton1 on click
if bb ~= nil and Input.GetText("Input1") ~= "" then
belkiss = File.Find(bb,"*.*" , true, false, nil, nil);
if belkiss then
for p , c in pairs(belkiss) do
path_parts = String.SplitPath(c);
if path_parts.Filename == Input.GetText("Input1") then
File.Open(c, "", SW_SHOWNORMAL);
end;end;end
else
Dialog.Message("Notice", 'راجع معايير وشروط البحث');
end
-------------------------------------------------------
--==============Abou_Belkiss ==========================

[عبد العزيز البسكري]

بسم الله الرحمن الرحيم
بارك الله فيك و لك و جزاك خير الجزاء أستاذي الكريم " ثامر أبو بلقيس "
أدعو الله أن يمن عليك بدوام الصحّة و العافية و راحة البال و يزيدك من علمه و فضله و يرزقك من حيث لا تحتسب
فائق إحتراماتي و إعجاباتي

[حسين أحمد محمد]

----------------------------------------------------
بسم الله الرحمن الرحيم
اخي الكريم طلبك مش واضح
ارفع ملف مفتوح للتوضيح ؟؟
موفق بإذن الله ... لك مني أجمل تحية .

اتفضل الملف حضرتك
هتلاقي البروجيكت كله موجود
http://www.mediafire.com/file/xd4uzxyz6g46qz4/Project_1.rar

[ثامر أبو بلقيس]

اتفضل الملف حضرتك
هتلاقي البروجيكت كله موجود
http://www.mediafire.com/file/xd4uzxyz6g46qz4/project_1.rar

حاول قراءة وفهم الأكواد المقدمة لك

[ياسرهتهت]

اتفضل الملف حضرتك
هتلاقي البروجيكت كله موجود
http://www.mediafire.com/file/xd4uzxyz6g46qz4/project_1.rar
----------------------------
بسم الله الرحمن الرحيم
اخي الكريم
الاكواد المقدمة من استاذنا ابوبلقيس
تقوم تماما بما تريد وتحقق المطلوب
موفق بإذن الله ... لك مني أجمل تحية .

[حسين أحمد محمد]

حاول قراءة وفهم الأكواد المقدمة لك

اسف اخي ثامر
انا حاولت افهم بس معرفتش لاني مجربتش قبل كده اشوف البرمجة مع ان عرفت البرنامج طريقته سهله
هحاول اشوف الاكواد تاني واقراها واحاول اطبق بنفسي تاني
وشكرا جدا علي تعاونكم

[حسين أحمد محمد]

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

حاول فتح مشـــروع جديد و قم ببناء مشروعك
ممكن تضمن تجميعيتك بالعناصر الثلاث المذكورة

01 - أنبوت وليكن Input1
02 - ليستبوكس وليكن ListBox1
03 - زر

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

جيد نجرب في الزر كتابة الكود
sLookFor = Input.GetText("Input1");
sListBoxItem = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, "*" .. sLookFor .. "*");
if sListBoxItem ~= -1 then
ListBox.SelectItem("ListBox1", sListBoxItem);
end


هل نجح معك الأمر

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

اذن : في اليست و بالضبط في الحدث : on select
نكتب :
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
File.Open(ListBox.GetItemData("ListBox1", tSelected[1]), "", SW_SHOWNORMAL);
end


على أساس أن : الملفات المراد تشغيلها مساراتها موجودة في جهة
ItemData في اليست مقابل لعناوينها
موفق :abc_152:

----------------------------
بسم الله الرحمن الرحيم
اخي الكريم
الاكواد المقدمة من استاذنا ابوبلقيس
تقوم تماما بما تريد وتحقق المطلوب
موفق بإذن الله ... لك مني أجمل تحية .

للأسف انا جربت الكود اللي حطه استاذ ثامر ولكن عندما ادوس او اختار مسار من المسارات فيقوم بفتح المسار
اللي حطيته بالitem data
شكرا جزيلا اخواني سأجرب اي طريقة اخري واسف لتعبكم

[ياسرهتهت]

للأسف انا جربت الكود اللي حطه استاذ ثامر ولكن عندما ادوس او اختار مسار من المسارات فيقوم بفتح المسار
اللي حطيته بالitem data
شكرا جزيلا اخواني سأجرب اي طريقة اخري واسف لتعبكم
-------------------------------
بسم الله الرحمن الرحيم
لا توجد مشكلة اخي حسين ولا يوجد اي تعب
في المساء ارفع لك ملف مفتوح ان شاء الله
يسهل لك فهم الاكواد المقدمه من استاذنا ابو بلقيس
:abc_152::abc_152:

[ياسرهتهت]

للأسف انا جربت الكود اللي حطه استاذ ثامر ولكن عندما ادوس او اختار مسار من المسارات فيقوم بفتح المسار
اللي حطيته بالitem data
شكرا جزيلا اخواني سأجرب اي طريقة اخري واسف لتعبكم

------------------------------------------------
بسم الله الرحمن الرحيم
تفضل اخي الكريم
ملف مفتوح + الشرح

http://www.mediafire.com/file/vaaup0c5t6ognfu/ARSHEF-100.rar

او

https://my.pcloud.com/publink/show?code=XZtR3NZn5uvlmvdhQz1n70nA5fmiHcnmvLy

اتمنا ان يفيدك

موفق بإذن الله ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

أجدت الأستاذ ياسر شكرا جزيلا :abc_138:

[حسين أحمد محمد]

------------------------------------------------
بسم الله الرحمن الرحيم
تفضل اخي الكريم
ملف مفتوح + الشرح

المحتوى المخفي لايقتبس

او

المحتوى المخفي لايقتبس

اتمنا ان يفيدك

موفق بإذن الله ... لك مني أجمل تحية .



أجدت الأستاذ ياسر شكرا جزيلا :abc_138:

شكرا جدا استاذ ياسر سلمت يمناك
وشكرا جدا استاذ ثامر تعبتكم معايا انا هحاول اشوف الاكواد واستفيد منها واتعلم واعمل حاجة قريبة منها بأذن الله واعرضها عليكم

[ثامر أبو بلقيس]

شكرا جدا استاذ ياسر سلمت يمناك
وشكرا جدا استاذ ثامر تعبتكم معايا انا هحاول اشوف الاكواد واستفيد منها واتعلم واعمل حاجة قريبة منها بأذن الله واعرضها عليكم

موفق :abc_152:

[نقطة حرف]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[محمد رمضان أبو يوسف]

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

[بيانكى]

مشكورين مجهود رائع الف شكر

[احمد حكيم باز]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[سمسم يو]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .