I howver have a bit of truble accessing it from another event.
on the SalesOrderReadEnd sub - when I invoke the line DirectCast - I get the error "Object Reference Not set to an instance... "
I want to change the lable text and color
the bit fo code that fails is
- Code: Select all
Dim lbl As Infragistics.Win.Misc.UltraLabel = DirectCast(_SalesOrderForm.GenericObjectCollection.Item("lblAlert").Object , Infragistics.Win.Misc.UltraLabel)
the entire code is below.
- Code: Select all
Public Sub Setup(ByVal JiwaForm As JiwaApplication.IJiwaForm, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaFormPlugin.Setup
If TypeOf JiwaForm Is JiwaSalesUI.SalesOrder.SalesOrderEntryForm Then
Dim SalesOrdForm As JiwaSalesUI.SalesOrder.SalesOrderEntryForm = DirectCast(JiwaForm, JiwaApplication.IJiwaForm)
_SalesOrderForm = SalesOrdForm
AddHandler SalesOrdForm.SalesOrder.ReadEnd , AddressOf SalesOrderReadEnd
SalesOrderFormLoad(SalesOrdForm, New System.EventArgs)
End If
End Sub
Private Sub SalesOrderFormLoad(ByRef sender As Object , e As System.EventArgs )
If TypeOf(sender) Is JiwaFinancials.Jiwa.JiwaSalesUI.SalesOrder.SalesOrderEntryForm Then
Dim oSalesOrder As JiwaFinancials.Jiwa.JiwaSalesUI.SalesOrder.SalesOrderEntryForm = DirectCast(sender, JiwaFinancials.Jiwa.JiwaSalesUI.SalesOrder.SalesOrderEntryForm)
'Create a lable control and set it up
Dim lblAlert As New Infragistics.Win.Misc.UltraLabel
lblAlert.Name = "lblAlert"
lblAlert.Text = "*** No Alerts ***"
lblAlert.Width = 130
lblAlert.Appearance.TextVAlign = Infragistics.Win.VAlign.Middle
lblAlert.ForeColor = System.Drawing.Color.Black ' vbBack
'Add it to the form
oSalesOrder.Controls.Add(lblAlert) 'A neat way to figure out the parent control (HeaderUltraExpandableGroupBoxPanel) is to open the purhcase order form, then go into permission mode. Clicking on the form then reveals the underlying control names on the Set Permissions dialog.
lblAlert.Location = New System.Drawing.Point (60 , 50 )
End If
End Sub
Sub SalesOrderReadEnd (ByVal sender As Object ,e As System.EventArgs )
Try
Dim salesOrder As JiwaSales.SalesOrder.SalesOrder = DirectCast( sender , JiwaSales.SalesOrder.SalesOrder)
msgbox ( " sales order read completd - ReadEnd ")
msgbox (" before direct cast ")
a
Dim lbl As Infragistics.Win.Misc.UltraLabel = DirectCast(_SalesOrderForm.GenericObjectCollection.Item("lblAlert").Object , Infragistics.Win.Misc.UltraLabel)
msgbox (" before lable text ")
lbl.Text = "new alert now"
msgbox (" before color ")
lbl.BackColor = System.Drawing.Color.Red
'_SalesOrderForm.GenericObjectCollection.("lblAlert").BackColor = System.Drawing.Color.Red
Catch ex As Exception
MessageBox.Show( ex.Message)
End Try
End Sub
