Solved

Confused on which events to use for UserControl?

Posted on 2014-01-13
6
175 Views
Last Modified: 2014-01-19
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!
0
Comment
Question by:BlakeMcKenna
  • 4
  • 2
6 Comments
 
LVL 8

Expert Comment

by:Crashman
Comment Utility
You can use what event you wish,
you only must check if the activetab is tab1.
0
 

Author Comment

by:BlakeMcKenna
Comment Utility
Where should I be checking?  Once that has been determined...how do I get into the UC?
0
 
LVL 8

Expert Comment

by:Crashman
Comment Utility
can you explain a little more the situation, can you post the UC code?,

you can check here the tabcontrol events,
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:BlakeMcKenna
Comment Utility
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

0
 

Accepted Solution

by:
BlakeMcKenna earned 0 total points
Comment Utility
I actually got it working now but still need to walk thru it and get a good understanding.

Thanks!
0
 

Author Closing Comment

by:BlakeMcKenna
Comment Utility
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.
0

Featured Post

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

Well, all of us have seen the multiple EXCEL.EXE's in task manager that won't die even if you call the .close, .dispose methods. Try this method to kill any excels in memory. You can copy the kill function to create a check function and replace the …
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now