farzan_219
جمعه 20 شهریور 1394, 15:09 عصر
سلام
مشکلم اینکه من تو فرمم یه تکست باکس دارم که در زمان اجرا وقتی توش تایپ میکنی اندازش بزرگ میشه
ولی از چپ به راست بزرگ میشه و برای اینکه از راست به چپ بزگ بشه باید خاصیت های right to left و layout right to left
فرم رو برابر true قرار بدم ولی با اینکار حرکت دادن تکست باکس روی فرم در زمان اجرا به کل مختل میشه لطفا راهنمایی کنید
اینم نمونه سورس هاش.
Private xPosition As Integer
Private yPosition As Integer
Private candrag As Boolean = False
Private
Sub TextBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDown
xPosition = e.X
yPosition = e.Y
candrag =
True
End Sub
Private Sub TextBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseMove
If candrag Then
Me.TextBox1.Left += e.Y - yPosition
Me.TextBox1.Top += e.X - xPosition
End If
End Sub
Private Sub TextBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseUp
candrag =
False
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim sizee As Size = TextRenderer.MeasureText(TextBox1.Text, fd_text.Font)
TextBox1.Width = sizee.Width
TextBox1.Height = sizee.Height
End Sub
مشکلم اینکه من تو فرمم یه تکست باکس دارم که در زمان اجرا وقتی توش تایپ میکنی اندازش بزرگ میشه
ولی از چپ به راست بزرگ میشه و برای اینکه از راست به چپ بزگ بشه باید خاصیت های right to left و layout right to left
فرم رو برابر true قرار بدم ولی با اینکار حرکت دادن تکست باکس روی فرم در زمان اجرا به کل مختل میشه لطفا راهنمایی کنید
اینم نمونه سورس هاش.
Private xPosition As Integer
Private yPosition As Integer
Private candrag As Boolean = False
Private
Sub TextBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDown
xPosition = e.X
yPosition = e.Y
candrag =
True
End Sub
Private Sub TextBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseMove
If candrag Then
Me.TextBox1.Left += e.Y - yPosition
Me.TextBox1.Top += e.X - xPosition
End If
End Sub
Private Sub TextBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseUp
candrag =
False
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim sizee As Size = TextRenderer.MeasureText(TextBox1.Text, fd_text.Font)
TextBox1.Width = sizee.Width
TextBox1.Height = sizee.Height
End Sub