Tugas 5 - MDI FORM
Desainlah Form sebagai berikut :
Buatlah 3 sub menu di form utama yaitu Cascade,tile
Horizontal,Tile Vetical :
Kemudia buat
2 form tambahan :
Untuk form 2
:
Dengan
coding :
PublicClassForm2
PrivateSub
Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
HandlesMyBase.Load
Me.MdiParent
= Form1
EndSub
EndClass
Untuk form 3
:
Dengan
Coding :
PublicClassForm3
PrivateSub
Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
HandlesMyBase.Load
Me.MdiParent
= Form1
EndSub
EndClass
Berikut
Coding Keseluruhan pada Form 1 :
PublicClassForm1
PrivateSub
Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Tugas1ToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
Form2.Show()
Form3.Show()
EndSub
PrivateSub
Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
Form2.MdiParent
= Me
Form2.Show()
EndSub
PrivateSub
Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Latihan2ToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
Form2.Show()
Form3.Show()
EndSub
PrivateSub
CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
Form2.Show()
Form3.Show()
EndSub
PrivateSub
TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)
Form2.Show()
Form3.Show()
EndSub
PrivateSub
TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
Form2.Show()
Form3.Show()
EndSub
PrivateSub
ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripMenuItem2.Click
Form2.MdiParent
= Me
Form2.Show()
EndSub
PrivateSub
ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton1.Click
Me.LayoutMdi(MdiLayout.TileVertical)
Form2.Show()
Form3.Show()
EndSub
PrivateSub
ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.Close()
EndSub
PrivateSub
ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripButton2.Click
Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)
Form2.Show()
Form3.Show()
EndSub
EndClass
Berikut
Program Ketika Di Run :
Cassade:
Tile
Horizontal:
Tile
Vertical :
Untuk Menu
Ribbon ditambahkan dengan aplikasi penambah tool (DotNetBar)
Tugas 4
1.
Membuat Program dengan checkbox
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
End
Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Dim control As Windows.Forms.CheckBox
TextBox1.Text = ""
For Each control In Me.GroupBox1.Controls
If control.Checked = True Then
TextBox1.Text &= control.Text
& ","
End If
Next
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text,
Len(TextBox1.Text) - 1)
End
Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
Dim control As Windows.Forms.CheckBox
TextBox1.Text = ""
For Each control In Me.GroupBox1.Controls
If control.Checked = True Then
TextBox1.Text &= control.Text & ","
End If
Next
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text,
Len(TextBox1.Text) - 1)
End
Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
Dim control As Windows.Forms.CheckBox
TextBox1.Text = ""
For Each control In Me.GroupBox1.Controls
If control.Checked = True Then
TextBox1.Text &= control.Text & ","
End If
Next
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text,
Len(TextBox1.Text) - 1)
End
Sub
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
Dim control As Windows.Forms.CheckBox
TextBox1.Text = ""
For Each control In Me.GroupBox1.Controls
If control.Checked = True Then
TextBox1.Text &= control.Text & ","
End If
Next
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text,
Len(TextBox1.Text) - 1)
End
Sub
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
Dim control As Windows.Forms.CheckBox
TextBox1.Text = ""
For Each control In Me.GroupBox1.Controls
If control.Checked = True Then
TextBox1.Text &= control.Text & ","
End If
Next
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text,
Len(TextBox1.Text) - 1)
End
Sub
Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
Dim control As Windows.Forms.CheckBox
TextBox1.Text = ""
For Each control In Me.GroupBox1.Controls
If control.Checked = True Then
TextBox1.Text &= control.Text & ","
End If
Next
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text,
Len(TextBox1.Text) - 1)
End
Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Close()
End
Sub
End Class
2.
Membuat Program dengan radiobutton
Public Class Form1
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub
RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.Text = ""
If RadioButton1.Checked = True Then
Else
TextBox1.Text &=
"Suami"
End If
If RadioButton2.Checked = True Then
Else
TextBox1.Text &=
"Istri"
End If
End Sub
Private Sub
RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton4.CheckedChanged
TextBox1.Text = ""
If RadioButton1.Checked = True Then
Else
TextBox1.Text &= ""
End If
If RadioButton2.Checked = True Then
Else
TextBox1.Text &= ""
End If
End Sub
End Class
3.
Membuat Program dengan listbox
Public Class Form1
Private Sub btisi_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles btisi.Click
Dim control As Windows.Forms.ListBox
TextBox1.Text = TextBox1.Text
TextBox1.Text =
ListBox1.Items.Add(TextBox1.Text)
End Sub
Private Sub bt10_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles bt10.Click
For bil = 1 To 10
ListBox1.Items.Add(bil)
Next
End Sub
Private Sub btpindah1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles btpindah1.Click
ListBox1.Text =
ListBox2.Items.Add(ListBox1.Text)
End Sub
Private Sub btpindah2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles btpindah2.Click
ListBox1.SelectionMode =
SelectionMode.MultiExtended
Dim i, j As Integer
j = ListBox1.Items.Count
For i = 0 To j - 1
Try
ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(i)))
Catch ex As Exception
j -= 1
End Try
Next
End Sub
Private Sub btpindah3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles btpindah3.Click
ListBox1.SelectionMode =
SelectionMode.MultiExtended
Dim Jumlah As Integer =
ListBox1.Items.Count
For i = 0 To Jumlah - 1
ListBox2.Items.Add(ListBox1.Items(i))
Next
End Sub
Private Sub bthps1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles bthps1.Click
ListBox2.SelectionMode =
SelectionMode.One
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Private Sub bthps2_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles bthps2.Click
ListBox2.SelectionMode =
SelectionMode.MultiExtended
Dim i, j As Integer
j = ListBox2.Items.Count
For i = 0 To j - 1
Try
ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
Catch ex As Exception
j -= 1
End Try
Next
End Sub
Private Sub bthps3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles bthps3.Click
ListBox2.Items.Clear()
End Sub
Private Sub btclose_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles btclose.Click
Me.Close()
End Sub
End Class
