Matheus-vb6

Para dar foco no botão utilize esse codigo na segunda caixa de texto: Private Sub Text2_Change() If Len(Text2.Text) = Text2.MaxLength Then Command1.SetFocus End If End Sub Testa ai, aqui deu certo :D Boa sorte!

isso de instalar driver seria no pc que a impressora está conectada ou em outros da rede? de qualque forma, se for no q ela esta plugada, tente trocar a porta, se for em outro pc da rede, não há necessidade de por drivers!

cada console tem seu probleminha não é? kkk x-box dizem q queima rapido, eu particulamente não acho, quanto ao projeto natal ainda tem muitas falhas, movimentos rapidos não são pegos, se alguém passa na frente o foco muda, mas acredito que vão corrigir! ps3 só roda jogo original, e mesmo destravando a midia blue-ray virgem sai na faixa de 70 reais +- :S wii possui suas malditas atualizações que insistem em não rodar alguns jogos kkk Acho q o melhor video game até hoje foi o ps2, nunca me deixou na mão :D

Valeu Kuroi! Boa sorte Frata

aaa não sabia disso :D quanto ao tab você pode configurar os tabindex text1.tabindex=1 text2.tabindex=2 Kuroi, sabe dizer qual o ascii da tecla tab?

e como da não é? :D mas realmente, tem um espaço no hd como "backup", quando você recupera o arquivo ele não esta la ainda, esta no backup porem registrado onde foi apagado! Ccleaner e nitropc ajudam bastante nisso!

Fiz um teste aki usando seu codigo[Kuroi] (a proposito esqueceu o end if :D) e não precisei mudar nada do keypreview, apenas utilize o codigo: Private Sub Text1_Change() If Len(Text1.Text) = Text1.MaxLength Then Text2.SetFocus End If End Sub Mas também funcionou dessa forma! Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Len(Text1.Text) = Text1.MaxLength Then Text2.SetFocus End If End Sub Abraços, duvida poste!

aaa sim, eu fiz um programa de calcular imc anti-ontem... eu usei o format, no caso você faz: Dim texto,arredondamento as integer texto = text1.text arredondamento=Round(texto,2) select case arredondamento case 30 <bloco de comandos> case is > 30 <bloco de comandos> case is < 30 <bloco de comandos> end select ou Dim texto,arredondamento as integer texto = text1.text arredondamento=Format(texto,"0.00") select case arredondamento case 30 <bloco de comandos> case is > 30 <bloco de comandos> case is < 30 <bloco de comandos> end select Quanto ao is não tinha prestado atenção na existencia dele kkk, não gosto de usar case, prefiro if. Onde ta =30, você pode usar simplesmente case 30 Abraços, duvidas poste :D

kpoakspkas, nem me fale, comprei meu wii numa loja mesmo, me arrependi até a alma, 1600, 800 na santa ifigenia, paguei o dobro!! q revolta sapkoskop

É isso ai, podiam (mos) fazer uma sugestão e estimulação dos membros a somente utilizar se realmente não souber! ou com um limite! edit-- um exemplo de utilização do mova-me: -a pessoa posta um script que não reconhece, ou não tem certeza! -começou agora em vb e não sabe se é considerado o vb.net... Podiam também propor colocar em quote o motivo: exemplo:

Aperte a tecla window* + p, abrira um controle de monitor, clique em duplicar!, se não der certo va nas propriedades do video e veja se os 2 monitores estão sendo reconhecidos! *window=tecla entre o alt e o ctrl, em computador positivo tem um jóia! Abraços, qualque coisa poste!

Em casa tenho 1 Desktop com win7, 1 note com 7 e outro note com xp. A impressora é ligada no desktop, tente no desktop ver se ela esta compartilhada, depois va no outro pc, abra o Word por exemplo, clique em imprimir e ve se ta la /ip_da_maquina/nome_da_impressora, e sendo hp, tera um V dizendo que ela está conectada! Abraços e boa sorte! ---60 posts '.'---

Não sei qnt ao xp, mas no win7 tem um recurso que você decide quanto você quer deixar reservado no HD para armazenamento binário, no caso, você apago alguma coisa, ele ainda fica registrado em binário, podendo restaurar com o Recuva, por exemplo... Vai ver foi isso que aconteceu com você! Isso é uma boa explicação o porque do seu hd ser de 80 e quando você clica com o direito mostra 76... meu é de 320, mostra 318 e uns quebradinhos! ----edit qnt a comprar dvds, sugiro a você comprar um HD externo, passar os arquivos para ele e liberar o principal, ou se não, faça que nem eu, meu HD antigo tem 80gb, começou a lotar comprei um de 320, agora to com 2 hds na maquina, totalizando 400! Abraços

é o q eu falei em relação ao mova-me, na pressa ou até pra quem não sabe... e qnt ao 2 eu apoio também a orientação dos membros a não abandonarem tópicos criados por eles mesmos, e a incentivação e informação dele muitos aprenderem a assinar topicos, eu mesmo desconhecia, aprendi hoje ! Abraços e vamos ver ai :D

Boa tarde gente :D 1- Vim sugerir a vocês a criação de alguma seção "Mova-me" Para usuários que não saibam onde postar e que evite ser alertado, poste nesta seção para algum moderador mover para a seção correta :D Claro que também tem um limite, se você sabe onde é não há necessidade de utilizar esta parte! 2- Sugeria a vocês, orientar os moderadores e os próprios usuários, a alterarem nome do tópico quando resolvido, com um simples (Resolvido) na frente, pois isso facilita muito em duvidas, quando você está lendo e ve que foi resolvido, você se poupa da necessidade de entrar e ver q está pendente ou até de criar outro tópico! Gostaria de uma resposta sobre minhas sugestões :) abraços

Entre play3 e x-box 360, qual é melhor? --sem contar o projeto natal do x-box é claro kkkk

Ao meu entender, acho que ele quer fazer tudo em flash e programar no vb, exemplo, fazer botoes interativos e as ações programadas pelo vb! Pelo que eu entendi é isso.

suit case text1 case is = 30 <bloco de comandos> case is > 30 <bloco de comandos> case is < 30 <bloco de comandos> end select Frata, note que você fechou select, porem abriu errado, como o kuroi disse é Select case, e no caso text1.text. Se não me engano tambem não tem os "is" ficando assim então: select case text1.text case = 30 <bloco de comandos> case > 30 <bloco de comandos> case < 30 <bloco de comandos> end select se quiser declare o text como variavel Dim texto as integer texto = text1.text select case texto case = 30 <bloco de comandos> case > 30 <bloco de comandos> case < 30 <bloco de comandos> end select Qualquer duvida poste :D

Cara, quando eu usava o unlocker, ele na verdade não apagava, movia para uma pasta oculta, acho q era C:/unlocker e la tava os arquivos q você mando ele apaga!! Não sei quanto essa versão, porque parei de usar porque no win7 ele tem a opção forçar :D Coloca para exibir pastas ocultas e procura o arquivo que você excluiu!

Caramba, bastante gente da era antiga sakosapska há pouco eu tinha o ps1 (cinza) gigantesco, vendi a carcaça, mas ainda tenho o ps1(branco-slim) um ps2(slim) e um nintendo wii :D

skaopkspaks, da samambaia foi o pior!

eu n sei muito do round ainda, mas no caso, vamos supor q a variavel chame divisao.... Round(divisao,3).... no caso 3 casas... e se o resultado for 20,... mais de 1 casa antes da virgula? -- usei conta=round((v1/v2),2) ai agora ele só da 2 casas, Consegui o q eu queria!! vlwss

meu notebook também esquenta bastante, e é novo, porem não tem nada no processador, o cooler dele é meio fraquinho, sugiro a você passa o Ccleaner e o nitropc, faça uma limpeza geral, abra o iniciar executar, digite msconfig e na barra inicializar ve se tem algo suspeito, se no caso for virus como o Jhonas disse, se tiver, desative e reinicie o pc! Abraços, poste o resultado!

comigo deu isso tambem, no curso, o corel é original, eles ligaram la e falaram q você tem q retroceder a data do pc para antes do dia 1 de abril, dia 29 de março por exemplo, pois a partir do dia 1 de abril foi travado todos corel para "obrigar" a atualizar para o X5, recomendo você atualizar para o x5!

Frata, de uma resposta do q você conseguiu ai :D (off topic)Kuroi,caraca, se desenha pakas e fala passa vergonha oO, nem em vetor eu faço isso ai ksoaspsapkassk