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 ))*
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
반응형

+ Recent posts