Toolbar resizer vb 6

AToolbar Resizer 1.0 merupakan sebuah Add-Ins VB6.0 yang berguna untuk merubah ukuran buttons Toolbar yang telah terlanjur diisi gambar (yang berasal dari ImageList)

Download: Toolbar Resizer 1.0

Cara menggunakan:

    Register terlebih dahulu Toolbar Resizer 1.0 dengan cara mendouble klik file install.bat
    Klik menu file Add-ins selanjutnya klik Add-Ins Manager, cari Add-ins dengan nama Toolbar Resizer 1.0.
    Pilih Toolbar yang telah diisi gambar yang berasal dari ImageList.
    Sesuaikan ukurannya dengan cara memilih item yang tersedia dalam ComboBox Toolbar Resizer 1.0.

Seperti yang kita ketahui, objek Toolbar yang buttonnya telah terisi gambar dari ImageList tidak dapat dirubah ukurannya misalnya dari 16 x 16 menjadi 32 x 32, 48 x 48 atau sebaliknya, terkecuali kita hapus terlebih dahulu seluruh gambar yang terdapat pada ImageList tersebut dan meng-unbound property ImageList yang terdapat dalam Toolbar tersebut. Akan tetapi dengan tools kecil yang diberi nama Toolbar Resizer 1.0 kita dapat merubah ukuran gambar sesuai selera tanpa harus mengutak-atik Toolbar dan ImageList-nya.

Contoh Program Password sederhana menggunakan VB6

Buatlah Desain Form Dengan Objek2 Berikut Ini :
---------------------------------------------------------------------------------

2 Objek Label :
Label Pertama = Name : Label1, Caption : Nama User
Label Kedua = Name : Label2, Caption : Password User
--------------------------------------------------------------------------------
2 Objek TextBox :
TextBox Pertama = Name : Text1, Text : <Kosong>
TextBox Kedua = Name : Text2, Text : <Kosong>, Password Char : *
---------------------------------------------------------------------------------
2 Objek CommandButton :
CommandButton Pertama = Name : cmdLogin, Caption : Login
CommandButton Kedua = Name : cmdSignUp, Caption : Sign Up
------------------------------------------------------------------------------------

Lalu Copy-Paste Code di Bawah ini, dengan Cara Klik 2x Form :

Dim NmUser, PassUser As String

Private Sub Form_Load()
On Error Resume Next
Open app.Path & "\dBase.txt" For Input As #1
Line Input #1, NmUser
Line Input #1, PassUser
Close #1

cmdLogin.Enabled = False
End Sub

Private Sub cmdLogin_Click()
On Error Resume Next
Open app.Path & "\dBase.txt" For Input As #1
Line Input #1, NmUser
Line Input #1, PassUser
Close #1

If Text1.Text = NmUser And Text2.Text = PassUser Then
MsgBox "Login Berhasil", vbInformation, "Chocho Rezpector"
Else
MsgBox "Login Gagal", vbInformation, "Chocho Rezpector"
End If
End Sub

Private Sub cmdSignUp_Click()
On Error Resume Next
Open app.Path & "\dBase.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1

cmdLogin.Enabled = True
cmdSignUp.Enabled = False
End Sub

Setelah itu tekan tombol F5