more events
hi.
this code is inside a custom dgv.
PrivateWithEvents mynavigatorAs BindingNavigator
PublicWithEvents mySaveAs Windows.Forms.ToolStripButtonPrivateSub DGV_GotFocus(ByVal senderAsObject,ByVal eAs System.EventArgs)HandlesMe.GotFocus
Me.mynavigator = MainMenu.mynav
mynavigator.BindingSource =Me.DataSource
Me.mySave = MainMenu.mySave
EndSub
PublicSub mySave_Click(ByVal senderAsObject,ByVal eAs System.EventArgs)Handles mySave.ClickMsgBox(
"saving")EndSubthis is inside main menu
Public
Class MainMenuInherits FormTemplatePublicShared mynavAsNew MynavigatorPublicShared mySaveAs ToolStripButtonPublic FormsAsNew List(OfString)PublicSub NewForm(ByVal FAs Form)If Forms.Contains(F.GetType.ToString)ThenF.BringToFront()
ElseMe.Forms.Add(F.GetType.ToString)F.Show()
AddHandler F.FormClosing,AddressOf Form_ClosingEndIfEndSubPublicSub Form_Closing(ByVal sAsObject,ByVal eAs FormClosingEventArgs)mynav.BindingSource =
NothingmySave =
NothingEndSubPublicSubNew()InitializeComponent()
mynav =
New MynavigatormySave = mynav.SaveToolStripButton
Me.Controls.Add(mynav)EndSubEnd
Classexample of a form using these
Public
Class myAmountTypesManagerPrivateWithEvents mysaveAs ToolStripButtonPrivateSub saveBtn(ByVal senderAs System.Object,ByVal eAs System.EventArgs)Handles mysave.ClickMsgBox(1)
Me.Validate()DataAccess.SaveSource(
Me.AmountTypesBindingSource, _Me.CostingDataSet.AmountTypes,Me.AmountTypesTableAdapter)EndSubPrivateSub myAmountTypesManager_Load(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesMyBase.LoadMe.mysave =Me.AmountTypesDGV.mySaveMe.AmountTypesTableAdapter.Fill(Me.CostingDataSet.AmountTypes)EndSubEnd
Classsaving is not working.. msgbox 1 not firing. why?

