Calling SelectedIndexCh anged from initial comboBox fill

[tshad]

In my VS 2003 Windows Forms page, when I initially fill my ComboBox
(SystemList), it goes to the SelectedIndexCh anged event which calls the
Loademails() function. I then call it again in the Form1Load function.

How do I get it not to call it in the SelectedIndexCh anged from the
Form1Load function? Normally, I want it to call it but not when I initally
fill the ComboBox.

*************** *************** *************** ************
Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Call LoadSystems()
Call Loademails(0)
End Sub

Private Sub LoadSystems()
Dim da As New SqlDataAdapter( "COM_GET_SYSTEM S_SP", dbConn)
Dim ds As New DataSet
Dim dr As DataRow

da.Fill(ds, "Systems")
dr = ds.Tables("Syst ems").NewRow
dr(0) = 0
dr(1) = "All Emails"
ds.Tables("Syst ems").Rows.Inse rtAt(dr, 0)
SystemList.Valu eMember = "id"
SystemList.Disp layMember = "name"
SystemList.Data Source = ds.Tables("Syst ems")
End Sub

Private Sub Loademails(ByVa l systemID As Integer)
Dim da As New SqlDataAdapter( "GetEmailMessag es", dbConn)
da.SelectComman d.CommandType = CommandType.Sto redProcedure
With da.SelectComman d.Parameters
If systemID <0 Then .Add("@SystemID ", SqlDbType.Int). Value =
systemID
End With
Try
If Not ds.Tables("Emai ls") Is Nothing Then
ds.Tables.Remov e("Emails")
da.Fill(ds, "Emails")
EmailDataGrid.D ataSource = ds.Tables("Emai ls")
' EmailDataGrid.A llowSorting = False
EmailDataGrid.R eadOnly = True
Catch ex As Exception
Dim temp As String = ex.Message
End Try
End Sub

Private Sub SystemList_Sele ctedIndexChange d(ByVal sender As
System.Object, _
ByVal e As System.EventArg s) Handles
SystemList.Sele ctedIndexChange d
Loademails(send er.SelectedValu e)
End Sub
*************** *************** *************** *************** **********

Thanks,

Tom

[=?Utf-8?B?RGVubmlz?=]

Either;

Use RemoveHandler and AddHandler to turn the remove the event handler for
SelectIndexChan ged while you do your thing in the load event then add the
event handler back in before you exit the load event.

Use a form scoped variable to detect when the load event is being processed.
--
Dennis in Houston
"tshad" wrote:

In my VS 2003 Windows Forms page, when I initially fill my ComboBox
(SystemList), it goes to the SelectedIndexCh anged event which calls the
Loademails() function. I then call it again in the Form1Load function.

How do I get it not to call it in the SelectedIndexCh anged from the
Form1Load function? Normally, I want it to call it but not when I initally
fill the ComboBox.

*************** *************** *************** ************
Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Call LoadSystems()
Call Loademails(0)
End Sub

Private Sub LoadSystems()
Dim da As New SqlDataAdapter( "COM_GET_SYSTEM S_SP", dbConn)
Dim ds As New DataSet
Dim dr As DataRow

da.Fill(ds, "Systems")
dr = ds.Tables("Syst ems").NewRow
dr(0) = 0
dr(1) = "All Emails"
ds.Tables("Syst ems").Rows.Inse rtAt(dr, 0)
SystemList.Valu eMember = "id"
SystemList.Disp layMember = "name"
SystemList.Data Source = ds.Tables("Syst ems")
End Sub

Private Sub Loademails(ByVa l systemID As Integer)
Dim da As New SqlDataAdapter( "GetEmailMessag es", dbConn)
da.SelectComman d.CommandType = CommandType.Sto redProcedure
With da.SelectComman d.Parameters
If systemID <0 Then .Add("@SystemID ", SqlDbType.Int). Value =
systemID
End With
Try
If Not ds.Tables("Emai ls") Is Nothing Then
ds.Tables.Remov e("Emails")
da.Fill(ds, "Emails")
EmailDataGrid.D ataSource = ds.Tables("Emai ls")
' EmailDataGrid.A llowSorting = False
EmailDataGrid.R eadOnly = True
Catch ex As Exception
Dim temp As String = ex.Message
End Try
End Sub

Private Sub SystemList_Sele ctedIndexChange d(ByVal sender As
System.Object, _
ByVal e As System.EventArg s) Handles
SystemList.Sele ctedIndexChange d
Loademails(send er.SelectedValu e)
End Sub
*************** *************** *************** *************** **********

Thanks,

Tom

[Harry]

"tshad" <tf*@dslextreme .comwrote in message
news:%2******** ********@TK2MSF TNGP03.phx.gbl. ..

In my VS 2003 Windows Forms page, when I initially fill my ComboBox
(SystemList), it goes to the SelectedIndexCh anged event which calls the
Loademails() function. I then call it again in the Form1Load function.

How do I get it not to call it in the SelectedIndexCh anged from the
Form1Load function? Normally, I want it to call it but not when I
initally fill the ComboBox.

*************** *************** *************** ************
Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Call LoadSystems()
Call Loademails(0)
End Sub

Private Sub LoadSystems()
Dim da As New SqlDataAdapter( "COM_GET_SYSTEM S_SP", dbConn)
Dim ds As New DataSet
Dim dr As DataRow

da.Fill(ds, "Systems")
dr = ds.Tables("Syst ems").NewRow
dr(0) = 0
dr(1) = "All Emails"
ds.Tables("Syst ems").Rows.Inse rtAt(dr, 0)
SystemList.Valu eMember = "id"
SystemList.Disp layMember = "name"
SystemList.Data Source = ds.Tables("Syst ems")
End Sub

Private Sub Loademails(ByVa l systemID As Integer)
Dim da As New SqlDataAdapter( "GetEmailMessag es", dbConn)
da.SelectComman d.CommandType = CommandType.Sto redProcedure
With da.SelectComman d.Parameters
If systemID <0 Then .Add("@SystemID ", SqlDbType.Int). Value =
systemID
End With
Try
If Not ds.Tables("Emai ls") Is Nothing Then
ds.Tables.Remov e("Emails")
da.Fill(ds, "Emails")
EmailDataGrid.D ataSource = ds.Tables("Emai ls")
' EmailDataGrid.A llowSorting = False
EmailDataGrid.R eadOnly = True
Catch ex As Exception
Dim temp As String = ex.Message
End Try
End Sub

Private Sub SystemList_Sele ctedIndexChange d(ByVal sender As
System.Object, _
ByVal e As System.EventArg s) Handles
SystemList.Sele ctedIndexChange d
Loademails(send er.SelectedValu e)
End Sub
*************** *************** *************** *************** **********

Thanks,

Tom

Maybe I am an old dude with this, but in VB6 I always used a "loading"
variable to stop events firing until the load finished. In VB.Net 2005, I
still use the same construct, eg

_loading = true 'module level var

With MyCombo
.Datasource = MyObject.GetDat a()
.DisplayValue = "Descriptio n"
.ValueMember = "Pointer"
.SelectedIndex = -1
_loading = false
If .Items.Count 0 Then
.SelectedIndex = 0 'or whatever you want it to be
End if
End With

and in the cbo.SelectedInd exChanged event add code something like:

If Not _loading AndAlso (cbo.SelectedIn dex -1) Then
'do whatever
End If

As I say, old dudes code, but it works real fine for me. Maybe someone can
suggest a better way to do this?

Harry