Libreria

Clase

Metodo

AhoraAsistentes

Asistentes

DamefrmDlg_InputBox


Implementación:


Código VB6:

 Public Function DamefrmDlg_InputBox() As Object
   Set DamefrmDlg_InputBox = New frmDlg_InputBox
 End Function


Código C#:

IfrmDlg_InputBox lFrm = (IfrmDlg_InputBox)gCn.AhoraProceso("DamefrmDlg_InputBox", out _);


Descripción:


Abre un formulario al estilo InputBox:


 Public Function CargaDevuelve(
   ByRef aVarDEVUELVE As Variant,
   aPrompt As String,
   Optional aTitulo,
   Optional aTipoPermitido As eTipos = eVariant,
   Optional aResIcon As Long = eicoahora)
   As Boolean

Código VB6:

Sub Main()

 frmAux.Descargar      'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.
 Dim lFrm
  
 Set lFrm = gCn.AhoraProceso("DamefrmDlg_InputBox", False)
 lRetorno = "texto por defecto"
 
If Not lFrm.CargaDevuelve(lRetorno,"Introduce el nombre de la tabla para el asistente:") Then
   Exit Sub
End If

gcn.obj.showmsgbox lRetorno 

  
End Sub


Código C#:

public void Main()
{
    IfrmDlg_InputBox lFrm = (IfrmDlg_InputBox)gCn.AhoraProceso("DamefrmDlg_InputBox", out _);
    Valor lRetorno = "Texto por defecto";

    if (!lFrm.CargaDevuelve(ref lRetorno, "Introduce el nombre de la tabla para el asistente:"))
    {
        return;
    }
    gCn.Obj.ShowMsgBox(lRetorno);
}