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