Solved

Confused on which events to use for UserControl?

Posted on 2014-01-13
6
180 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
6 Comments
 
LVL 8

Expert Comment

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

Author Comment

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

Expert Comment

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

you can check here the tabcontrol events,
0
PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

 

Author Comment

by:BlakeMcKenna
ID: 39777838
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
ID: 39779325
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
ID: 39791915
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

SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…

738 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