[VB.NET] Enter 로 Sort 되는 TextBox

Devpia 의 어느분께서 질문을 올리셨습니다.

질문은...

텍스트 박스에 텍스트를 세로 정렬하고 싶은데...
텍스트 박스나 라벨의 경우 세로 정렬이 가능한가요? 가로 말고 세로로 쓰고 싶은데....

라고요...

블로그에서 확인하라고 했는데 오래 기다리셨습니다. ^^'


잠시 생각을 했죠... 잔머리를 굴려서... ㅋㅋ

그리고 걍 테스트 해 봤습니다.
원하는 기능인지는 모르겠으나 비스므리하게는 한 것 같습니다.

수정을 원하시면 아래 코드를 보고 다시 수정할 수 있겠죠... ^^


요는 이렇습니다.

폼에 텍스트 박스하나를 올려놓습니다.
그리고 아래와 같이 KeyUp 이벤트를 등록, 구현해 줍니다.

Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp         If e.KeyCode = Keys.Enter Then             Dim strText() As String             Dim str As String = Me.TextBox1.Text.Replace(ControlChars.Lf, "")             strText = str.Split(ControlChars.CrLf)             'Array.Sort(strText)             TextBox1.Text = ""             Dim strList As List(Of String) = New List(Of String)             For i As Integer = 0 To strText.Length - 2                 If LTrim(strText(i).Length) = 1 Then                     If Asc(LTrim(strText(i))) = 10 Then                         Continue For                     End If                 End If                 Dim strTemp As String = strText(i).Replace(ControlChars.Lf, "")                 strList.Add(strText(i))             Next             strList.Sort()             For Each s As String In strList                 TextBox1.Text &= s & ControlChars.CrLf             Next         End If     End Sub End Class

아 그리고 이걸 User Control로 만들어 보셔요... ^^
그건 나중에 해보도록 하죠... ^^'

행복한 고수되셔요...

woojja ))*
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

TextBox,Sortable,woojja