ramon

Tenho um form com menu onde eu não quero que apareca a barra do caption porem eu uso a propiedade caption e sempre aparece a barra e eu não quero. Eu uso o captiom para que quando minimizar ou dar um ctrl+esc apareca no taskbar o caption do form O que posso fazer?

Sim eu estiou usando uma gif

mais uma duvida a variavel dado para esvaziar a memoria basta eu colocar depois de fazer a leitura e os loops dados= "" assim ela esvazia a memoria?

Bom eu vi um exemplo no help do VB 5 que fala assim: Este exemplo utiliza a função Rnd para gerar um valor inteiro aleatório de 1 a 6. Dim MeuValor MeuValor = Int((6 * Rnd) + 1) ' Gera um valor aleatório entre 1 e 6. Bom então esta errado la no help traduzido. Da uma olhada E no seu exemplo só ta gerando o numero 8

Eu quero gerar numeros aleatorios entre 7 e 11 Bom coloquei gerado = Int((11 * Rnd) + 7) E algumas vezes ele gera numeros acima de 11 Tipo ele gera 12, 14 etc. O que esta errado?

Quando eu adiciono um figura no listview ela não fica transparente. E a figura é transparente porque não fica?

è porque depois que instalei o meu Gp4 ficou se trancando Então decidi desintalar ele

alguém sabe de algum programa ou uma maneira para remover este directx do meu pc sem precisar formattar ele? Pois eu quero instalar uma versão mais antiga que era aoriginal do cd da placa mae

beleza então Valeu mais uma vez pela grande ajuda

Bom eu tenho o cd do windows xp mas não instalei ele por causa dessa duvida. Então não tenho como experimentar a sua dica. Por isso eu queria ter certeza que da se não eu nem instalo o windows xp

o problema não é o video e sim o meu monitor só aceita 640 x 480 não interesa as cores pode ser 250 16 bits 32 bits não estou te cliticando só estou tentando deixar mais claro o que eu quero saber

E se eu tiver uma matrix declarada como integer e uma outra como string? Bom poderia usar a funcao val para retornar um inteiro Mas se no caso eu tiver usando uma variant e pior que estou pois esta matrix aceita string e inteiros ai terei que mudar todo o meu programa

você tem windows xp?

Então você não sabe aonde ele salva este arquivo pois em algum lugar ele salva e é isso que eu quero saber

Bom então experimente e veja como funciona pode pelo menos ter uma ideia Aqui neste site tem ele para download http://planetanetgamez.web1000.com/secao_m...s_elifoot98.htm

Sim fica super rapido Po ficou muito bom Graymalkin valeu cara Só tem um probleminha Quando a matrix recebe o dado recebe junto estes caractere " * " Use o debug.print para você ver os dados da matrix Teria algum jeito de não carregar aqueles caracteres Tentei usar a funcao Mid mas não ficou legal pois tem partes do arquivo que não surge este caracteres Ou então de não gravar aqueles caracteres?

Isso eu sei né O meu outlook é do win ME é o 5.5 Eu não quero exportar eu quero saber se ele guarda estas informacoes em um arquivo ou no registro E se for no arquivo aonde esta este arquivo qual diretorio nome do arquivo entende!!!! Ae eu pego este arquivo e guardo ou seja faco um backup

Bom ai vai então um exemplo de como fica lento em binario a leitura Coloque 4 botoes e veja Dim Clubes(20, 20, 13) Dim caminho Private Sub Command1_Click() Open caminho For Binary As #1 Screen.MousePointer = 11 For A = 0 To 20 For B = 0 To 20 For C = 0 To 13 Put #1, , Clubes(A, B, C) Next C Next B Next A Close #1 Screen.MousePointer = 0 MsgBox "Concluido a Gravação" End Sub Private Sub Command2_Click() Open caminho For Binary As #1 Screen.MousePointer = 11 For A = 0 To 20 For B = 0 To 20 For C = 0 To 13 dado = Space(LOF(1)) Get #1, , dado Clubes(A, B, C) = dado Next C Next B Next A Close #1 Screen.MousePointer = 0 MsgBox "Concluido a Leitura" End Sub Private Sub Command3_Click() Open caminho For Output As #1 For A = 0 To 20 For B = 0 To 20 For C = 0 To 13 Print #1, Clubes(A, B, C) Next C Next B Next A Close #1 MsgBox "Concluido a Gravação" End Sub Private Sub Command4_Click() Open caminho For Input As 1# 'Input #1, arquivo For A = 0 To 20 For B = 0 To 20 For C = 0 To 13 Clubes(A, B, C) = arquivo Input #1, arquivo Next C Next B Next A Close #1 MsgBox "Concluido a Leitura" End Sub Private Sub Form_Load() For A = 0 To 20 For B = 0 To 20 For C = 0 To 13 Clubes(A, B, C) = "abcdefghijlmnopqrstuv12354678989888888888" Next C Next B Next A caminho = (App.Path + "\teste.txt") End Sub Cara ve se consegue deixar rapido em binario este exemplo tanto na leitura como na gravacao

Que Pena pois tava curioso Não sei se você conhece um programa chamado de OMATIC que faz isso? Ele é muito bom

não pode ser agora confundiu tudo em binario no meu fica super lento já em texto fica rapido então devo ta fazendo algo errado

alguém sabe me dizer se o windows xp pro tem a opcao de video para 640 x 480

Gostaria de saber aonde fica os arquivos que salvam as minhas contas de e-mail. Pois eu tenho muitas contas e a cada vezs que eu formato o pc eu tenho que escrever uma por uma Então eu preciso saber aonde o windows guarda este arquivo que salva as contas de e-mail do outlook Algeum sabe o diretorio?

Graymalkin fiz aqui para gravar em forma de texto e é super rapido tanto no salvar como no carregar. Por que em binario é lento? Existe uma outra maneira de se gravar e ler ou só tem em texto e binario?

Aproveitando este tópico tambem estaria interessado em sabem como mexer no endereco da memoria. Pra mim serveria para fazer um cheat para jogos pois assim obtendo o endereco da memoria eu poderia alterar o valor tipo da saude do jogador, a quantidade de balas da arma etc... você Graymalkin sabe como faer isso?

Sim eu editei logo depois da minha resposta pois decidi deixar mais completa você deve ter visualizado a primeira resposta, sendo assim não tinha mesmo como ver aquele codigo