|
I would like to automatically raise an existing event based on a value that is passed into a form. Note the following code:
Private strAutomatedMenuItem As String = strMenuItem
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cursor.Current = System.Windows.Forms.Cursors.AppStarting() StatusBar1.Panels(0).Text = "Ready..." StatusBar1.Panels(1).Text = strSelectedDataSource frmMain.ConnectionString = frmSignon.strDataSource
Select Case strAutomatedMenuItem Case "A" 'want to raise the below event (mnuOnlineItemConnectionNotice_Click). How do I automate this??? Case "N"
Case "F"
End Select
End Sub
Private Sub mnuOnlineItemConnectionNotice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOnlineItemConnectionNotice.Click
Dim frmObject As New frmConnectionNotice() frmObject.MdiParent = Me StatusBar1.Text = "Processing Online Connection Notice functionality..." frmObject.Show()
End Sub
|