Macêdo

Ponha o seguinte código, e verá que ao ir digitando os números a mascara já vai aparecendo: (colocar propriedade maxlengt = 18) Private Sub Text1_Change() If Len(Text1) = 2 Then Text1 = Text1 + "." Text1.SelStart = 4 End If If Len(Text1) = 6 Then Text1 = Text1 + "." Text1.SelStart = 9 End If If Len(Text1) = 10 Then Text1 = Text1 + "/" Text1.SelStart = 12 End If If Len(Text1) = 15 Then Text1 = Text1 + "-" Text1.SelStart = 17 End If

Já sofri muito com isso, sabe o que tem que fazer? jogue esse maskedbox FORA! meu irmão, utilize uma textbox e ponha o seguinte código: Private Sub Text1_Change() If Len(Text1) = 2 Then Text1 = Text1 + "/" Text1.SelStart = 4 End If If Len(Text1) = 5 Then Text1 = Text1 + "/" Text1.SelStart = 7 End If End Sub a textbox aparecerá em braco e de acordo você for digitando a mascara vai aparecendo, faça o teste você não vai se arrepender. quando você clicar em inserir a textbox do campo data ficará limpa e ao rolar pelos registros mostrará a data referente a cada um, lembre de indicar as propriedades DATA SOURCE E DATA FIELD, configure a textbox direitinho com seu BD. Solução para todas as dores de cabeça dos Maskedbox, lembrando que pode-se fazer o mesmo com CPF, CNPJ, qualquer máscar que quiser.

Joga isso ai! Private Sub Combo1_Change() If Len(Combo1.Text) + 1 Then Combo1.Width = Combo1.Width + 90 End If End Sub Boa sorte, O Código que te enviei acima acrescenta ao combo o tamanho referente a um caracter sempre que qualquer caracter for pressionado no teclado, ou seja se você precisar apagar com backspace quando apertar backspace ele tambem irá acrescentar o tamanho de um caracter ao combo. você pode fazer de outras formas, por exemplo, se você quiser que a combo só aumente quando a tecla pressionada for alfabetica então use: Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then Combo1.Width = Combo1.Width + 90 End If End Sub assim quando você teclar backspace ou delete ou qualquer outra tecla o combo não acrescentará tamanho, só quando a tecla for uma LETRA. O segredo está no final do código: Combo1.Width = Combo1.Width + 90, é isto que informa o tamanho do combo por caracter.