Wiki

Pemrograman Visual:Form dan Objek Kontrol 2: Difference between revisions

← Older edit
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
 
Line 258: Line 258:
* Klik ganda pada '''menu buka''', ketikkan kode program berikut ini:
* Klik ganda pada '''menu buka''', ketikkan kode program berikut ini:


<syntaxhighlight lang="vb.net" line="1">
Private Sub BukaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaToolStripMenuItem.Click
Private Sub BukaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaToolStripMenuItem.Click
        Dim kotak_dialog As OpenFileDialog = New OpenFileDialog
        Dim kotak_dialog As OpenFileDialog = New OpenFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        kotak_dialog.ShowDialog()
        Dim fileText As String = My.Computer.FileSystem.ReadAllText(kotak_dialog.FileName)
        Dim fileText As String = My.Computer.FileSystem.ReadAllText(kotak_dialog.FileName)
        RchTeks.Text = fileText
        RchTeks.Text = fileText
End Sub
End Sub
</syntaxhighlight>


* Klik ganda pada '''menu simpan''', ketikkan kode program berikut ini:
* Klik ganda pada '''menu simpan''', ketikkan kode program berikut ini:


<syntaxhighlight lang="vb.net" line="1">
Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click
Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click
        Dim kotak_dialog As SaveFileDialog = New SaveFileDialog
        Dim kotak_dialog As SaveFileDialog = New SaveFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        kotak_dialog.ShowDialog()
        My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "",RchTeks.Text, False)
        My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "",RchTeks.Text, False)
End Sub
End Sub
</syntaxhighlight>


* Klik ganda pada '''menu Baru''', ketikkan kode program berikut ini:
* Klik ganda pada '''menu Baru''', ketikkan kode program berikut ini:


<syntaxhighlight lang="vb.net" line="1">
Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click
Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click
        RchTeks.Text = ""
        RchTeks.Text = ""
End Sub
End Sub
</syntaxhighlight>


* Klik ganda pada '''menu ContextMenuStrip''' dengan menu regular, kemudian ketik kode program berikut ini :
* Klik ganda pada '''menu ContextMenuStrip''' dengan menu regular, kemudian ketik kode program berikut ini :
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Form_dan_Objek_Kontrol_2"