مشکل در حرکت خطوط از پایین به بالا

[HackersKing]

سلام من میخوام وقتی فرم لود میشه متن richtextbox یا textbox از بالا به پایین با برعکس حرکت کنه.

میدونم باید از تایمر و اینها استفاده کنم. کد های زیادی هم تو نت پیدا کردم اما کار نمیکنه ؟!

از sendmassage و تعریف api و هرچی بگین اما نشد ! :گریه:

نمیدونم گیر کار چیه ؟

اگه کسی میدونه لطفا کمک کنه.

یا نمونه ای چیزی بگذاره.

[barbodsoft.com]

Imports System.Globalization.PersianCalendar

Public Class Form1

Dim lineNumber As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RichTextBox1.Text = "barbodsoft.com"
Button2_Click(sender, e)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
RichTextBox1.Text = vbCrLf & RichTextBox1.Text
lineNumber += 1
If lineNumber > 15 Then Timer1.Enabled = False
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
lineNumber -= 1
RichTextBox1.Text = "barbodsoft.com"
For i As Integer = 0 To lineNumber - 1
RichTextBox1.Text = vbCrLf & RichTextBox1.Text
Next
If lineNumber = 0 Then Timer2.Enabled = False
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer2.Enabled = True
End Sub
End Class

دو تایمر و دو باتن و همچنین یک richtextbox به فرمت اضافه کن.

[HackersKing]

ممنون اما این کد باید اصلاح بشه.

وقتی فرم میاد بالا متن تا خط 15 میاد پایین. وقتی کلید 3 رو میزنی متن میاد بالا اما..

اما وقتی کلید 2 رو میزنی گیر میکنه و متن حرکت نمیکنه .

مشکل اینه که من میخوام متن از پایین بیاد بالا. اما نمیشه.!

باید چیکار کنم ؟

یعنی باید متن رو با شماره خط خاصی شروع کنه ؟

[HackersKing]

یکی بگه من چیکار کنم ؟

[HackersKing]

یعنی کسی تا حالا این کارو نکرده ؟

کسی به این مشکل برنخورده ؟

[barbodsoft.com]

تو فرم لود اینو بنویس . بعد رو هر کدوم از باتن ها کلیک کنی عمل بالا رفتن یا پایین رفتن رو انجام می ده. البته اگه تو کد ها یک کم دقت کنی و یکم وقت بزاری کد رو خوب بفهمی خودت می تونی هر حالتی خواستی تغییرش بدی.



TextBox1.Text = vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "barbodsoft.com"


تو کد بالا متن موقعی که فرم نمایش پیدا می کنه تو خط 15 هست.
به تعداد خطی که می خوای متن پایین بیاد این vbCrLf کد رو به قبل متن اضافه کن. دیگه بقیه اش با خودت کد ساده ای هست. یک کم باید روش دقت کنی.