Emmanuele Sassi
25 lines
639 B
VB.net
25 lines
639 B
VB.net
Public Class rbtnHiddenLine
|
|
|
|
Private m_scene As Scene
|
|
|
|
Sub New()
|
|
|
|
' Chiamata richiesta dalla finestra di progettazione.
|
|
InitializeComponent()
|
|
|
|
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
|
|
Me.Appearance = Windows.Forms.Appearance.Button
|
|
Me.Text = "HiddenLine"
|
|
|
|
End Sub
|
|
|
|
Public Sub SetScene(ByRef scene As Scene)
|
|
m_scene = scene
|
|
End Sub
|
|
|
|
Private Sub rbtnHiddenLine_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
|
|
m_scene.HiddenLine()
|
|
End Sub
|
|
|
|
End Class
|