السلام عليكم احبائي الاعزاء
عندي نموذج فيه حقل نوعه مذكره ، وهالمذكرة فيها قائمة اسماء ، كما عندي حقل آخر اسمه a
المراد هنا ، اريد ان اتمكن من النقر على احد الاسماء هذه فيظهر هذا الاسم في حقل a
بدون ما احول حقل المذكرة الى مربع قائمة او مربع تحرير وسرد
تحياتي....
حل مميز ومختصر من خبير .. لم أكن أعرف أن هذا الحل ممكن.
تحياتى
محمد ندا
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
شكرا من القلب لك اخي العزيز
وبالتوفيق والنجاح إن شاء الله تعالى.
تحياتي...
شكرا عزيزي ، احمد مبارك الحيق
ولكن هل يمكن عمل count الى حقل نوعه مذكره ..
تحياتي..
على الرحب والسعة أخي،
ولكن لم أفهم السؤال: count لماذا؟ لعدد الحروف، أم عدد الأسطر؟ أم ماذا؟
وإن شاء الله طلبك مجاب...
أخوك أحمد
شكرا اخي الحبيب ..
اردت count من اجل الحروف وcount من اجل عدد الاسطر
تحياتي...
الا من مجيب
تحياتي...
هذه من الطرق المختصرة الممكنة، واستخدمت فيها الدالة split:
Private Sub cmdStatistics_Click() Dim txt As String txt = Trim(tstNames) txtLines = UBound(Split(txt, vbCrLf)) + 1 txtWords = UBound(Split(txt, " ")) + Val(txtLines) txtLetters = Len(txt) - (Val(txtLines) - 1) * 2 End Sub
والمثال في الملف المرفق...
اخي العزيز ، والله ليعجز اللسان عن شكرك
وفقك الله لما فيه الخير والصلاح والرضا..
تحياتي...
بسم الله ما شاء الله .. أخى أحمد مبارك الحيقى .. كل يوم يزداد العطاء.
بكل الود
محمد ندا
... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...
واقعاً كلـّك بركة في هذا المنتدى , دمت موفـّقاً في الدنيا والآخرة .