mariozneto

Não tem nada a ver!!! Posta para mim ver a parte do código que preenche o ListView. Falow... T+

Amigo, com textBox eu nunca ví isso!!! Você quer uma fonte que seja igual de relogio, é mais ou menos isso ??? Ou daria para fazer em um PictureBox ???? Falow... T+

Amigo poderia dar uma pouco mais de detalher na sua dúvida, assim fica mais facil eu lhe ajudar.... Falow... T+

É esquisito, pois era para ficar um do lado do outro!!! até nos teste que eu fiz ficaram um do lado do outro!!! Qualquer coisa pode postar.... Falow... T+

Tanto faz!!! não tem problema, esta propriedade pode mudar em tempo de execução!! Falow... T+

Bom dia Fyoda, vou tentar simplificar para você aprender, 1º Coloque um controle ImageList1. 2º Coloque alguns ícones neste ImageList1. 3º Até aqui o ImageList1 já está pronto. 4º Coloque um ListView1 no seu sistema. 5º Clique com o botão direito no seu ListView1 e clique em Propriedades. 6º Clique na Aba: Image Lists. 7º Selecione nos três combos ImageList1. 8º Clique na Aba: General. 9º Na propriedade View selecione: 0 - lvwicon. 10º Clique em Aplicar ou OK. 11º Coloque um Botão de comando em seu Sistema, 12º Dê 2 Cliques neste botão, e no evento Click coloque este código: Dim Item As ListItem Set Item = ListView1.ListItems.Add(, , "Item 1", 1, 1) Onde você está vendo "Item 1" é o nome que vai aparecer embaixo do ícone (igual no windows) Depois disso tem o número 1, que é o index da Imagem no ImageList1, por exemplo, se você tiver 10 ícones, o index vai de 0 a 9. o segundo 1, é quase a mesma coisa, mas vai mostrar o ícone pequenininho. Se ainda tiver alguma dúvida, pode postar, eu estou aqui para ajudar..... Falow... T+

Amigo ele não achou alguma livraria ou componente, verifique todos componentes que o sistema usa, e verifique se tem na máquina, quando você clica em Project -> references, Você vai ver as referências checadas, verifique se nenhuma está como missing. Qualquer dúvida é só postar novamente!!!! Falow... T+

Amigo, como o Graymalkin disse, sua consulta está errada!!! Private Sub Command3_Click() SQL = "select * from tabela1 where teste1 = text2.text" Data1.Refresh = SQL End Sub Você está usando o componente dataControl ???? se estiver seque o código correto abaixo: Private Sub Command3_Click() Data1.RecordSource = "select * from tabela1 where teste1 ='" & text1.Text & "'" Data1.Refresh If Data1.Recordset.RecordCount >= 1 Then MsgBox "Achou Registro!!!", , "Atenção!" Exit Sub Else MsgBox "Não Achou Registro!!!", , "Atenção!" Exit Sub End If End Sub Qualquer dúvida é só postar!!!! Falow... T+

Fiz correndo, desculpe se tiver algum erro: Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset 'código para incluir Private Sub cmdIncluir_Click() Set cnn = New ADODB.Connection cnn.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source =c:\banco.MDB" cnn.Open cnn.Execute "insert into clientes1 (telefone) values (" & MaskEdBox1.Text & ")" End Sub 'codigo para ler Private Sub cmdLer_Click() Set cnn = New ADODB.Connection cnn.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source =c:\banco.MDB" cnn.Open Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open "SELECT * FROM Sua_tabela", cnn, adOpenDynamic, adLockOptimistic If Not rs.EOF Then MaskEdBox1.Text = Format(rs.fields("Telefone"), "(##) ####-####") End If End Sub Private Sub Form_Load() MaskEdBox1.Mask = "(##) ####-####" End Sub qualquer dúvida me fale!!! Falow... T+

kuroi, Não seria a melhor forma para resolver o problema, a mesma mascara que tem no controle, basta informar ao banco de dados, assim poderá colocar os números no lugar certo!!! Falow... T+

Oi Isa, Você pode usar a Mascara de entrada do Próprio MsAccess!! Se mesmo assim não conseguir, me avisa, que eu faço um exemplo para você e lhe mando por e-mail Falow.... T+

O Mérito é todo do Graymalkin Falow... T+

Veja aqui um exemplo completo: http://www.macoratti.net/lstview2.htm Qualquer dúvida é só postar!!!! Falow... T+

Com certeza tem Amigo!!!! Precisando é só chamar!!!! Falow... T+

Até de tarde eu posto o código completo desta OCX!!! Falow... T+

Vou fazer, já já eu posto para você!!!! Falow... T+

Conseguiu resolver mestre ???? Falow... T+

Ramon, conseguiu resolver seu problema ???? Falow... T+

O Evento LostFocus só dispara quando você ir para outro componente!!! Para usar este evento, sem ter outro componente para receber o SetFocus, tente colocar assim no evento click que você disse que funciona: me.setfocus Falow... T+

Não sei se é isso que precisa, use o Inet: Private Sub Command1_Click() Text1.Text = Inet1.OpenURL("http://www.uol.com.br", icString) End Sub Falow... T+

Está faltando parte na função: Cancela_Agendamento Poste o resto da função!!!! Falow... T+

Poste seu código que você está usando e a string de Conexão!!!! Falow... T+

Amigo, bom dia!!!! Acho que você duplicou o Tópico, logo abaixo tem um tópico igualzinho!!!! Falow... T+

Você pode até usar o seu controle TextBox -> Nome As TextBox Public Function Maiuscula(Nome As TextBox) Nome.Text = UCase(Nome.Text) End Function Falow... T+

Bom, ai fica a minha dúvida, se é VB ou ASP (ou sei lá o que! rsrs). Falow... T+