I can’t seem to find the right argument to make the high lighted call work. TIA JP
Code:Private Sub FindButton_Click(sender As Object, e As EventArgs) Handles FindButton.Click ' Check fo a non blank SearchForTextBox then go to RadioButtons_CheckedChange(ByVal If SearchForTextBox.Text <> "" Then RadioButtons_CheckedChange(???????????) Else MessageBox.Show("Please enter search argument", "Input Check!", MessageBoxButtons.OK, MessageBoxIcon.Question) SearchForTextBox.Focus() End If End Sub Private Sub RadioButtons_CheckedChange(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles StateNameRadioButton.CheckedChanged, StdAbrvRadioButton.CheckedChanged, PostalAbrvRadioButton.CheckedChanged, PostalAbrvRadioButton.CheckedChanged Dim SelectedRadioButton As RadioButton SelectedRadioButton = CType(sender, RadioButton) Select Case SelectedRadioButton.Name Case "StateNameRadioButton" SearchByName() Case "StateAbrvRadioButton" SearchbyStdAbrv() Case "StateAbrvRadioButton" SearchByPostal() Case "StateAbrvRadioButton" SearchByCapitalCity() End Select End Sub




Reply With Quote
