Tips Rich Text Box Vb 6.0

Langsung saja

• Buka VB 6.0 Klik File -> New Project -> Pilih Vb Eterprise Edition Controls -> Klik Open


• Tambahkan 1 Command Button dan 1 Rich TextBox, ubah propertinya Name : TeksBox ; Text dihapus ( dikosongkan)


• Perhatikan Code vb dan comment nya:

Private Sub Command1_Click()
 t = InputBox("Nama kamu. . .?", "Tanya")
 'format paragraf
 'vbLeftJustify ; Rata sebelah kiri
 'vbRightJustify ;Rata sebelah kanan
 'vbCenter ;Rata Tengah
 TeksBox.SelAlignment = vbCenter
 'Isi Baris pertama
 TeksBox.Text = "Hai " & t & " Selamat datang "
 'Tambahkan 1 baris kosong
 TeksBox.Text = TeksBox.Text & vbNewLine
 'Tambahkan 1 baris dengan isi
 TeksBox.Text = TeksBox.Text & vbNewLine & "Belajar Visual Basic sangat meyenangkan "
 'simpan ke file Hasil.txt
 TeksBox.SaveFile ("C:\Documents and Settings\Irso\My Documents\VB 6\Hasil.Txt")
End Sub

Good Luck . . .!!