mariozneto

Apenas isto resolve: Dim i As Integer For i = 0 To 2 Label(i) = Empty Next Falow... T+

Puxa é mesmo, tinha me esquecido disto!!! Desculpe! Falow... T+

Amigo, Bom dia!!!! Porque você não deixa os dois ??? Falow... T+

Puxa vida!! eu também não conhecia, será que é no vb.net ??? ramon, Que título hein.... Para você mudar a cor deste componente, você terá que usar API ou usar um Skin!!! Falow... T+

Amigo, tenta fazer assim: Private Sub ListView_Click() retval = Excluir(ListView.SelectedItem) End Sub Private Function Excluir(valor As String) Dim SQL As String SQL = "Delete * from Agendar_Consulta where hora ='" & valor & "'" 'aqui vai os códigos para executar a linha SQL End Function Falow... T+

OK!! Obrigado!!! Falow... T+

o q é isso? Bom dia!!! São Botões Gráficos com vários temas de sistemas operacionais, com ele você consegue deixar o botão invisivel e até usar ele mesmo invisivel!! Funciona Também!!! Falow... T+

Amigo, você quer que a senha apareça na proxima vez que iniciar o programa ?? Explica de novo para mim, que eu não entendi!!! Falow... T+

Como o Post é de 26/01 deste ano, vou lhe fazer uma pergunta: Já conseguiu resolver o seu problema ???? Se ainda não posta aqui que eu lhe ajudo!!!! Falow... T+

Todos Poderão Participar ? Obrigado! Falow... T+

Legal

Falow Amigo!!!! Precisando é só postar!!!! Falow... T+

OK!!! Falow... T+

Amigo, isto você vai ver no menu que você clicar: Por exemplo, este é um dos menus: Private Sub mnuexcluir_Click() MsgBox "Você Clicou em Excluir" End Sub este é o outro: Private Sub mnutransferir_Click() MsgBox "Você Clicou em Transferir" End Sub Faow... T+

Amigo, qual seria o motivo de querer converter para OCX ?, a execução do seu sistemas ficará mais rápida com o uso de Users Controls. Mas se mesmo assim você quiser converter, me desculpe, mas eu não sei como se faz isso não!!! Falow... T+

OK!!!! Mas se precisar de ajuda me fala!!!! Falow... T+

Veja se é isso que precisa: Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then MsgBox "1º Coluna:" & ListView1.SelectedItem.Text & " 2º Coluna: " & ListView1.SelectedItem.SubItems(1) & " 3º Coluna: " & ListView1.SelectedItem.SubItems(2) End If End Sub Falow... T+

Me desculpe amigo, mas existe muita coisa que você não poderá fazer, colocando uma data em um Campo texto!!!! Porque você não aprende a trabalhar com data ???? Toda dúvida que você tiver, eu me comprometo a lhe ensinar, tenha certeza que você vai gostar!!!! Falow... T+

Amigo, me diga uma coisa, Porque quer identificar a segunda coluna ???? se pode fazer tudo pela primeira ???? Falow... T+

Mas o Campo no seu Banco de Dados estava com tipo "Date" ???? Falow... T+

Amigo, me diga qual tipo de campo é data, pois quando usamos datas, usamos # para a pesquisa!!! Falow... T+

Tenta dar um Kill na memória e nas variaveis, e verifique também, que parte da memória está usando!!!! Falow... T+

Deixa eu ver se eu entendi, você quer fazer um cadastro, e depois que gravar ele continue no mesmo item gravado, é isso ???? se não for, dê um pouco mais de detalhes.... Obrigado!!! Falow... T+

Você pode usar o Botão Camaleão, se quiser eu lhe mando o Código!!! Falow... T+

O que vem a ser isso ???? Falow... T+