Kembali Lagi Dengan saya Prof.zonk
Disini saya akan membagikan tutorial Membuat Notepad dengan Microsoft
Visual Basic 0.6
Visual Basic 0.6 adalah Program yang dibuat Oleh microsoft
Untuk Membuat suatu aplikasi , sebenarnya Visual Basic 0.6 Telah ketinggalan Zaman Kerena sekarang
Microsoft telah membuat Banyak Versi
Microsoft Visual Basic , Kerena Gue Adalah Programer Visual Basic 0.6 (vb6)
makanya Gue akan membagikan tutorial Visual Basic 0.6
Sedangkan Notepad Juga adalah Program Buatan Microsoft
,Notepad Berguna Untuk Menulis yang Penting (Document) Notepad Juga Tertanam
Bahasa Program Jadi kita juga bisa membuat Program Dengan Notepad Bahkan Kita
bisa membuat tampilan Web dengan notepad ,, jangan lama lama bahasnya kita
langsung aja ke tutorialnya
Bahan bahan
1.Microsoft Visual Basic . Kalo Nggak Ada Cari Aja di paman
google
2.Tidak Jomblo :v
Cara pembuatan nya
1.Buka Program Visual Basic Kalian dan Pilih Standar Exe
2.Tambahkan Rich Textbox dan Common Dialog
Caranya : klik kanan Di toolbox Pilih Component dan ikuti saja gambar di bawah ini
Caranya : klik kanan Di toolbox Pilih Component dan ikuti saja gambar di bawah ini
3.setelah selesai Kita Buat Rich textbox =1 , Common dialog =1 , dan menu editor
Ganti nama rich textbox menjadi : text1
Struktur Menu editor:
Menu Menu
...copy copy
...cut cut
...minimize minimize
...new new
...open open
...paste paste
...print print
...save save
Tulisan yang berwarna Hitam adalah captionya sedangkan Yang merah adalah Name nya
setelah Itu Silahkan Isikan Code program di bawah ini
Private Sub Copy_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
End Sub
Private Sub Cut_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub
Private Sub Exit_Click()
On Error GoTo ErrorHandler
Dim Msg, Style, Title, Response, MyString
Msg = "Are you sure you want to exit ?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Warning"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = "Yes"
End
End If
ErrorHandler:
End Sub
Private Sub Minimize_Click()
Form1.WindowState = 1
End Sub
Private Sub New_Click()
Text1.Text = ""
End Sub
Private Sub Open_Click()
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Dim LoadFileToTB As Boolean
Dim TxtBox As Object
Dim FilePath As String
Dim Append As Boolean
Dim iFile As Integer
Dim s As String
If Dir(FilePath) = "" Then Exit Sub
On Error GoTo ErrorHandler:
s = Text1.Text
iFile = FreeFile
Open CommonDialog1.FileName For Input As #iFile
s = Input(LOF(iFile), #iFile)
If Append Then
Text1.Text = Text1.Text & s
Else
Text1.Text = s
End If
LoadFileToTB = True
ErrorHandler:
If iFile > 0 Then Close #iFile
End Sub
Private Sub Paste_Click()
Text1.SelText = Clipboard.GetText()
End Sub
Private Sub Print_Click()
On Error GoTo ErrHandler
Dim BeginPage, EndPage, NumCopies, i
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
Printer.Print Text1.Text
Next i
Exit Sub
ErrHandler:
Exit Sub
End Sub
Private Sub Save_Click()
On Error GoTo ErrorHandler
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
CommonDialog1.FileName = CommonDialog1.FileName
Dim iFile As Integer
Dim SaveFileFromTB As Boolean
Dim TxtBox As Object
Dim FilePath As String
Dim Append As Boolean
iFile = FreeFile
If Append Then
Open CommonDialog1.FileName For Append As #iFile
Else
Open CommonDialog1.FileName For Output As #iFile
End If
Print #iFile, Text1.Text
SaveFileFromTB = True
ErrorHandler:
Close #iFile
End Sub
4.setelah selesai silahkan di JAlankan dengan cara Klik tombol F5
Sekian terima kasih
No comments: