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
No edit summary
 
(One intermediate revision by the same user not shown)
Line 82: Line 82:
* Klik ganda pada '''ComboBox''', Kemudian ketik kode program berikut ini :
* Klik ganda pada '''ComboBox''', Kemudian ketik kode program berikut ini :


<syntaxhighlight lang="vb.net" line="1">
  Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
  Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
         LstInfo.Items.Clear()
         LstInfo.Items.Clear()
Line 100: Line 99:
* Jika kode program digabungkan
* Jika kode program digabungkan


<syntaxhighlight lang="vb.net" line="1">
  Imports System.IO
  Imports System.IO
  Public Class Form2
  Public Class Form2
Line 260: 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"