Cara Menambahkan Teks di Picture Box dengan Kursor–VB6

Selamat datang di Blog BelajarVB, pada arikel sebelumnya saya telah membahas tentang cara menambahkan teks pada picturebox namun pada artikel itu cara menambahkannya dengan text box. Pada artikel ini saya akan membahasnya kembali namun dengan menggunakan kursor. Berikut langkah-langkahnya:

- Buka VB6 dan pilih standard exe.

- Masukan 1 buah Picture Box dan 1 timer (beri nama: cursor & interval: 500). Seperti pada gambar dibawah ini:

- Kemudian masukan sintak procedure sub untuk mengatur cursor:

Private Sub SetCursor()
    DrawObj.DrawMode = 6
    SaveCurrentY = DrawObj.CurrentY
    SaveCurrentX = DrawObj.CurrentX
    CursorHeight = DrawObj.TextHeight("I")
    DrawObj.Line (SaveCurrentX, SaveCurrentY)-(SaveCurrentX, SaveCurrentY + CursorHeight)
    DrawObj.CurrentY = SaveCurrentY
    DrawObj.CurrentX = SaveCurrentX
    DrawObj.DrawMode = 13
    CursorOn = Not CursorOn
End Sub

- Lalu sintak berikut pada objek timer :

Private Sub Cursor_Timer()
    SetCursor
End Sub

- Setelah itu masukan sintak berikut di Object Picture Box pada event Keypress dan MouseDown:

Private Sub Picture1_KeyPress(KeyAscii As Integer)
    Cursor.Enabled = False
    If CursorOn Then SetCursor
    If KeyAscii = 13 Then DrawObj.Print "" Else DrawObj.Print Chr(KeyAscii);
    Cursor.Enabled = True
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Cursor.Enabled = False
    If CursorOn Then SetCursor
    DrawObj.CurrentX = X
    DrawObj.CurrentY = Y
    Cursor.Enabled = True
    If Button = 2 Then
    PopupMenu mnuFile
    End If
End Sub

- Bila sudah selesai memasukan sintak maka jalankan programnya. Klik dimana saja dan ketikan apa saja yang kita inginkan.

- Selamat anda telah berhasil memasukan teks pada picturebox.

Sekian dulu tutorialnya, Selamat mencoba dan semoga bermanfaat.