Imports System.Windows.Forms
Public Class TwoLabels
Private varValue1L As String
Private varValue1R As String
Private varValue2L As String
Private varValue2R As String
Private varValue3L As String
Private varValue3R As String[embed=file 1406767]
Property LeftText() As String
Get
Return lblLeftText.Text
End Get
Set(ByVal value As String)
varValue1L = value
lblLeftText.Text = varValue1L
End Set
End Property
Property RightText() As String
Get
Return lblRightText.Text
End Get
Set(ByVal value As String)
varValue1R = value
lblRightText.Text = varValue1R
End Set
End Property
Property LeftBindingText() As String
Get
Return varValue2L
End Get
Set(ByVal value As String)
varValue2L = value
lblLeftText.Text = varValue2L
End Set
End Property
Property RightBindingText() As String
Get
Return varValue2R
End Get
Set(ByVal value As String)
varValue2R = value
lblRightText.Text = varValue2R
End Set
End Property
Property LeftBindingSrc() As String
Get
Return varValue3L
End Get
Set(ByVal value As String)
varValue3L = value
lblLeftText.DataBindings.Add(New Binding("Text", Main.sData, varValue3L, True))
End Set
End Property
Property RightBindingSrc() As String
Get
Return varValue3R
End Get
Set(ByVal value As String)
varValue3R = value
lblRightText.DataBindings.Add(New Binding("Text", Main.sData, varValue3R, True))
End Set
End Property
End Class
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.