MEMBUAT MARQUEE DI TITLE FORM

MEMBUAT MARQUEE DI TITLE FORM

MEMBUAT TEKS MENGETIK PADA LABEL PADA VB6

TULISAN”PUSTAKADIGITAL EBOOK.BLOGSPOT.COM” AKAN SEPERTI DIKETIK 1 PERSATU DENGAN INTERVAL 200 TIMER ( 1/5 DETIK)

TAMBAHKAN TIMER 1 BUAH DAN LABEL 1 BUAH ISI DENGAN KODE SEPERTI DIBAWAH INI

Option Explicit

Dim Teks As String

Dim i As Integer

Dim digit As Integer

Private Sub Timer1_Timer()

    Label1.FontSize = 15 ' UKURAN HURUF

    Label1.Caption = "" ' POSISI DEFAULT

    Timer1.Interval = 200 ' KECAPATAN KETIKAN

   

    Teks = "PUSTAKADIGITALEBOOK.BLOGSPOT.COM"

   

    If digit < Len(Label1) Then digit = -1

    digit = digit + 1

    Label1.Caption = Mid(Teks, 1, digit)

End Sub

    MSHFLEXGRID 1

2.      MSHFLEXGRID 2

3.      CONTOH PROGRAM VB MSHFLEXGRID 2 RAR

4.     SERI TEXTBOX 

5.      SYNTAX SQL DAN DATABASE  

6.     GAMBAR EKSTENSI ICON 

7.      TEXTBOX SERI 2 MENGENAI ENABLE DAN LOCKED

8.      BUAT ANIMASI MARQUE

9.     CONTOH 20 PERTAMA CONTOH 20 PROGRAM VB 2 

10.  CONTOH 20 PROGRAM VB 3

11.      CONTOH 20 PROGRAM VB 4

12.   CONTOH 20 PROGRAM VB 5

13.   CONTOH 20 PROGRAM VB 6

14.   CONTOH 20 PROGRAM VB 7

15.    CONTOH 20 PROGRAM VB 8

16.    CONTOH 20 PROGRAM VB 9

17.     CONTOH 20 PROGRAM VB 10          

18.    20 CONTOH PROGRAM VB BAGIAN 11

19.    20 CONTOH PROGRAM VB BAGIAN 12

20.20 CONTOH PROGRAM VB BAGIAN 13

21.   20 CONTOH PROGRAM VB BAGIAN 14

22.  CONTOH PROGRAM VB BAGIAN 15

23.  20 CONTOH PROGRAM VB BAGIAN 16

24. 20 CONTOH PROGRAM VB BAGIAN 17

25.  20 CONTOH PROGRAM VB BAGIAN 18

26. 20 CONTOH PROGRAM VB BAGIAN 19

27.  20 CONTOH PROGRAM VB BAGIAN 20

28.  20 CONTOH PROGRAM VB BAGIAN 21

29.  20 CONTOH PROGRAM VB BAGIAN 22

30.20 CONTOH PROGRAM VB BAGIAN 23      

31.   SYNTAK TANGGAL JATUH TEMPO