Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click If Me.NewModbusSetting.DGV_AddVariable.RowCount <> Nothing Then Me.mytimer3.Interval = 1000 Me.mytimer3.Start() Else MsgBox("Definition of the modbus properties is currently not available." & vbNewLine & "Please define the properties in the Measurement window : Communication >> Modbus Properties") End If End Sub
Public Newdisplaymode As New Dmfform Private Sub DataDisplayModeMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataDisplayModeMenuItem.Click Newdisplaymode.Text = "Display Measurement: " & Me.Text Newdisplaymode.Show() End Sub
Public mpf(30) As Mpfform() Public num As Integer = 0 Private Sub NewMenuItem_File_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewMenuItem_File.Click num += 1 mpf(num) = New Mpfform() mpf(num).Text = "ModbusPoll:" & CStr(num) mbv.Text = "Modbuspoll Values:" & CStr(num) mpf(num).Name = "ModbusPollFormFull" & num mpf(num).TopLevel = False mpf(num).BringToFront() mpf(num).Show() mpf(num).Focus() End Sub
Click
AddHandle
MsgBox
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)