form linken?

[MitchelRijs]

het lukt me maar niet om forms te "linken"
(ik heb 2008 express)
ik wil dat als ik in form:favoriten op toevoegen(button) druk dat er bij form:formknopjes mijn
code wordt uitgevoerd,

hier is mijn code (van de button)

Private Sub Add_butt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add_butt.Click
If book1.ToolTipText = ("") Then
book1.ToolTipText = (TextBox1.Text)
book1.Text = (TextBox2.Text)
book1.Visible = True
My.Settings.book1 = book1.ToolTipText
My.Settings.empty = book1.Text
My.Settings.Save()
ElseIf book2.ToolTipText = ("") Then
book2.ToolTipText = (TextBox1.Text)
book2.Text = (TextBox2.Text)
book2.Visible = True
My.Settings.book2 = book2.ToolTipText
My.Settings.empty2 = book2.Text
My.Settings.Save()

End Sub


Alvast bedankt,
Mitchel :thumb:

(het is voor mijn webbrowser om favoriten toe te voegen en ze op een toolstrip menutje te laten zien)

 

[bn2vs]

dit is met 1 form

sub btn_click() handles btn.click
'je code
end sub

als je het met 2 forms doet kan je het zo doen

'form1
sub btn_click() handles btn.click
form2.doeKlikOpdrachten()
end sub

'form2
sub doeKlikOpdrachten()
'je code
end sub

 

[MitchelRijs]

ik snap hem nog niet helemaal

zou je hem zo willen maken dat het alleen nog kopie & plakwerk is
BTW ik heb 2008 express
srry,
Alvast bedankt
Mitchel :thumb:

 

[bn2vs]

'form1
Private Sub Add_butt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add_butt.Click
form2.doeKlikOpdrachten()
End Sub

'form2
sub doeKlikOpdrachten()
If book1.ToolTipText = ("") Then
book1.ToolTipText = (TextBox1.Text)
book1.Text = (TextBox2.Text)
book1.Visible = True
My.Settings.book1 = book1.ToolTipText
My.Settings.empty = book1.Text
My.Settings.Save()
ElseIf book2.ToolTipText = ("") Then
book2.ToolTipText = (TextBox1.Text)
book2.Text = (TextBox2.Text)
book2.Visible = True
My.Settings.book2 = book2.ToolTipText
My.Settings.empty2 = book2.Text
My.Settings.Save()
end sub

 

[MitchelRijs]

sorry van je tijd ik moest alleen maar form1 toevoegen bij alle book1&book2 ect.

srry