Form Load Event runs 3 times

  • Thread starter Thread starter Vayse
  • Start date Start date
V

Vayse

My Load event is running 3 times.
I'm calling the form two different ways, and it always runs 3 times. As you
can imagine, this makes the load time slow!
Any help appreciated.
Vayse


Method 1:
Dim fAsset As New frmAsset

fAsset.AssetView = fAsset.ViewAsset
fAsset.AssetCode = stAssetCode
fAsset.Show()

Method 2:
Dim fAsset As New frmAsset

fAsset.AssetView = fAsset.ViewAll
fAsset.Show()



'********************************************************************
Private Sub frmAsset_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load, MyBase.Load, MyBase.Load

Me.ScheduleTableAdapter.Fill(Me.AssetsDataSet.Schedule)
Me.MethodsTableAdapter.Fill(Me.AssetsDataSet.Methods)
Me.SubCatgsTableAdapter.Fill(Me.AssetsDataSet.SubCatgs)
Me.StatusTableAdapter.Fill(Me.AssetsDataSet.Status)
Me.SuppliersTableAdapter.Fill(Me.AssetsDataSet.Suppliers)
Me.DeptsTableAdapter.Fill(Me.AssetsDataSet.Depts)
Me.CostCentresTableAdapter.Fill(Me.AssetsDataSet.CostCentres)

iOpened += 1
Try
Select Case iAssetView
Case conVIEW_ASSET
Debug.Print(iAssetView & ": One & " & iOpened)
Me.AssetsTableAdapter.FillByAsset(Me.AssetsDataSet.Assets,
stAssetCode)
Case conVIEW_SUB
Debug.Print(iAssetView & ": Sub & " & iOpened)
Me.AssetsTableAdapter.FillBySub(Me.AssetsDataSet.Assets,
lSubCatgID)
Case Else
Debug.Print(iAssetView & ": All & " & iOpened)
Me.AssetsTableAdapter.Fill(Me.AssetsDataSet.Assets)
End Select
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

bLoaded = True

End Sub
 
Vayse said:
Private Sub frmAsset_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load, MyBase.Load, MyBase.Load
Click to expand...


I draw your attention to the "Handles" part of your statement
 
And now that I review my mail, I see why!
For some reason, theres 3 mybase.load
Handles MyBase.Load, MyBase.Load, MyBase.Load

I wonder how I did that?
Vayse
 
Hi

I did not understanding your scenario very clear, what is your question now?
If you still have any concern, please feel free to post here.

Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.
 
Back
Top