سؤال بسيط في Textbox و Listview أرجوا المساعدة

السؤال الاول بسيط

Text2 = Left(Text1, InStr(1, Text1, "@") - 1)
Text3 = Mid(Text1, InStr(1, Text1, "@") + 1

)

والسؤال الثاني بحاجة الى قليل من فحص

بارك الله فيك أخي TareqVB على الرد السريع وجزاك عنا خير الجزاء بانتظار الجواب الثاني

لا اتعامل مع ال listview كثيرا لكن فحصت الخصائص الموجودة بها ووجدت وعلى الاغلب ان ما تطلبه غير ممكن

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

انظر هذه المشاركة

/index.php?showtopic=141792

على العموم بارك الله فيك أخي على مجهودك شكرا لك

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

بالنسبة للسؤال الثاني هناك دالة موجودة في الListview وهي HitTest تأتي لنا بالListItem محدد بموقعه X و Y

يمكن الاستفادة من هذه الدالة في الحدث MouseMove للListView لتحديد الITEM وتمرير الToolTip المراد

Dim mItem As ListItem
Set mItem = ListeView1.HitTest(X, Y)
If Not mItem Is Nothing Then
ListeView1.ToolTipText = mItem.Text
End If

للاسف لا نستطيع وضع التلميحات على مستوى العمود بل على مستوى الصف وكذكل ليس عندما تكون على شكل lvwReport اي عندما تكون فقط على شكل small icons or large icons بحيث تظهر هذه التلميحات

الToolTip تظهر لكن يمكن التحايل لكي تظهر بأسم الأعمدة الأخرى بمحاولة معرفة موقع المؤشر في أي عمود هو

في المثال المرفق محاولة لي أرجو أن تكون مفيدة

test.zip

بالتوفيق دائما للجميع

بارك الله فيكم أخواني TareqVB وDreamNet

أخي DreamNet المثال المرفق هو المطلوب تماماً

تقبلوا مني كل الشكر والمحبة والتقدير

ونسأل الله أن يجمعنا وأياكم على طاعتة وعلى مافية خير هذه الأمة