لدي text box اقوم باستخدامه في لاظهار المحادثة في برنامج chat اقوم بتصميمه
والمحادثة الخاصة بالمرسل والمستقبل تظهر في ال textbox1
وذلك بالكود
Me.TextBox3.Text = Me.TextBox3.Text & Chr(13) & Chr(10) & user2 & " : " & s1a.Tables(0).Rows(0)(0)
ولكن عند زيادة المحادثة عن حجم ال textbox1 يظهر vertical scrollbars
وعند استقبال نص جديد لا يظهر امامي وانما يكون في الاسفل واضطر للنزول بال vertical scrollbars
اريد كود يجعل الtextbox1 يظهر اخر نص امامي مع احتفاظه بالقديم اعلى التيكست بوكس
سلام عليكم ورحمة الله وبركاته
جربي الكود التالي:
TextBox1.SelectionStart = TextBox1.TextLength-1 TextBox1.ScrollToCaret()
سلام عليكم ورحمة الله وبركاته
تم تعديل هذه المشاركة بواسطة DOWNLOADER في 2 يوليو 2012 في 19:45
جزاك الله كل الخير على مساعداتك لي وجعله الله في ميزان حساناتك
الكود فعال والحمدالله ولي سؤال آخر اكرمك الله
وهو اني اقوم بوضع هذا الكود في حدث ال TextBox3_KeyPress عند ارسال النص وهذا الكود خاص باظهار النص الموجود فيTextBox3 في TextBox1 عند ارساله الى القاعدة
If Asc(e.KeyChar) = 13 Then
If TextBox1.Text <> "" Then
TextBox1.Text = TextBox1.Text & vbCrLf & username & " : " & TextBox3.Text
Chr(8)
Chr(13)
Else
TextBox1.Text = username & " : " & TextBox3.Text
Chr(8)
Chr(13)
End If
والفروض هو ظهور قيمة username وهي (اسم الراسل ) وبجانبها TextBox3.Text وهو (النص الذي يقوم الراسل بكتابته في TextBox3)
والمشكلة هي ان TextBox3.Text وهو (النص الذي يقوم الراسل بكتابته في TextBox3) يظهر اسفل قيمة username وهي (اسم الراسل ) وليست بجانبها وانا اريد ظهورها بجانب اسم الراسل
تم تعديل هذه المشاركة بواسطة زهرة الزنبق في 3 يوليو 2012 في 09:55
سلام عليكم ورحمة الله وبركاته
عدلي الكود ليصبح على الشكل التالي:
If Asc(e.KeyChar) = 13 Then e.Handled = True If TextBox1.Text <> "" Then TextBox1.Text = TextBox1.Text & vbCrLf & username & " : " & TextBox3.Text Chr(8) Chr(13) Else TextBox1.Text = username & " : " & TextBox3.Text Chr(8) Chr(13) End If
سلام عليكم ورحمة الله وبركاته
الكود فعال
جزاك الله كل خير اخي الكريم وجعله في ميزان حسناتك بإذن الله
تم تعديل هذه المشاركة بواسطة زهرة الزنبق في 4 يوليو 2012 في 14:43