Perjalanan ke Bali beberapa waktu yang lalu menginspirasi untuk membuat lukisan yang sama berbekal camera digital, beberapa lukisan terduplikasi sebagai koleksi walaupun hasilnya tak sehebat aslinya. ada juga lukisan lain atas permintaan teman untuk diduplikasi.
Lukisan Kakek & Topeng karya Bambang S
11.17.2009
11.05.2009
Sliding Teks
Ide membuat Sliding teks ini terinspirasi dari iklan berbentuk banner yang sering muncul di halaman-halaman web. Dengan VB6 hal ini juga dapat dibuat, dengan memanfaatkan beberapa componen control, maka bentuk banner dapat dibuat dengan mudah.
Untuk membuat Sliding teks, dibutuhkan 3 komponen untuk proyek ini. Pertama picture box, label dan command Button.
1. Picture Box : digunakan untuk membuat frame teks, sehingga posisi teks sebagai fokus utama tidak berubah walaupun dipindahkan ke tempat lain.
2. Label1 : digunakan untuk fokus utama banner.
3. command button : Untuk menggerakan posisi banner
Pertama, buatlah satu projek di VB, lalu letakkan komponen picture box pada form tersebut.
Tambahkan komponen label didalam komponen picture box tadi. lalu tambahkan lima buah komponen. lihat gambar berikut :
selanjutnya tambahkan kode program untuk masing-masing command button.
Dim i As Integer, nT As Integer, nL As Integer, J As Integer
Private Sub cmdKanan_Click()
For i = Label1.Left To 8000
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub
Private Sub cmdKiri_Click()
For i = Label1.Left To -5500 Step -1
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub
Private Sub cmdNaik_Click()
For i = Label1.Top To -850 Step -1
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub
Private Sub cmdNormal_Click()
Label1.Top = 870
Label1.Left = 600
End Sub
Private Sub cmdTurun_Click()
For i = Label1.Top To 3000
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub
Private Sub Form_Load()
nT = 0
nL = 0
End Sub
Untuk membuat Sliding teks, dibutuhkan 3 komponen untuk proyek ini. Pertama picture box, label dan command Button.
1. Picture Box : digunakan untuk membuat frame teks, sehingga posisi teks sebagai fokus utama tidak berubah walaupun dipindahkan ke tempat lain.
2. Label1 : digunakan untuk fokus utama banner.
3. command button : Untuk menggerakan posisi banner
Pertama, buatlah satu projek di VB, lalu letakkan komponen picture box pada form tersebut.
Tambahkan komponen label didalam komponen picture box tadi. lalu tambahkan lima buah komponen. lihat gambar berikut :
selanjutnya tambahkan kode program untuk masing-masing command button.
Dim i As Integer, nT As Integer, nL As Integer, J As Integer
Private Sub cmdKanan_Click()
For i = Label1.Left To 8000
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub
Private Sub cmdKiri_Click()
For i = Label1.Left To -5500 Step -1
Label1.Left = i
For J = 1 To 5000: Next J
Next i
End Sub
Private Sub cmdNaik_Click()
For i = Label1.Top To -850 Step -1
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub
Private Sub cmdNormal_Click()
Label1.Top = 870
Label1.Left = 600
End Sub
Private Sub cmdTurun_Click()
For i = Label1.Top To 3000
Label1.Top = i
For J = 1 To 5000: Next J
Next i
End Sub
Private Sub Form_Load()
nT = 0
nL = 0
End Sub
Subscribe to:
Posts (Atom)
-
Jauh sebelum mengenal 'football table' sewaktu kanak-kanak sekitar akhir tahun 70 an, anak-anak di beberapa daerah pernah memiliki p...
-
Photo kenang-kenangan Musyarawah Besar Warga Kalimantan Se sumatera Utara, September 1956. gambar ini merupakan hasil scanner dari poster yg...
-
Musim hujan tiba, namun ada hal yang kadang menjengkelkan usai hujan reda, masalahnya sering munculnya laron atau kadang disebut juga anai-...