|
|
Postada em 01/04/2008 09:20 hs
Bom dia Srs.
Estou desenvolvendo uma aplicação simples, mas que há um trabalho com data.
Eu gostaria de criar um combo que ao clicar nele carregaria um calendário, onde o usuário informaria a data e a mesma seria gravada no combo ou num textbox.
Onde posso encontrar algo sobre isso, ou vcs tem algo a me passar.
Por outro lado se dor muito complicado, como posso deixar que o textbox, fique no formato de data: ex: ___/____/_______. Onde o usuário possa digitar apenas os campos. corretos.
É meu primeiro aplicativo com data e estou com algumas dúvidas.
NO aguardo, obrigado.
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 01/04/2008 09:50 hs
colega use o maskeditbox para formartar seu campo data. quanto a combo não entendi direito? |
|
TÓPICO EDITADO
|
|
|
|
Perci
|
MATÃO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/04/2008 09:56 hs
Olá, amigo. Eu utilizo uma função para deixar o TextBox com um efeito legal para digitar datas. Ao passo que você vai digitando (somente os números) as barras aparecem automaticamente. Tem a vantagem de ser campo texto sendo melhor para salvar na tabela. No evento Keypress do TextBox, coloque a linha: CampoData, TextBox1, KeyAscii ' função para formatar os campos de datas
Function CampoData(obj As Object, Keyasc As Integer)
If Not ((Keyasc >= Asc("0") And Keyasc <= Asc("9")) Or Keyasc = 8) Then
Keyasc = 0
Exit Function
End If
If Keyasc <> 8 Then
If Len(obj.Text) = 2 Or Len(obj.Text) = 5 Then
obj.Text = obj.Text + "/"
obj.SelStart = Len(obj.Text)
End If
End If
End Function
Teste e veja se é bom para seu projeto. |
|
|
|
Perci
|
MATÃO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/04/2008 10:16 hs
Esqueci de dizer: nas propriedades da TextBox, deixe o alinhamento à direita. |
|
|
|
|
|
Postada em 03/04/2008 08:10 hs
Perci, primeiro obrigado pela dica.
Usei função que me passou mas está dando um erro no evento key press:
Acho que falta alguma coisa na linha:
CampoData, TextBox1, KeyAscii...
Abaixo o erro:
Argument not optional.
Compile error:
Quando compilo ele me mostra o evento:
Private Sub txtDtEntrega_KeyPress(KeyAscii As Integer)
CampoData , txtDtEntrega, KeyAscii
Percebi que quando digito CampoData, no KeyPress.
Ele mostra: CampoData, (obj As Object, Keyasc As Integer).
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/04/2008 09:20 hs
só tira primeira , colega assim: CampoData TextBox1, KeyAscii |
|
|
|
