Thursday, April 18, 2019

VB.NET ขึ้นบรรทัดใหม่

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strInfo As String
        strInfo = " บรรทัดที่ 1 "
        strInfo &= vbCrLf & " บรรทัดที่ 2 ใช้ vbCrLf "
        strInfo &= vbNewLine & " บรรทัดที่ 3 ใช้ vbNewLine "
        strInfo &= Environment.NewLine & " บรรทัดที่ 4 ใช้ Environment.NewLine "
        strInfo &= Constants.vbCrLf & " บรรทัดที่ 5 ใช้ Constants.vbCrLf "
        strInfo &= Chr(13) & " บรรทัดที่ 6 ใช้ Chr(13)"
        MessageBox.Show(strInfo, "ทดสอบ", MessageBoxButtons.OK)
    End Sub

No comments:

Post a Comment