CAMPO MASK EDIT

COSTELINHA 02/10/2006 09:46:02
#174927
Bom dia, estou criando uma dll para cadastros e tal, e criei uma funcao pra limpar os campos do formulario. Até ai tudo bem, nesta funcao, criei uma variavel campo do tipo object.

Quando eu faco isso:

if typeof campo is textbox , ele aceita

mas quando e maskeditbox ele nao aceita, que tipo de variavel devo criar pra ele aceitar o mask?

Valeu
USUARIO.EXCLUIDOS 02/10/2006 10:08:29
#174930
***use em um modulo:
Public Sub Cls_Field(frm As Form)

   On Error GoTo trataerro:
   Dim i As Integer
   Dim MSKTEMP As String
   For i = 0 To frm.Controls.Count - 1
        If TypeOf frm.Controls(i) Is TextBox Then
            frm.Controls(i).Text = ""
        ElseIf TypeOf frm.Controls(i) Is ComboBox Then
            frm.Controls(i).Text = ""
        ElseIf TypeOf frm.Controls(i) Is MaskEdBox Then
            frm.Controls(i).PromptInclude = False
            frm.Controls(i).Text = Empty
            frm.Controls(i).PromptInclude = True
        ElseIf TypeOf frm.Controls(i) Is CheckBox Then
            frm.Controls(i).Value = 0
        End If
    Next i
    
trataerro:
    MsgBox "Aconteceu o seguinte erro " & Err.Number
End Sub


***use em um form:
Call Cls_Field(Me)
COSTELINHA 02/10/2006 13:43:25
#175011
Nao tem como eu colocar em uma dll nao?
USUARIO.EXCLUIDOS 02/10/2006 14:17:10
#175026
colocar o que em uma dll ?
USUARIO.EXCLUIDOS 02/10/2006 14:18:10
#175028
Tem sim cara... a lógica é a mesma...

a única coisa que vc vai precisar do código dele é essa parte do If:

If TypeOf frm.Controls(i) Is MaskEdBox Then



Coloque e faça a adaptação no código.
USUARIO.EXCLUIDOS 02/10/2006 14:24:39
#175030
Pra por na DLL ficaria:

Public Sub Cls_Field(frm As Object)

   On Error GoTo trataerro:
   Dim i As Integer
   Dim MSKTEMP As String
   For i = 0 To frm.Controls.Count - 1
        If TypeOf frm.Controls(i) Is TextBox Then
            frm.Controls(i).Text = ""
        ElseIf TypeOf frm.Controls(i) Is ComboBox Then
            frm.Controls(i).Text = ""
        ElseIf TypeOf frm.Controls(i) Is MaskEdBox Then
            frm.Controls(i).PromptInclude = False
            frm.Controls(i).Text = Empty
            frm.Controls(i).PromptInclude = True
        ElseIf TypeOf frm.Controls(i) Is CheckBox Then
            frm.Controls(i).Value = 0
        End If
    Next i
   
trataerro:
    MsgBox "Aconteceu o seguinte erro " & Err.Number
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar