Yang dimaksud dengan AutoFit TextBox.Text disini adalah menyesuaikan ukuran huruf yang terdapat dalam objek TextBox agar sesuai dengan lebar textbox. Perhatikan gambar di bawah ini:
 |
| Pada mulanya text melebihi lebar textbox |
menjadi:
 |
| Sekarang text sesuai dengan lebar textbox |
Pada gambar di atas objek TextBox-nya lebih dari satu, sehingga prosedurnya harus dipanggil satu persatu menggunakan kode di bawah ini:
Option Explicit
'-----------------------------------------------------------------------
'http://khoiriyyah.blogspot.com
'By Asep Hibban Ibnu Surur)
'-----------------------------------------------------------------------
Private Sub Command1_Click()
Dim ctl As Object
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
AutoFitTextBox ctl
End If
Next
End Sub
Selengkapnya bisa Anda download pada link di bawah ini:
