none
[問題]請教Textbox 行的問題! RRS feed

  • 問題

  • 請問一下,假設我在Textbox裡面輸入了N行
    要如何用Button讓Textbox每一行最前面加入#,最後面加入*呢?

    麻煩指導小弟我!
    2008年8月5日 下午 05:27

解答

  • Code Snippet

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' 設定 TextBox 屬性
        TextBox1.WordWrap = False
        TextBox1.ScrollBars = ScrollBars.Both

        ' 將焦點移至 TextBox
        TextBox1.Focus()
        TextBox1.Text = ""


        ' 模擬輸入字元
        Dim ran As New System.Random
        For i As Int32 = 1 To 10
            TextBox1.Text &= New String(Chr(ran.Next(33, 125)), i) & vbCrLf
        Next


        ' 加入每行開頭與結尾之字元
        Dim newText As String = ""
        For i As Int32 = 0 To TextBox1.Lines().Count() - 1
            newText &= "#" & TextBox1.Lines(i) & "*" & vbCrLf
        Next
        TextBox1.Text = newText

    End Sub

     

     

     

    2008年8月5日 下午 06:23

所有回覆

  • Code Snippet

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' 設定 TextBox 屬性
        TextBox1.WordWrap = False
        TextBox1.ScrollBars = ScrollBars.Both

        ' 將焦點移至 TextBox
        TextBox1.Focus()
        TextBox1.Text = ""


        ' 模擬輸入字元
        Dim ran As New System.Random
        For i As Int32 = 1 To 10
            TextBox1.Text &= New String(Chr(ran.Next(33, 125)), i) & vbCrLf
        Next


        ' 加入每行開頭與結尾之字元
        Dim newText As String = ""
        For i As Int32 = 0 To TextBox1.Lines().Count() - 1
            newText &= "#" & TextBox1.Lines(i) & "*" & vbCrLf
        Next
        TextBox1.Text = newText

    End Sub

     

     

     

    2008年8月5日 下午 06:23
  • 一行文:

    Code Snippet

    TextBox.Text = "#" & Join(Split(TextBox.Text, vbNewLine), "*" & vbNewLine & "#") & "*"

     

     

    2008年8月6日 下午 05:43