di bawah ini adalah kode program di atas
Private Sub cmd_hps_Click()
Dim i As Integer
For i = 0 To lst_garis.ListCount - 1
garis(i).Visible = False
lst_garis.Selected(i) = False
Next i
End Sub
'Private Sub cmd_next_Click()
'Form2.Show
'Form1.Hide
'End Sub
Private Sub cmd_OK_Click()
Dim i As Integer
For i = 0 To lst_garis.ListCount - 1
If lst_garis.Selected(i) Then
garis(i).Visible = True
Else
garis(i).Visible = False
End If
Next i
End Sub
Private Sub opt_BS_Click()
Shape1.Shape = 1
End Sub
Private Sub opt_BS1_Click()
Shape1.Shape = 5
End Sub
Private Sub opt_elips_Click()
Shape1.Shape = 2
End Sub
Private Sub opt_lingkaran_Click()
Shape1.Shape = 3
End Sub
Private Sub opt_PP_Click()
Shape1.Shape = 0
End Sub
Private Sub opt_PP1_Click()
Shape1.Shape = 4
End Sub
NB:
1. opt_BS = Optional Bujur Sangkar
2. opt_BS1 = Optional Bujur Sangkar dengan sudut tumpul
3. opt_PP = Optional Persegi Panjang
4. opt_PP1 = Optional Persegi Panjang dengan sudut tumpul
5. opt_lingkaran = Optional Lingkaran
6. opt_lips = Optional Elips
7. Shape1 = shape
8. lst_garis = list dari garis
perlu diingat tombol "next" akan berfungsi jika jika membuat 2 form project atau lebih.
Selamat Mencoba,
Ridon-Na70
