Libreria

Clase

Metodo

AhoraAsistentes

Asistentes

DamefrmDlg_InputBox


Implementación:


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


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 

Ejemplo:

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