Cara Membuat Notepad sederhana menggunakan VB6

Disini saya akan menjelaskan cara membuat Notepad sederhana menggunakan Visual Basic 6, dan saya akan memberikan gambarannya seperti yang di bawah ini :
Untuk Kodingnya ada dibawah ini :

Private TempText As String
Private FilePath As String

Private Sub Form_Resize()
TxtNotepad.Width = Me.ScaleWidth
TxtNotepad.Height = Me.ScaleHeight
End Sub

Private Function ShowSave()
Dim result As Boolean
result = False
CommonDialog1.Filter = "All Files|*.*"
CommonDialog1.ShowSave
If (CommonDialog1.filename <> "") Then
result = True
SaveFile CommonDialog1.filename
End If
ShowSave = result
End Function

Private Function SaveAs()
Dim result As Boolean
If (ShowSave) Then
FilePath = CommonDialog1.filename
TempText = TxtNotepad.Text
result = True
Else
result = False
End If
SaveAs = result
End Function

Private Function Save()
Dim result As Boolean
result = True
If (FilePath = "") Then
If (Not SaveAs) Then
result = False
End If
Else
SaveFile FilePath
TempText = TxtNotepad.Text
End If
Save = result
End Function

Private Sub SaveFile(filename As String)
Open filename For Output As #1
Print #1, TxtNotepad.Text
Close #1
End Sub

Private Sub OpenFile(filename As String)
Open filename For Input As #1
If (Not EOF(1)) Then
Input #1, Data
TxtNotepad.Text = Data
Do Until EOF(1)
Input #1, Data
txt.Text = txt.Text & vbNewLine & Data
Loop
End If
Close #1
End Sub

Private Sub NewDoc()
TextText = ""
FilePath = ""
TxtNotepad.Text = ""
End Sub

Private Function CekSave() As Boolean
Dim result As Boolean
Dim retval
result = True
If (TxtNotepad.Text <> TempText) Then
retval = MsgBox("Simpan data terlebih dahulu?", vbQuestion + vbYesNoCancel, "Konfirmasi")
If (retval = vbCancel) Then
result = False
ElseIf (retval = vbYes) Then
If (Not Save) Then result = False
End If
End If
CekSave = result
End Function

Private Sub mnuAbout_Click()
Me.Hide
frmAbout.Show
End Sub

Private Sub mnucopy_Click()
Clipboard.Clear
Clipboard.SetText TxtNotepad.SelText
End Sub

Private Sub mnucopy1_Click()
Clipboard.Clear
Clipboard.SetText TxtNotepad.SelText
End Sub

Private Sub mnucut_Click()
Clipboard.Clear
Clipboard.SetText ActiveControl.SelText
ActiveControl.SelText = ""
End Sub

Private Sub mnucut1_Click()
Clipboard.Clear
Clipboard.SetText ActiveControl.SelText
ActiveControl.SelText = ""
End Sub

Private Sub mnudelete_Click()
TxtNotepad.SelText = ""
End Sub

Private Sub mnudelete1_Click()
TxtNotepad.SelText = ""
End Sub

Private Sub mnuedit_Click()
If TxtNotepad.SelLength > 0 Then
mnucut.Enabled = True
mnucopy.Enabled = True
mnudelete.Enabled = True
Else
mnucut.Enabled = False
mnucopy.Enabled = False
mnudelete.Enabled = False
End If
End Sub

Private Sub mnuExit_Click()
If (CekSave) Then End
End Sub

Private Sub mnuNew_Click()
If (CekSave) Then NewDoc
End Sub

Private Sub mnuOpen_Click()
CommonDialog1.Filter = "All Files|*.*"
CommonDialog1.ShowOpen
If (CommonDialog1.filename <> "") Then
FilePath = CommonDialog1.filename
OpenFile FilePath
TempText = TxtNotepad.Text
End If
End Sub

Private Sub mnupaste_Click()
TxtNotepad.SelText = Clipboard.GetText
End Sub

Private Sub mnupaste1_Click()
TxtNotepad.SelText = Clipboard.GetText
End Sub

Private Sub mnuSave_Click()
Save
End Sub

Private Sub mnuSaveAs_Click()
SaveAs
End Sub

Private Sub mnusellect_Click()
TxtNotepad.SelStart = 0
TxtNotepad.SelLength = Len(ActiveControl.Text)
End Sub

Private Sub mnusellect1_Click()
TxtNotepad.SelStart = 0
TxtNotepad.SelLength = Len(ActiveControl.Text)
End Sub


Untukk Lebih lengkapnya,download aja link dibawah ini :
Notepad



Free Articel

masukkan email anda :