evo koda
Citat:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If My.Settings.Names Is Nothing Then
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Moraš popuniti polja ime i broj")
Else
Console.WriteLine(TextBox1.Text + " - " + TextBox2.Text)
My.Settings.Save()
Me.Close()
End If
Else
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Moraš popuniti polja ime i broj")
Else
Console.WriteLine(TextBox1.Text + " - " + TextBox2.Text)
My.Settings.Save()
Me.Close()
End If
End If
TextBox1.Clear()
TextBox2.Clear()
Form1.ListBox1.Items.Clear()
For Each Name As String In My.Settings.Names
Form1.ListBox1.Items.Add(Name)
Next
End Sub
If My.Settings.Names Is Nothing Then
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Moraš popuniti polja ime i broj")
Else
Console.WriteLine(TextBox1.Text + " - " + TextBox2.Text)
My.Settings.Save()
Me.Close()
End If
Else
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Moraš popuniti polja ime i broj")
Else
Console.WriteLine(TextBox1.Text + " - " + TextBox2.Text)
My.Settings.Save()
Me.Close()
End If
End If
TextBox1.Clear()
TextBox2.Clear()
Form1.ListBox1.Items.Clear()
For Each Name As String In My.Settings.Names
Form1.ListBox1.Items.Add(Name)
Next
End Sub
kod ovoga upisa u formu 1 javlja gresku, da pojasnim forma jedan je glavna, ali kad zelim da ubacim novi kontakt pali se mala forma 2 sa poljima za upis i ovaj kod je kod dugmeta sacuvaj