Mitsubishi Electric MELSEC System Q Bedienungsanleitung Seite 464

Programmbeispiel für ein verbundenes Gerät
#End Region
#Region „Upgrade Wiz ard sup port code"
Pri vate Shared m_vb6FormDefInstance As Form1
Pri vate Shared m_InitializingDefInstance As Boolean
Pub lic Shared Prop erty DefInstance() As Form1
End Prop erty
#End Region
(Fort set zung auf der nächs ten Seite)
A - 74
'
'Form1
'
Me.AutoScaleBaseSize = New Sys tem.Draw ing.Size(5, 12)
Me.BackColor = Sys tem.Draw ing.SystemColors.Con trol
Me.ClientSize = New Sys tem.Draw ing.Size(280, 214)
Me.Con trols.Add(Me.Command5)
Me.Con trols.Add(Me.Command4)
Me.Con trols.Add(Me.Command3)
Me.Con trols.Add(Me.Command2)
Me.Con trols.Add(Me.Command1)
Me.Cur sor = Sys tem.Win dows.Forms.Cursors.Default
Me.Loca tion = New Sys tem.Draw ing.Point(329, 189)
Me.Name = „Form1"
Me.RightToLeft = Sys tem.Win dows.Forms.RightToLeft.No
Me.StartPosition = Sys tem.Win dows.Forms.FormStartPosition.Man ual
Me.Text = „Form1"
Me.ResumeLayout(False)
End Sub
Get
If m_vb6FormDefInstance Is Noth ing OrElse m_vb6FormDefInstance.IsDisposed Then
m_InitializingDefInstance = True
m_vb6FormDefInstance = New Form1()
m_InitializingDefInstance = False
End If
DefInstance = m_vb6FormDefInstance
End Get
Set
m_vb6FormDefInstance = Value
End Set
An hang
MITSUBISHI ELECTRIC