asked on

Confused on which events to use for UserControl?

I have a Form that contains 2 tabs from a TabControl. On one of these tabs I have a User Control. What I'm trying to do is when the tab with the UC is the current tab, an event in the UC needs to fire so it can determine how to set certain properties of the UC and I'm not sure which event to use.

Thanks!

Haver Ramirez

You can use what event you wish,
you only must check if the activetab is tab1.

BlakeMcKenna

ASKER

Where should I be checking? Once that has been determined...how do I get into the UC?

Haver Ramirez

can you explain a little more the situation, can you post the UC code?,

you can check here the tabcontrol events,

BlakeMcKenna

ASKER

Here are the UC Events & Code. It's pretty simple really.

Imports System.IO

Public Class FileIndicator

    Private BH As New BusinessLayer.CalBusiness
    Private EH As New ErrorHandling.ErrorHandler

    Private ID As Integer = 0

    Private blnLoaded As Boolean = False

    Private ofd As New OpenFileDialog
    '
    '
    '
    Private Sub LoadTheComboBox()
        Dim dt As New DataTable

        Try
            dt = BL.GetEquipCerts(gstrID, gEquipCode)

            If Not dt Is Nothing Then
                If dt.Rows.Count > 0 Then
                    cmbHistory.DataSource = Nothing
                    cmbHistory.DataSource = dt
                    cmbHistory.DisplayMember = "calDate"
                    cmbHistory.ValueMember = "id"
                    cmbHistory.SelectedIndex = -1
                End If
            End If

        Catch ex As Exception
            EH.strRetVal = "FileIndicator/LoadTheComboBox() - " & ex.Message & "~E"
        End Try
    End Sub
    '
    '
    '
    Private Sub FileIndicator_Load(sender As Object, e As EventArgs) Handles Me.Load
        Try
            cmbHistory.Visible = True
            blnLoaded = True

        Catch ex As Exception
            EH.strRetVal = "FileIndicator/FileIndicator_Load() - " & ex.Message & "~E"
        End Try
    End Sub
    '
    '
    '
    Private Sub btnAttachFile_Click(sender As Object, e As EventArgs) Handles btnAttachFile.Click
        Try
            Dim ofd As New OpenFileDialog
            Dim strFileName As String = ""

            EH.strRetVal = ""

            ofd.ShowDialog()

            If ofd.FileName.Length > 0 Then
                gfileByte = Nothing
                gfileByte = System.IO.File.ReadAllBytes(ofd.FileName)
            End If

        Catch ex As Exception
            EH.strRetVal = "FileIndicator/btnAttachFile_Click() - " & ex.Message & "~E"
        End Try
    End Sub
    '
    '
    '
    Private Sub cmbHistory_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbHistory.SelectedIndexChanged
        Try
            If blnLoaded Then
                If cmbHistory.SelectedIndex > -1 Then
                    ID = CType(cmbHistory.SelectedValue, Integer)
                End If
            End If

        Catch ex As Exception
            EH.strRetVal = "FileIndicator/cmbHistory_SelectedIndexChanged() - " & ex.Message & "~E"
        End Try
    End Sub
    '
    '
    '
    Private Sub OpenCertificate()
        Try

        Catch ex As Exception
            EH.strRetVal = "FileIndicator/OpenCertificate() - " & ex.Message & "~E"
        End Try
    End Sub
    '
    '
    '
    Private Sub FileIndicator_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
        Try
            lblHistory.Visible = gblnAttachmentsExist
            cmbHistory.Visible = gblnAttachmentsExist

            If cmbHistory.Visible = True Then
                RectangleShape1.FillColor = Color.LimeGreen
                Label1.Text = "Attachments Exist"
                LoadTheComboBox()
            Else
                Label1.Text = "No Attachments"
                RectangleShape1.FillColor = Color.Red
            End If

        Catch ex As Exception
            EH.strRetVal = "FileIndicator_VisibleChanged() - " & ex.Message & "~E"
        End Try
    End Sub
End Class

Open in new window

ASKER CERTIFIED SOLUTION

BlakeMcKenna

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

BlakeMcKenna

ASKER

I got it working somehow. Not sure exactly how but I need to walk thru the code and get a better understanding of what happens under the circumstances.