Dim charArray As Char() = TextBox1.Text.ToCharArray()
Dim newArray As Char() = New Char(TextBox1.Text.Length - 1)
For i As Integer = TextBox1.Text.Length To 0 Step -1
newArray(TextBox1.Text.Length - i) = charArray(i)
Next
TextBox2.Text = newArray.ToString()
แต่ขอไปเกาผื่นก่อนนะ
Date :
2010-07-01 23:30:50
By :
tungman
No. 11
Guest
Error 1 Type 'Char' has no constructors ค่ะพี่ บรรทัดที่ 2 มีปันหาค่ะ ของเปน VB 2008 อ่ะค่ะ
ไหนๆๆก้อหล่อแล้วหล่ออีกซักครั้งน่ะค่ะ ขอบพระคุนเปนอย่างสูง
Dim charArray() As Char = TextBox1.Text.ToCharArray()
Dim newArray(TextBox1.Text.Length - 1) As Char
For i As Integer = TextBox1.Text.Length To 0 Step -1
newArray(TextBox1.Text.Length - i) = charArray(i)
Next
TextBox2.Text = newArray.ToString()
Dim charArray() As Char = Label1.Text.ToCharArray()
Dim newArray(Label1.Text.Length) As Char
For i As Integer = Label1.Text.Length To 1 Step -1
newArray(Label1.Text.Length - i) = charArray(i - 1)
Next
Label2.Text = New String(newArray, 0, Label1.Text.Length)
Date :
2010-07-02 10:55:24
By :
tungman
No. 15
Guest
ขอบคุนค่ะ นู๋ทามได้แล้ว
Dim strString As String
strString = TextBox1.Text
Label2.Text = StrReverse(strString)
อันนี้ทามเองค่ะเก่งไหมพี่
Load balance : Server 04
