VGUI

AcronymDefinition
VGUIVideo Graphic User Interface
VGUIVersatile Graphical User Interface
References in periodicals archive ?
A continuacion se presenta una vision parcial de la clase controladora "ClienteVista" donde se puede observar la agregacion mencionada y el puntero a la GUI por medio del campo Vgui. Esta capa posee tres referencias, la primera hacia la capa estructura, la segunda hacia la capa logica y la tercera hacia la capa interfaces.
Public Class ClienteVista Implements ABMC_Interfaces.IABMC(Of Cliente) Private Vcliente As Cliente Private VclienteD As ClienteD Private Vgui As Form Sub New(pGUI As Form) Me.Cliente = New Cliente Me.ClienteD = New ClienteD Me.Vgui = pGUI End Sub Public Property Cliente() As Cliente Get Return Vcliente End Get Set(ByVal value As Cliente) Vcliente = value End Set End Property Private VclienteD As ClienteD Public Property ClienteD() As ClienteD Get Return VclienteD End Get Set(ByVal value As ClienteD) VclienteD = value End Set End Property End Class Veamos a continuacion el caso de alta del cliente.
Public Sub Alta(Optional ByRef QueObjeto As Cliente = Nothing) Implements IABMC(Of Cliente).Alta With Me.Cliente .Id = Integer.Parse(Vgui.Controls.Find("Id", False).First.Text) .Nombre = Vgui.Controls.Find("Nombre", False).First.Text .FechaAlta = Date.Parse(Vgui.Controls.Find("FechaAlta", False).First.Text) .Activo = IIf(Vgui.Controls.Find("Activo", False).First.ToString.Last = "1", True, False) .Telefonos.Clear() Do While IIf(MsgBox("?Desea ingresar un telefono?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes, True, False) .Telefonos.Add(New Telefono(Nothing, InputBox("Ingrese el numero de telefono"))) Loop 'Le envia un mensaje a Logica Me.ClienteD.Alta(Me.Cliente) End With End Sub CAPA INTERFACES