Cara Menampilkan Kotak Dialog Open di Form Visual Basci 6.0

Menampilkan Kotak Dialog Open di Form Visual Basic - Kali ini tip dan trik visual basic akan membrikan sebuah tip yang berhubungan dengan windows di PC Anda.Apakah itu? yaitu cara menampilkan kotak dialog yang terdiri dari Open, Save, Font dan Color.

Kotak Dialog Open mungkin sudah tidak asing lagi di telinga kita, kita sering menggunakan pada saat bekerja dengan komputer terutama pada saat menyimpan dan membuka file.Adapun kotak-kotak dialog tersebut antara lain :
kotak dialog Open
kotak dialog Save
kotak dialog Font
kotak dialog Color

Lalu bagaimana cara menampilkannya di form vb, ikuti langkah-langkah berikut ini:
1, Masuk ke lingkungan Visual Basic, lalu pilih VB Enterprise Edition Controls.
2. Pada form tanamkan 4 buah commandbutton, 1 buah RichTexBox dan 1 CommonDialog.


Designlah form seperti gambar dibawah ini

Kotak Dialog Open

Catatan:
Apabila kontrol Richtexbox dan CommonDialog di tool box tidak ada, tekan CTR T untuk mencarinya celkist dan Apply.

Atur commandButton di propertis:
CommandButton1 Caption: Open
CommandButton2 Caption: Save
CommandButton3 Caption: Font
CommandButton3 Caption: Color

3. Buka jendela kode kemudian ketikan kode dibawah ini

Private Sub Command1_Click()
On Error Resume Next
With Form6.CommonDialog1
.CancelError = True
.Filter = "RTF Files,TXT Files,WRI Files|*.wri;*.txt;*.rtf;|HTML Files|*.htm;*.html;|All Files|*.*"
.ShowOpen
Screen.ActiveForm.Caption = "Document-" + Form6.CommonDialog1.FileName
Screen.ActiveForm.ActiveControl.LoadFile (Form6.CommonDialog1.FileName)
End With
End Sub

Private Sub Command2_Click()
On Error Resume Next
Form6.CommonDialog1.Filter = "RTF Files|*.rtf|TXT Files|*.txt|WRI Files|*.wri|HTM Files|*.htm|HTML Files|*.html|All Files|*.*"
Form6.CommonDialog1.ShowSave
Open Form6.CommonDialog1.FileName For Output As #1
Print #1, Screen.ActiveForm.ActiveControl.textClose#; 1

End Sub

Private Sub Command3_Click()
On Error GoTo cancelerr:
With Form6.CommonDialog1
.CancelError = True
.Flags = cdlCFBoth + cdlCFEffects
.ShowFont
End With
Screen.ActiveForm.ActiveControl.Font.Name = Form6.CommonDialog1.FontName
Screen.ActiveForm.ActiveControl.Font.Size = Form6.CommonDialog1.FontSize
Screen.ActiveForm.ActiveControl.SelBold = Form6.CommonDialog1.FontBold
Screen.ActiveForm.ActiveControl.SelItalic = Form6.CommonDialog1.FontItalic
Screen.ActiveForm.ActiveControl.SelUnderline = Form6.CommonDialog1.FontUnderline
Screen.ActiveForm.ActiveControl.SelStrikeThru = Form6.CommonDialog1.FontStrikethru
Screen.ActiveForm.ActiveControl.SelColor = Form6.CommonDialog1.Color
cancelerr:
Exit Sub

End Sub

Private Sub Command4_Click()
On Error GoTo cancelerr:
With Form6.CommonDialog1
.CancelError = True
.Flags = cdlCCFullOpen
.ShowColor
End With
Screen.ActiveForm.ActiveControl.SelColor = Form6.CommonDialog1.Color
cancelerr:
Exit Sub
End Sub

 Catatan:
Tulisan yang becetak tebal harus dibuat 1 baris dan  Nama Form Sesuaikan dengan form Anda.

4. Simpan hasil pekerjaan Anda, jalankan program.

Sekian sebuah tip sederhana cara menampilkan kotak dialog open di form visual basic.

Related Post: Windows