Dario Sassi
21 lines
510 B
VB.net
21 lines
510 B
VB.net
Public Class btnExec
|
|
|
|
Private m_Controller As Controller
|
|
|
|
Sub New()
|
|
' Chiamata richiesta dalla finestra di progettazione.
|
|
InitializeComponent()
|
|
' Inizializzazione
|
|
Me.Text = "Exec"
|
|
End Sub
|
|
|
|
Public Sub SetController(ByRef controller As Controller)
|
|
m_Controller = controller
|
|
End Sub
|
|
|
|
Private Sub btnExec_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
|
|
m_Controller.Exec()
|
|
End Sub
|
|
|
|
End Class
|