يعني اثناء الكتابه على مربع نص
يظهر لي تلقائيا عدد الحروف
وماعليكم امر
اريد كود يظهر لي عدد الحروف اثناء الكتابه
مغلق
اخي اضف ليبل + مربع نص
وضع الكود التالي في حدث ال change مربع النص
[
Private Sub Text1_Change() label1.Caption = Len(Text1.Text) End Sub
تم تعديل هذه المشاركة بواسطة abu sabreen في 3 مايو 2005 في 21:32
من دروسي :
درس مبسط لفهم ال VB6.... Resource File
تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)
الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry
من برامجي :
Abo Sabreen Messenger v2.1 العملاق
--------------------------------------------------
مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.
طريقة أخرى
Private Sub Text1_Change() Label1.Caption = "الأحرف الكتوبة: " & Text1.SelStart End Sub
مشكور على هذة الاكواد
هذا الموضوع مغلق.