السلام عليكم ورحمه الله وبركاتة
لدى مشكلة اخوانى فى التكست فى الفيجول بيزك فانا اريد جعل 2 تكست يكتبو فى نفس الوقت اقصد بذلك الاتى
if text1.text ="h" then
text2.text = "k"
end if
المشكلة انى اريد ان كل ماكتب حرف الاتش ان يظهر حرف الكية لكن الذى يحدث انى عندما اكتب فى التكست حرف الاتش يظهر الكية مرة واحدة ولا يريد ان يتكرر مثل هذا
hhhhhhhhhhhhhh
k
ولكن لايظهر هذا
hhhhhhhhhhhhhh
kkkkkkkkkkkkkkkk
ارجو الحل بارك الله فيكم
سؤال غريب و عنوان مخالف بس ما علينا , الأول نقول أهلا بك بالمنتدى.
جرب :
Private Sub Text1_Change() Text2.Text = Replace(Text1.Text, "h", "k") End Sub
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
جزاك الله خيرا ياخى بس هناك تعقيب اولا شكرا فعلا الطريقة نجحت ولكن هنا امر ما ايضا
if text1.text ="h" then
text2.text = "k"
end if
text2.text= replace(Text1.Text, "h", "k")
هذا يعمل جيدا اذا اردت كتابة حرف واحد ولكن اذا مثلا فعلت
if text1.text ="h" then
text2.text = "k"
end if
text2.text= replace(Text1.Text, "h", "k")
if text1.text ="a" then
text2.text = "s"
end if
text2.text= replace(Text1.Text, "a", "s")
بمعنى فعلت مرتين الامر ..يلغى الامر الاول وفقط يتم كتابة الامر الثانى فما الحل رجاء ؟؟؟؟؟
تم تعديل هذه المشاركة بواسطة hfrance في 6 أكتوبر 2007 في 02:57
ضع كودى فقط , لو لاحظت مثالى أنا لم أستخدم حرف من طريقتك.
فقط السطر المحتوى على دالة Replace
بالمناسبة دعنا نلقى نظرة على طريقتك الأولى لتفهم المشكلة :
If Text1.Text ="h" Then Text2.Text = "k" End If
أنت تقول أن كان النص فى المربع الأول h ضع فى الثانى k لكن عندما يكون النص هو hh فالشرط هنا لم يتحقق و بالتالى لم يتم تنفيذ الكود نهائيا.
أنصحك (نصيحة و الله مش أكثر) بمراجعة أوامر الشرط :D
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
نعم جزاك الله خيرا وان شاء الله ساراجع هذا الباب ...ولكن ياخى اظن انك لم تعرف مشكلتى بعد ...مشكلتى ليس فى كتابة الحرف الواحد هى فى كتابة اكثر من حرف بمعنى
Text2.Text = Replace(Text1.Text, "h", "k")
سمح بتكرار الكتابة بالفعل ولم يخطى ولكن المشكلة فى اكثر من حرف مثلا
h k
s j
e o
وهكذا اقصد اكثر من عملية فاما العملية الواحدة فهى تعمل ولكن قصدت اكثر من عملية وجزاكم الله خيرا
السلام عليكم
أخي الكريم اللي يكتب حرف يكتب 28
Text2.Text = Replace(Text1.Text, "h", "k") Text2.Text = Replace(Text1.Text, "s", "j") Text2.Text = Replace(Text1.Text, "e", "o")
micheal R jordan كتب:السلام عليكمأخي الكريم اللي يكتب حرف يكتب 28
Text2.Text = Replace(Text1.Text, "s", "j")
Text2.Text = Replace(Text1.Text, "e", "o")Text2.Text = Replace(Text1.Text, "h", "k")
اخى الكريم لو لاحظت او جربت هذا الكود الموضوع لن يعمل معك غير اخر امر فقط يعنى
Text2.Text = Replace(Text1.Text, "e", "o")
اما الباقى فسيلغى الامر منهم ..فاريد فقط كيفية جعل الجميع يعمل فى ان واحد دون الغاء اى منهم
هل من مساعدة؟
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
الله اكرم جزاك الله خيرا اخى اخيرا اتحلت المشكلة وبارك الله فيك فهمت الامر اذن العمل ب KeyAscii اريح بكثير من اى امر وشكرا مرة اخرى
اقتباسالله اكرم جزاك الله خيرا اخى اخيرا اتحلت المشكلة وبارك الله فيك فهمت الامر اذن العمل ب KeyAscii اريح بكثير من اى امر وشكرا مرة اخرى
العفو أخي الكريم
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
السلام عليكم
الحمد لله على كل شيء
أخي الكريم فقط إضافة للاسطر التي كتبتهافلم أنتبه جيدا
الكود يكون هكذا
آسف جدا
Text2.Text = Text2.Text & Replace(Text1.Text, "h", "k") Text2.Text = Text2.Text & Replace(Text1.Text, "s", "j") Text2.Text = Text2.Text & Replace(Text1.Text, "e", "o")
فقط للاستئناس
والسلام
micheal R jordan نعم شكرا جزيلا لكم جميعا على هذة الردود المشجعة والاخ
ولكن مزالت المشكلة قائمة اخى بهذا الكود ولم ينظبط معى فهو لايكتب جماعى ايضا بل وايضا من الناحية الفردية يكتب عدد احرف مزدوج
طريقة key اكثر نجاحا فعلا ولكن هناك مشكلة مازالت تورقنى وهى اريد عندما امسح من التكست واحد حرف مثلا يمسح مايقابلة من التكست 2 ويكون بطريقة جماعية ايضا دون الغاء الباقين مثلا
If KeyAscii = 199 Then
Text2.Text = Text2.Text + "s"
نريد عند مسح الحرف الف مسح مايوازية من الحرف اس ....ولكن الذى يحدث هو انة مع مسح الف لا يمسح مايوازية فاذا كان هناك تعليق فيكون بارك الله فيكم ... وشكرا مرة اخرى للاخ Ala2 VB
تم تعديل هذه المشاركة بواسطة hfrance في 7 أكتوبر 2007 في 21:23
هذا الموضوع مغلق.