+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : ممكن كود اظهار كتب في تيكست 1 في تكست 2 بهذه الطريقة (/showthread.php?tid=7031)
ممكن كود اظهار كتب في تيكست 1 في تكست 2 بهذه الطريقة - imatawen - 18-11-12
السلام عليكم
احتاج لهذا الكود الدي اعتقد انه بسيط بالنسبة لكم انشاء الله لكن شرح سيبدو لكم طويل وهدا لانني اريد توضيح الفكرة
لدي مشروع به text1 ; text2 , command1
ولدي جملة
PHP كود :
Bonjour Mohammed
اريد عندما اكتب "." نقطة في تيكست1 اعطي امر بتخزين ما اكتبه بعد النقطة وعند الضغط على النقطة في نفس الوقت يظهر لي اول حرف من الجملة التي لدينا والتي هي "bonjour mohammed "
مثلا انا ساكتب في تيكست 1 " .عبد الصمد." ولكن البرنامج يكتب "bonjour moh" هدا ما اراه وبعد النقطة الثانية يخزن البرنامج القيمة "عبد الصمد" وبعدها اي حاجة اضيفها في تيكست 1 تظهر عادي
وعند الضغط على زر كوموند يظهر القيمة المخفية عبد الصمد
ارجو ان تكون الفكرة واضحة وارجو ان اجد الكود عندكم وبرك الله فيكم
تحياتي
ممكن كود اظهار كتب في تيكست 1 في تكست 2 بهذه الطريقة - عبدالله الصافي - 19-11-12
عزيزي ما فهمته أنك تريد كود بمجرد كتابة "." في text1 يقوم البرنامج بأضافة جملة "bonjour mohammed" .
فجرب ذلك الكود وقم بتوضيح باقي رطلبك.
PHP كود :
Dim gg As Integer
Dim rr As String
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
gg = Len(Text1)
rr = Mid$(Text1, gg, gg)
If rr = "." Then
Text1 = Text1 & "bonjour mohammed"
End If
End Sub
ممكن كود اظهار كتب في تيكست 1 في تكست 2 بهذه الطريقة - imatawen - 20-11-12
السلام عليكم اخي شركرا على المجهود. ليست هذه هي الفكرة التي اريد الوصول اليها
ما اريده بالتفصيل متلا عندما انا اكتب عندما اكتب اي جملة في تيكست1 لا اريد ان تظهر للدي هو جالس امامي متلا اكتب karima ولكن انا ساوهمه انني اكتب bonjour mohammed وعندما اضغط على كوموند يظهر اسم karima في تيكست 2
مثلا اقول له البرنامج يعرف اسمك انا اكتب اسمه على اللوحة المفاتيح لكن خو سيرى وكانني اكتب bonjour mohammed حتى اضغط على زر كوموند يظهر الاسم الدي كتبته karima
ههههههههههه
ارجو انت تكون الفكرة واضحة
ممكن كود اظهار كتب في تيكست 1 في تكست 2 بهذه الطريقة - عبدالله الصافي - 20-11-12
جرب ذلك الكود وأعطيني النتيجة.
PHP كود :
Private Sub Command1_Click()
Text2.Visible = False
Text2 = ""
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text1.Width = 3255
Text2.Width = 3255
Text1.Height = 495
Text2.Height = 495
Text1.Top = 120
Text2.Top = 120
Text1.Left = 360
Text2.Left = 360
Text2.Visible = False
End Sub
Private Sub Text1_Click()
Text1 = ""
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
ff = "abdallaalsafy"
gg = Len(ff)
dd = Len(Text1)
Text2.Visible = True
Text2 = Mid$(ff, 1, dd)
End Sub
Private Sub Text2_Click()
Text1.SetFocus
End Sub
ممكن كود اظهار كتب في تيكست 1 في تكست 2 بهذه الطريقة - بهلوان - 20-11-12
السلام عليكم كود رائع جدا صراحة انا استفاد من اكواد الكتابة وتنسيقها تسلم ايدك اخ عبد الله
ممكن كود اظهار كتب في تيكست 1 في تكست 2 بهذه الطريقة - imatawen - 21-11-12
برك الله فيك على المساعدة فعلا هذا الكود افادني