William Rodrigues

Ok Abraços, William Rodrigues

Opa !!! Retiro o que eu disse Acabei de reachar (<-- essa é nova hein ) um artigo do Luciano Correa, brother que me ajudou muito quando estava começando a mexer com VB, e ainda está no ar. Na verdade, esse artigo está dividido em algumas partes, porém, o que faz parte do Login seria apenas esses dois artigos. Login: Construção da Tabela no Banco de Dados Login: Construção do Formulário Acho que vai te ajudar cara Abraços, William Rodrigues

Brother... Já procurei um tuto legal que fale sobre isso mas não achei nada que servisse como exemplo. Mas, como já foi muito discutido isso aqui no fórum, recomendo que você faça uma busca por Login aqui no fórum que você achará vários tópicos que poderão te ajudar cara. Vou dar uma outra pesquisada e qualquer coisa volto a postar Abraços, William Rodrigues

Dê uma olhadinha neste exemplo: Ícone no ListView Ah... Faça uma busca antes de postar brother Abraços, William Rodrigues

Ah brother.... Dê uma olhadinha nesta função.... Num módulo: Public Function Extenso(ByVal Valor As _ Double, ByVal MoedaPlural As _ String, ByVal MoedaSingular As _ String) As String Dim StrValor As String, Negativo As Boolean Dim Buf As String, Parcial As Integer Dim Posicao As Integer, Unidades Dim Dezenas, Centenas, PotenciasSingular Dim PotenciasPlural Negativo = (Valor < 0) Valor = Abs(CDec(Valor)) If Valor Then Unidades = Array(vbNullString, "Um", "Dois", _ "Três", "Quatro", "Cinco", _ "Seis", "Sete", "Oito", "Nove", _ "Dez", "Onze", "Doze", "Treze", _ "Quatorze", "Quinze", "Dezesseis", _ "Dezessete", "Dezoito", "Dezenove") Dezenas = Array(vbNullString, vbNullString, _ "Vinte", "Trinta", "Quarenta", _ "Cinqüenta", "Sessenta", "Setenta", _ "Oitenta", "Noventa") Centenas = Array(vbNullString, "Cento", _ "Duzentos", "Trezentos", _ "Quatrocentos", "Quinhentos", _ "Seiscentos", "Setecentos", _ "Oitocentos", "Novecentos") PotenciasSingular = Array(vbNullString, " Mil", _ " Milhão", " Bilhão", _ " Trilhão", " Quatrilhão") PotenciasPlural = Array(vbNullString, " Mil", _ " Milhões", " Bilhões", _ " Trilhões", " Quatrilhões") StrValor = Left(Format(Valor, String(18, "0") & _ ".000"), 18) For Posicao = 1 To 18 Step 3 Parcial = Val(Mid(StrValor, Posicao, 3)) If Parcial Then If Parcial = 1 Then Buf = "Um" & PotenciasSingular((18 - _ Posicao) \ 3) ElseIf Parcial = 100 Then Buf = "Cem" & PotenciasSingular((18 - _ Posicao) \ 3) Else Buf = Centenas(Parcial \ 100) Parcial = Parcial Mod 100 If Parcial <> 0 And Buf <> vbNullString Then Buf = Buf & " e " End If If Parcial < 20 Then Buf = Buf & Unidades(Parcial) Else Buf = Buf & Dezenas(Parcial \ 10) Parcial = Parcial Mod 10 If Parcial <> 0 And Buf <> vbNullString Then Buf = Buf & " e " End If Buf = Buf & Unidades(Parcial) End If Buf = Buf & PotenciasPlural((18 - Posicao) \ 3) End If If Buf <> vbNullString Then If Extenso <> vbNullString Then Parcial = Val(Mid(StrValor, Posicao, 3)) If Posicao = 16 And (Parcial < 100 Or _ (Parcial Mod 100) = 0) Then Extenso = Extenso & " e " Else Extenso = Extenso & ", " End If End If Extenso = Extenso & Buf End If End If Next If Extenso <> vbNullString Then If Negativo Then Extenso = "Menos " & Extenso End If If Int(Valor) = 1 Then Extenso = Extenso & " " & MoedaSingular Else Extenso = Extenso & " " & MoedaPlural End If End If Parcial = Int((Valor - Int(Valor)) * _ 100 + 0.1) If Parcial Then Buf = Extenso(Parcial, "Centavos", _ "Centavo") If Extenso <> vbNullString Then Extenso = Extenso & " e " End If Extenso = Extenso & Buf End If End If End Function E para chamar a função use: Dim sRet As String Dim dValor As Double dValor = 1500.50 sRet = Extenso(dValor, "Reais", "Real") MsgBox sRet Testa aí e vê no que te ajuda Abraços, William Rodrigues

Antes de mais nada, seja bem vindo ao fórum... Aqui, somos uma Grande Família, onde todos ajudam no que pode Que isso brother... Não está não cara...Fique a vontade para postar, mandar PM e/ou EMail cara Não entendi muito bem o que você tentou dizer cara.... Seria que tipo de arquivo? Você quer executar (abrir) um arquivo de texto ? Você quer abrir um programa ? Bom, acho que seria um programa... Então aqui vai uma descrição do comando a ser usado: Shell "caminho\nome.exe", tipo_de_focus Exemplo para abrir a calculadora no Windows XP Professional: Shell "C:\Windows\System32\Calc.exe", vbNormalFocus Pelo que eu entendi, seria isso No seu caso, no lugar de colocar exatamente o caminho do Arquivo (C:\Windows\System32\Calc.exe), basta colocar o nome de sua txt Abraços, William Rodrigues

Boa ursolouco Apareça mais aqui no fórum brother... Abraços, William Rodrigues

Realmente muito bom !!! Abraços, William Rodrigues

Se procurar aqui no fórum achará posts que te ajudaram Abraços, William Rodrigues

Beleza então brother... Qualquer coisa é só entrar em contato (Post, EMail, Messenger, Tel, etc...) Abraços, William Rodrigues

Só para concluir.... Você pode declarar o primeiro modo parecido com o segundo. Veja: Dim motor As Integer, carro As Integer, pecas As Integer, quantidade As Integer Abraços, William Rodrigues

Também... Muito bem brother Abraços, William Rodrigues

Foi o que eu disse hehehehe Qualquer coisa Denis_Rave faça uma busca aqui no fórum que temos vários tópicos que fala desse assunto ! Abraços, William Rodrigues

Beleza cara... Te compreendemos... Mas æ...nada pessoal nem nada cara... Espero que entenda ! Abraços, William Rodrigues

Beleza.. Faça uma busca antes de postar brother...pois pode achar vários tópicos que pode te ajudar Abraços, William Rodrigues

Ok, vou explicar ! Também.... Vou dar alguns exemplos... Como o cara iria jogar contra o computador, o computador deveria haver um nome, tipo aleatório. O computador poderia desafia-lo para um novo desafio assim que perdesse, ou quando o computador ganhasse ele poderia chama-lo para um novo desafio com mensagens desafiadoras e assim por diante... Com relação ao visual dos controles, também colocando os melheros resultados (tempo) e assim vai... Acho que deu prá entender o que eu quis dizer né Hehehe... Ia ficar show hein hehehehe Abraços, William Rodrigues

heheheh só poderia ser né.... Abraços, William Rodrigues

Se conhecer mais algum e quiser postar brother, fique a vontade Abraços, William Rodrigues

Brother... estou meio que numa reunião agora e não posso demorar muito.... Aqui vai a minha contribuição: ListView com Ícones E para saber a quantidade de registro do RecordSet use a propriedade Count Abraços, William Rodrigues

lxl_igor_lxl Apaguei um dos seus posts, tinha dois iguais Abraços, William Rodrigues

Ainda não cara... Estive com alguns probleminhas no Paulo César (PC) Mas acredito que hoje testarei e posto aqui o resultado Vou aproveitar e ver esse tuto aí também ! Abraços, William Rodrigues

Você pode usar arquivos, do tipo binários, com a sua própria extensão...E tratá-los como arquivos de texto. As vezes usado para guardar poucos dados. Mas isso não vem a ser um Banco de Dados como disse o Graymalkin Abraços, William Rodrigues

Ótima função brother... Eu vi mas deixei queto...não quero comprar mal entendido com ninguém...deixa prá lá vai... Abraços, William Rodrigues

É.....pode ser.... Qualquer coisa tu pode fazer a migração de um para o outro se precisar ! Abraços, William Rodrigues

Beleza.. Qualquer coisa é só postar cara... Abraços, William Rodrigues