|
Public Class Server Private Sub Server_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Form1.txtServer.Text = "out.alice.it" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.txtServer.Text = ComboBox1.Text If ComboBox1.Text = "" Then MsgBox("Errore, server inserito non valido", MsgBoxStyle.Critical, ("SERVER INVALIDO")) Return End If Me.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form1.txtServer.Text = "out.alice.it" Me.Close() End Sub End Class
|
|
