'Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 TextBox, dan 1 Commandbutton.
' 2. Set properti MultiLine textbox = True
' 3. Copy-kan coding berikut ke dalam editor form yang bertalian.
'--------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim NewText As String
With Text1
'Ganti teks 'My New Text' dengan teks yang Anda inginkan ditambah
NewText = "My New Text"
.SelStart = Len(.Text)
.SelText = vbNewLine & NewText
End With
End Sub
Private Sub Form_Load()
Text1.Text = "My Initial Text"
End Sub
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar