[تنبيه - عنوان غير مناسب : ]خطرت في بالي فكره فل لها طريقة صحيحه

بدأه واقعي جدا في 4 أبريل 2008 · 6 رد · 774 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#14 أبريل 2008 في 15:07 صاحب الموضوع

SSS.rarالسلام عليكم

اخواني الاعضاء الكرام

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

والطريقة كتالي :

يوجد لدي Text1 مكتوب به Text1 ووضعت هذا الكود وقد جاء لي بالحرف الذي اريده من دخل التكست

Left$(Text1, InStr(1, Text1.Text, 1) - 4)

واخرج الناتج لي T

ما اريده هو ان اقوم بتعديل هذا الحرف فقط دون تغير الباقي

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

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

ولكن لم استطيع ان اقوم بتغير القيمه :(

ولعلي اجدها فرصه للاستفيد منكم والفائده تعم الجميع

ولكم اطيب تحياتي :)

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

مرفق مثلا ما قمت به حتى هذا الوقت

تم تعديل هذه المشاركة بواسطة واقعي جدا في 4 أبريل 2008 في 15:10

#25 أبريل 2008 في 15:33

الأخ الكريم ، تحية طيبة وبعد ،

إذا كنت ترغب في تعديل قيمة نصية محددة بمربع النص قم بإستخدام خاصية SelText ، مثال :

Text1.SelText = "A"

أما إذا كنت ترغب في تغيير القيمة المدخلة بمربع النص عدا الأرقام فيمكنك جلب حرف حرف وتتأكد هل الحرف المرتجع رقمي أم نصي ، أنظر المثال التالي :

Dim strText As String
Dim strChar As String

strText = Trim(Text1.Text)

For X = 1 To Len(strText) - 1
	strChar = Mid(strText,X,1)
	If(Asc(strChar) >= 49) And (Asc(strChar) <= 57)Then
		 Message('القيمة المدخلة قيمة رقمية');
	Else
		 Message('القيمة المدخلة قيمة نصية');
	End If
Next

وبعد ذلك أفعل ما شأت

شكراً

تم تعديل هذه المشاركة بواسطة MMA_EG_Cairo في 5 أبريل 2008 في 15:41

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#36 أبريل 2008 في 00:51

السلام عليكم

اخي العزيز الفاضل

لقد افرحني كثير ردك علي وافادني اكثر

ولكن لم اجد حلا لما اريد و لعلي لم اوصل المطلوب جيدا

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

لقد قمت بأضافة حرف A للملف ولكن ما اريده هو تغير حرف T ليصبح A هذا ما اريده اخي الفاضل فقط حرف واحد دون تغير الباقي

في حالت وضع هذا الكود

Text1.SelText = "A"

تظهر النتيجه بالشكل التالي

AText1

اما ما اريده يا اخي العزيز هو ان يكون بعد التغير بهذا الشكل

Aext1

فقط تغير القيمه المختاره دون تغير بقيت القيم :)

ولعلي اوصلت المعلومه لك اخي الفاضل وشكرا علي ما اخبرتني به الان

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

#46 أبريل 2008 في 10:10

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

جرب مايلي

Text1.SelStart =0 'مكان وجود الحرف

Text1.SelLength =1 ' عدد الاحرف التي تريد استبدالها

Text1.SelText = "T" ' الحروف الجديدة

ايضا يمكنك استخدام Replace او Mid فهناك طريقة كثيرة

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#56 أبريل 2008 في 10:57

الأخ الكريم ، كما ذكر لك الأخ الغالي والحبيب TareqVB ( تحياتي له )

المثال الذي منحتة لك هو عبارة عن إرسال قيمة لما هو تم تحديدة بمربع النص !!!!

علي سبيل المثال ، مربع النص يحتوي علي قيمة ( Ahmed ) ، ومؤشر الكتابة يقف علي أول الحرف ( A ) ، فيجب عليك تحديد الحرف ( A ) بمؤشر الفأرة أولاً ، ومن ثم أنقر علي زر الأمر .

ولكن إذا كنت ترغب في تحديد حرف ( A ) برمجياً فكما ذكر لك الأخ طارق الكريم ، وإليك مثال :

Text1.SelStart = 0
Text1.SelLength = 1
Text1.SelText = "T"

ولتغيير حرف ( h ) كما يلي :

Text1.SelStart = 1
Text1.SelLength = 1
Text1.SelText = "T"

أما لتغيير حرفين مثلاً ( hm ) كما يلي :

Text1.SelStart = 1
Text1.SelLength = 2
Text1.SelText = "T"

هناك فرق بين Text و SelText ، حيث أن خاصية Text هي القيمة النصية المدرجة بمربع النص كلياً ، أما SelText فهو الجزء المحدد فقط لا غير .

أما SelStart هو بداية التحديد ، أما SelLength فهو طول التحديد من بداية التحديد ( هل حرف أم إثنين أم ثلاثة أم .... الي آخرة ) .

ولكن أخي ليست هذه الطريقة فقط ، فيمكنك علي سبيل المثال تغييرالحرف ( A ) بطريقة داله Replace ، ولكن إنتبة ، هذه الدالة تغير أي حرف A موجود بمربع النص وليس قيمة محددة ، فعلي سبي المثال إذا كان مربع النص يحتوي علي ( Ahmed Adel ) فالحرف الأول من ( Ahmed ) والحرف الأول من ( Adel ) يتغيران الي القمية التي قمت بإدخالها