Graymalkin

Eu gostari de fazer pois o meu programa ta executando em 640 x 480 e sempre que o ussuario apertar crt esc vai ter uma surpresa desagradavel claro se ele estiver usando 800x600 Em algum lugar na Net você deve achar uma tabela com todos os códigos ASCII/ANSI. Alguns que me lembro de cabeça (só os que uso) são: 0 - Nulo 8 - Backspace 9 - Tab 13 - Enter 32 - Espaço 34 - Aspas duplas 44 - Vírgula 46 - Ponto 65 a 90 - A..Z 97 a 122 - a..z Abraços, Graymalkin

Coloca o seguinte no evento MouseDown da ListView e veja se é o que você quer: total = 0 For Each coluna In ListView1.ColumnHeaders total = total + coluna.Width Next coluna Set coluna3 = ListView1.ColumnHeaders(3) inicio = total - coluna3.Width If x >= inicio And x <= total Then paraInserir = InputBox("Digite algo:") ListView1.SelectedItem.SubItems(2) = paraInserir End If Abraços, Graymalkin

A propriedade View dela está definida para Report? Graymalkin

Desativar CTRL + ESC eu não sei ( , sempre me perguntei por que desativar estas teclas tão úteis... ). Mas, para abrir um form com o ENTER você pode colocar o seguinte no evento KeyPress do Form: if keyascii=13 then form2.show endif Desde que não haja mais controle algum no form, o pressionamento da tecla ENTER deverá abrir o form2. Caso haja outros controles e você queira que mesmo assim o form2 seja aberto quando o ENTER for pressionado, ative a propriedade KeyPreview do form. Abraços, Graymalkin

Sim, tem a função Shell(). Exemplo: Shell "c:\arquivo.bat" Abraços, Graymalkin

Sim, funciona. As instalações dos programas da minha página foram todos criados com o InnoSetup + ISTool. De qualquer forma, recomendo a utilização do Package & Deployment Wizard para criar o setup pelo menos uma vez, a fim de que você possa importar o arquivo setup.lst (que contém a lista de arquivos necessários para o programa funcionar) no ISTool. Abraços, Graymalkin

Exatamente! Depois vou salvar essa página e dar uma olhadela nos outros. Abraços, Graymalkin

Não sei se vale para o SQL Server, mas no Access eu insiro as datas com a função DateValue() (dentro da SQL, não fora). Abraços, Graymalkin

Beleza, ! Qualquer dúvida, posta lá no fórum respectivo. Abraços, Graymalkin

Repare no que o código diz: se valor > maiorvalor; então maiorvalor = valor; Senão menorvalor= valor; fimse Se o valor digitado é maior que o maior valor, então ele será o novo maior valor, caso contrário (ou seja, caso ele não seja maior que o maior valor), ele será o novo menor valor. Porém, isso não é totalmente verdadeiro. O fato dele não ser maior que o maior, não significa que ele seja o menor de todos. Imagine a sequência proposta anteriormente: 5, 1, 7, 2. Supondo que "maiorvalor", inicialmente é zero, teríamos (as setas <-- indicam quais "Se"s e quais "Senão"s foram executados): se 5 > 0 então maiorvalor = 5 <-- Senão menorvalor= 5; fimse se 1 > 5 então maiorvalor = 1 Senão menorvalor= 1; <-- fimse se 7 > 5 então maiorvalor = 7 <-- Senão menorvalor= 7; fimse se 2 > 7 então maiorvalor = 2 Senão menorvalor= 2; <-- fimse Veja que "menorvalor" acabou ficando com 2, sendo que o 1 (que passou antes) é que deveria ter ficado. Sacou agora? Abraços, Graymalkin

O make a que você se refere é a opção no menu File? Se for ela, sim tem outro jeito que é executando: c:\arquivos de programas\microsoft visual studio\vb98\vb6.exe /make c:\pasta\meuprojeto.vbp Abraços, Graymalkin

Acho que ficaria melhor se você pudesse dar um exemplo. Abraços, Graymalkin

Na verdade não... isso porque inverti a ordem. O correto é Chr(13) & Chr(10). Abraços, Graymalkin

Sim, eu falava da inserção na tabela. O Replace() seria assim: paraInserir = Replace(CaixaDeTexto.text, "'", "''") Depois, você juntaria essa variável "paraInserir" à SQL, ao invés de juntar o conteúdo da caixa de texto. Abraços, Graymalkin

Não tive tempo de olhar todos, mas o segundo tem um pequeno erro, nessa parte: se valor > maiorvalor; então maiorvalor = valor; Senão menorvalor= valor; fimse Para descobrir o erro, imagine que a sequência de números digitada pelo usuário foi: 5, 1, 7, 2. A resposta correta seria 7 e 1. Porém, de acordo com esse pedaço do algorítmo não será essa a resposta, e sim 7 e 2. Por que? Abraços, Graymalkin

Sim, o VB não abre PNG. E não adianta só trocar a extensão, pois os formatos são diferentes. O ideal seria convertê-las para BMP, JPG ou GIF, pois estes são suportados. Abraços, Graymalkin

Grave uma macro no Word, fazendo exatamente o que você quer. Depois, aperte ALT+F11 para ir ao editor do VBA e veja o código da macro. Por ali você já vai poder ter uma idéia do tem a seu dispor e do que se pode criar. Abraços, Graymalkin

Para salvar você usa o procedimento SavePicture() e para imprimir você usa o método PaintPicture() do objeto Printer. Abraços, Graymalkin

A questão é que no Windows o ENTER é representado por dois caracteres, sendo eles Chr(10) (Carriage Return, retorno de carro) e Chr(13) (Line Feed, avanço de linha). Portanto, o vbCrLf é justamente igual a Chr(10) & Chr(13), bem entendido. Abraços, Graymalkin

? Programa....correr... Ué... Acho que estou trabalhando demais já ! Abraços, William Rodrigues Brother, os lusitanos falam assim (pensando bem, o termo "run", vem do inglês "correr"). Abraços, Graymalkin

Porém, como você faz a inserção do registro? Se for através de uma SQL, realmente dará erro. Para resolver isso, você pode dobrar (repetir) a aspa simples. Portanto, Jonathan Martelo's ficaria Jonathan Martelo''s. Para isso você pode usar a função Replace(). Abraços, Graymalkin

Seria mais fácil se você demonstrasse como está fazendo isso. Veja o teste que fiz e deu certo: valor=5.8 ? valor Abraços, Graymalkin

Assim: msgbox filedatetime("c:\arquivo.txt") Abraços, Graymalkin

Sim, você pode controlar as portas seriais através do VB usando uma DLL. Aqui você pode encontrar esse arquivo com um txt que explica como usar (o nome do arquivo é win95io.zip): http://br.groups.yahoo.com/group/vbj/files/ Abraços, Graymalkin

Usando o evento OnKeyPress e verificando o argumento key da mesma, é possível você identificar se o usuário pressionou o ".". Daí, basta atribuir #0 à key para cancelar a tecla pressionada. Abraços, Graymalkin