DamefrmDlg_InputBox

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:25 PM por David Miralpeix

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);
}