Public Class md
Public state As String
Public snoozeIconBtn As Button
Public lbl As Label
Public pb As PictureBox
Public stateLbl As Label
Public tooltip As ToolTip
Public hover As Label
Public c As Integer
Public sch(40) As timeSpan
Public sch_count As Integer
Public name As String
Public active As Boolean
Public alarmOn As Boolean
Public attentionOn As Boolean
Public Sensor As String
Public GetSensorsName As String
Public tr As Label
Public rec As String
Public btn As Button
Private RedFlag As Boolean
'public readonly property
Public Sub New(ByVal i As Integer)
Me.btn = Form1.fbtn(i) '>>>>>>if fbtn(i) buttons are alreadey there , i can figure it out but there are not yet
Me.lbl = Form1.lbl(i)
Me.stateLbl = Form1.state(i)
Me.tooltip = Form1.tooltip(i)
Me.hover = Form1.hover(i)
Me.c = i
Me.sch_count = 0
Me.snoozeIconBtn = Form1.snoozeIconBtn(i)
Me.pb = Form1.Picturebox(i)
Me.Sensor = Form1.sensor(i)
Me.tr = Form1.act(i)
End Sub
Public Sub setAlarm(ByVal val As Boolean)
If val = True Then
RedFlag = True
Me.btn.BackColor = Color.Red '>>>> here i got the exception !!!!
Me.alarmOn = True
' rec = tr.Text
GetSensorsName = Me.btn.Text
Else
RedFlag = False
Me.btn.BackColor = Color.Lime
Me.alarmOn = False
' rec = tr.Text
GetSensorsName = Me.btn.Text
End If
End Sub
'in my form
Public Class Form1
Public md(NumberOfSensors) As md '>>>>>> NumberOfSensors is a public integer variable
Public fbtn(NumberOfSensors) As Button
Public snoozeIconBtn(NumberOfSensors) As Button
Public lbl(NumberOfSensors) As Label
Public Picturebox(NumberOfSensors) As PictureBox
Public state(NumberOfSensors) As Label
Public tooltip(NumberOfSensors) As ToolTip
Public hover(NumberOfSensors) As Label
Public sensor(NumberOfSensors) As String
Public act(NumberOfSensors) As Label
Private Sub initMdArray() 'this sub is set to form load event
For j = 0 To NumberOfSensors - 1
'here i initiallize also the other controls
btn(j) = Me.fbtn(j + 1)
md(j) = New md(j)
Next
End Sub
'form1 create buttons
For i As Integer = 0 To Rcount - 1
Button.Name = "Button" & i + 1
Button.Text = ds.Tables(0).Rows(i).Item(1)
Button.Dock = DockStyle.Fill
Button.FlatStyle = FlatStyle.Flat
Button.Cursor = Cursors.Hand
Button.BackColor = Color.White
fbtn(i) = Button '<<<<<< is this correct ??????
dynamicTableLayoutPanel.Controls.Add(Button, 0, i)
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE