Membuat Text Box dengan menulis karakter dibatasi.

cara Membuat kotak teks untuk menulis kata atau
kalimat dengan jumlah karakter dibatasi hanya sampai 160 karakter, setelah itu tidak bisa menulis lagi. seperti di sms/twitter sederhana.














Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text) & " /160"
If Len(Text1.Text) >= 160 Then
MsgBox "Sudah habis", vbCritical

End If
Text1.Text = Left(Text1.Text, 160)


End Sub

Comments

Popular posts from this blog

Cara Mengatasi Galat: Index hilang pada kolom di phpMyAdmin

Program C++ Menghitung Diskon Pembelian oleh Pelanggan