أكواد صعبة

ممكن مساعدة

انا بيتهئلي انها حتتعمل

عن طريق الجملة الشرطية

if

صح ولا غلط

ياريت اي شخص يرد

انا محتاج الأكواد دية ضروري

-_- -_- <_< <_< -_- :unsure: :(

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

في نظري هناك عدة طرق لعمل ذلك لكن أفضل أن أستعمل شيئين

الخاصية Tag للفورم و الدالة SendMessage

لذلك عليك اضافة العناوين في List1 مثلا ثم التأكد من ان الرقم المدرج موجود او لا باستعمال الدالة SendMessage لذلك يمكنك استعمال الدالة :

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


Dim K as Long
K=SendMessage (List1.hwnd, &H18F, -1, ByVal CStr(IpEnterd))

هنا اذا كان K يختلف عن -1 فان الرقم المدخل موجود داخل الليست

بالنسبة لتغيير الصورة

قبل فتح الفورم المعني نسند للخاصية Tag الايبي المدخل بعدها نضيف في الفورم المعني في الحدث Load كود يتحقق من القيمة tag و يحمل الصورة المناسبة

شكرا لك أخي

ولكن هل يمكن ان توضح أكثر ولو بشيء من التفصيل

ولو ممكن مثال مطبق حتي استطيع الفهم اكثر

أكون شاكر لك كثيرا

أخوك

ربما يفيدك هذا المثال البسيط جدا

t.zip

سوف اعطيك المثال (الطلب الثاني هو استدعاء الصورة )

بالموضوع الجاي

سوف اصممه واحطه لك

شكرا لكم جميعا

أخي

DreamNet

لقد فهمت المثال وتعلمت من وعدلته ليناسب ما اريده شكرا لك جزيلا

-----------

أخي

professional VB99

شاكر اهتمامك بالموضوع وبأنتظار المثال

أخوكم

هل يوجد أحد يعلم

أي شيء أخر عن هذا الموضوع

ياريت لو يوجد يشارك

:( :unsure:

بسم الله الرحمن الرحيم

الأخ proegy

هل تود عرض صورة في أداة Picture Box .

طبعا استدعيها من خلال جملة if وحسب المعطيات التي تناسبك .

Picture1.Picture = LoadPicture("C:\WINDOWS\Desktop\untitled.bmp")

ان شاء الله يفيدك .

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

شكرا لك أخي

البريشي

ساجرب وأرد عليك

أخوك