root/scanies/trunk/frmnombre.class @ 440
| 128 | francis | ' Gambas class file
|
|
' This program IS free software; you can redistribute it AND/OR
|
|||
' modify it under the terms of the GNU General PUBLIC License AS
|
|||
' published by the Free Software Foundation; either version 2 of the
|
|||
' License, OR (at your option) any later version.
|
|||
'
|
|||
' This program IS distributed IN the hope that it will be useful, but
|
|||
' IS provided AS IS, WITHOUT ANY WARRANTY; without even the implied
|
|||
' warranty of MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND
|
|||
' NON-INFRINGEMENT. See the GNU General PUBLIC License FOR more details.
|
|||
'
|
|||
' You should READ the GNU General PUBLIC License
|
|||
' IF you have non, WRITE TO the Free Software
|
|||
' Foundation, INC., 59 Temple Place - Suite 330, Boston,
|
|||
' # MA 02111-1307, USA.
|
|||
' ----------------------------------------------------------------------------
|
|||
' ################################################
|
|||
' # file name : frmnmap.class
|
|||
' # created in project : scanies
|
|||
' # created by : Francisco Paniagua Sánchez
|
|||
' # mail : adminies.franciscodeorellana@edu.juntaextremadura.net
|
|||
' # created at : 12/11/2006
|
|||
' # last test with : gambas-2.7-1
|
|||
' ################################################
|
|||
PUBLIC pasardireccion AS String
|
|||
PUBLIC SUB Form_Open()
|
|||
ME.Center
|
|||
btnaceptar.Picture = Stock["16/apply"]
|
|||
btncancelar.Picture = Stock["16/cancel"]
|
|||
txtdireccion.text = pasardireccion
|
|||
txtdireccion.enabled = FALSE
|
|||
txtnombre.text = frmnmap.pasarnombre
|
|||
END
|
|||
PUBLIC SUB btncancelar_Click()
|
|||
ME.Close
|
|||
END
|
|||
PUBLIC SUB btnaceptar_Click()
|
|||
IF (txtnombre.text = "") THEN
|
|||
frmnmap.pasarnombre = "Dispositivo"
|
|||
ELSE
|
|||
frmnmap.pasarnombre = txtnombre.Text
|
|||
ENDIF
|
|||
ME.Close
|
|||
END
|