VB6 Trik - Mengukur Dimensi String Tanpa Fungsi API

Menjelaskan mengenai cara mengukur dimensi string yang menggunakan objek font tertentu tanpa menggunakan fungsi API. Untuk berbagai keperluan, terkadang kita membutuhkan sebuah prosedure untuk mengukur dimensi sebuah string. Di samping dengan menggunakan...

READ MORE - VB6 Trik - Mengukur Dimensi String Tanpa Fungsi API

CommonDialog Font, Cara Menggunakannya

Private Sub Command1_Click() With CommonDialog1 .CancelError = True On Error GoTo ErrHandler .Flags = cdlCFEffects Or cdlCFBoth .ShowFont Text1.Font.Name = .FontName Text1.Font.Size = .FontSize Text1.Font.Bold...

READ MORE - CommonDialog Font, Cara Menggunakannya

Menentukan Objek Font Yang Dikirimkan Ke Printer

Contoh sederhana untuk menentukan name, underline, bold, italic, size (properties objek font) yang dikirimkan ke sebuah printer. Adapun contohnya sebagai berikut: Private Sub Command1_Click() With Printer .FontName = "Arial" .FontUnderline...

READ MORE - Menentukan Objek Font Yang Dikirimkan Ke Printer

Memutarkan huruf pada watermark, bagaimana caranya?

Mengenai cara memutarkan atau merotasi font pada watermark menggunakan VB6 (belajar Visual Basic 6 untuk pemula) - Posting ini merupakan kelanjutan dari posting yang telah ditulis terdahulu. Disini kita akan menambahkan beberapa kemampuan pada project...

READ MORE - Memutarkan huruf pada watermark, bagaimana caranya?

Rotasi Font Menggunakan Visual Basic 6.0

Modul untuk memutarkan atau merotasi font berdasarkan derajat tertentu serta koordinat tertentu menggunakan VB6 - Bagaimana kode serta contoh penggunaannya, bisa Anda lihat di bawah ini: Option Explicit Public Type LOGFONT lfHeight As Long lfWidth...

READ MORE - Rotasi Font Menggunakan Visual Basic 6.0

Menggunakan Fonts Tanpa Menginstalnya

Di bawah ini merupakan kode untuk menggunakan fonts tanpa harus menginstalnya.Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" ByVal lpFileName As String) As Long Private Declare Function RemoveFontResource Lib "gdi32" Alias...

READ MORE - Menggunakan Fonts Tanpa Menginstalnya

Cara Termudah Untuk Mengisi Seluruh Fonts Ke dalam ListBox

Di bawah ini merupakan fungsi untuk mengisi seluruh fonts yang ada dalam komputer Anda ke dalam objek ListBoxPublic Function LoadAllFonts(lst As Control) Dim i As Integer For i = 1 To 1000 If Screen.Fonts(i) = "" Then Exit For ...

READ MORE - Cara Termudah Untuk Mengisi Seluruh Fonts Ke dalam ListBox