Graymalkin

As APIs do Windows geralmente não tem esse tipo de recurso. Um exemplo é que você tem uma API para "desenhar" na tela, mas não para modificar os bits diretamente na placa de vídeo. Até porque isso varia de uma placa de vídeo para outra e o papel do "driver" de vídeo é justamente lidar com essas diferenças. Por isso que acho que nunca vimos uma API para fazer uma comunicação direta com o BIOS, por exemplo. Abraços, Graymalkin

Experimente abrir esse arquivo (edit.asp) em um editor de textos qualquer e veja o que existe na linha 111 (e coloque aqui). Graymalkin

Por si só, o VB não tem esse tipo de informação. Talvez você ache alguma DLL em C que possa retornar isso. Abraços, Graymalkin

Bem, não sei como o Dreamweaver faz isso, mas se existir algum local em que você possa colocar uma string de conexão experimente preenchê-la com: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=arquivo.mdb Substituindo "arquivo.mdb" pelo caminho do seu banco de dados. Abraços, Graymalkin

Como você faz a abertura dos bancos de dados? Graymalkin

Qual o erro? E você não precisa criar um Recordset para executar uma instrução SQL. Bastaria fazer: conn.open strCon sql = "INSERT INTO dados (nome, url, email, msnicq, idade, usuario, senha, cep) VALUES('"& nome &"', '"& url &"', '"& email &"', '"& msnicq &"', '"& idade &"', '"& usuario &"', '"& senha &"', '"& cep &"')" conn.Execute sql Isso ao invés de criar "rs". Além disso, de onde veio "rs2"? Abraços, Graymalkin

Deve ser em escola particular né????? pois eu estudei em escola publica do ensino médio e nunca tive uma aula de programação Sim, fiz o 2º Grau de Técnico em Informática. O curso referente ao da escola pública na particular é chamado de Formação Geral e realmente não inclui aulas de programação. Abraços, Graymalkin

Ifs aninhados seriam Ifs dentro de Ifs. Por exemplo: if a=2 then if b=3 then msgbox "blá" else if c=4 then msgbox "blé" else msgbox "bli" endif endif endif Abraços, Graymalkin

Para ler um arquivo inteiro você pode fazer assim: n=freefile() open "arquivo.ext" for binary as #n conteúdo = input(lof(n), n) close #n Na variável "conteúdo" você terá todo o arquivo. O mesmo vale para arquivos texto, basta trocar o Binary por Input. Abraços, Graymalkin

Sim, no 2º Grau (Ensino Médio agora) e nos dois primeiros períodos da faculdade (estou no 4º agora). Abraços, Graymalkin

Principalmente estas que você citou (menos Delphi). Já mexi com Java e C também, mas foi só para experimentar mesmo. Pascal (arrghh!) tive na escola também. Baixei outras linguagens recentemente (Ruby e Haskell) porém ainda não tive tempo de aprendê-las. O interessante é que uma vez que você tenha a idéia de algorítmos a linguagem utilizada passa a ser um pouco indiferente (porém nem tanto, visto minha aversão à Pascal). Abraços, Graymalkin

Quase. Na verdade ele ficaria assim: Private Sub Form_load() For i = 1 to 100 Command1(i).Caption = "" Next i If Command1(30).Caption = "" Then Print "certo" Else Print "errado" End If End Sub A idéia é aninhar (conter) os códigos que são executados "dentro" da instrução. Por isso, If e Else ficam na mesma direção (ou executa um ou executa outro). Todas as instruções que são executadas no mesmo nível (For e If, no exemplo acima) ficam no mesmo nível. Como todo o código fica "dentro" de uma sub, todos são identados em um nível e todas as linhas que são executadas "dentro" das instruções são identadas em mais um nível. Sacou? Abraços, Graymalkin

Para um arquivo texto você fazer pode duas coisas: abri-lo e ler linha por linha até o final do mesmo (usando um contador para saber a quantidade de linhas) ou abri-lo, ler o conteúdo dele todo para uma variável e dividir a variável pelo ENTER para um vetor, daí pegar o último índice do vetor e somar +1 (daí você terá a quantidade de linhas). E, arquivos binários não tem linhas, porque não existe um separador (que, no caso do arquivo texto, é o ENTER). Com arquivos binários geralmente se utiliza apenas o tamanho (em bytes) dos mesmos. Abraços, Graymalkin

Claro, identar um código já pronto é meio chato. Todavia, no meu caso, já idento automaticamente enquanto escrevo o código. Ou seja, após digitar uma linha com um if, for ou do while e teclar ENTER, já teclo TAB. Além disso, você pode identar (TAB) ou desidentar (SHIFT+TAB) várias linhas selecionadas. Abraços, Graymalkin

Identar (ou qualquer uma das variantes) é colocar espaçamentos na frente do código a fim de facilitar a leitura. Exemplo: do while a=2 for i=1 to 10 if i=3 and a=1 then msgbox "blá" else msgbox "blé" endif next loop O código acima identado ficaria assim: do while a=2 for i=1 to 10 if i=3 and a=1 then msgbox "blá" else msgbox "blé" endif next loop Muito mais fácil de ler, não acha? Especialmente em códigos gigantescos. Abraços, Graymalkin

"Dissesse" o quê? Graymalkin

Se você quer um ponto de partida, vale a pena tentar usando o Winsock ou automação do IE. Abraços, Graymalkin

A idéia seria algo assim: Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(strFile, 1, True) texto = objFile.ReadAll() linhas = split(texto, chr(13) & chr(10)) for each linha in linhas msgbox linha next Dessa forma, você terá: linha(0) com a primeira linha, linha(1) com a segunda linha e assim por diante. Abraços, Graymalkin

Dê uma procurada sobre as instruções On Error [Goto/Resume Next], pois elas resolvem o seu caso. Abraços, Graymalkin

Use a função Replace() para isso. Abraços, Graymalkin

Já que você apenas quer a dica, o erro está na seguinte linha: If Left(linha, Len(var(i).nome)) = var(i).nome And Mid(linha, Len(var(i).nome), Len(var(i).nome) + 1) = "=" Then Qual o tamanho (comprimento, quantidade de caracteres) em "="? E, cara, indenta (ou endenta, ou identa, já que não há um consenso sobre a palavra) esse código. Abraços, Graymalkin

Bom, faltou você especificar se está usando ADO ou DAO. Em geral faço telas de consultas com um DataGrid (ou qualquer outro grid) a fim de que se o usuário digitar apenas um nome (tipo "Maria") apareçam todas as pessoas com aquele nome. Por exemplo, com um DataGrid no form (datagrid1) você pode fazer algo assim: nome = inputbox("Digite o nome:") rs.open "SELECT * FROM tabela WHERE nome LIKE '" & nome & "%'", cn, 2, 3 set datagrid1.recordsource = rs É claro que isso é um exemplo bem rudimentar (faltam algumas coisas ali), mas já dá pra ter uma idéia. Abraços, Graymalkin

Use o método PaintPicture() do objeto Printer. Abraços, Graymalkin

O problema é que ao mudar de item, pelo teclado, o evento Click (que você está usando para o caso do mouse) também é ativado. Abraços, Graymalkin

Assim: MsgBox UBound(x, 1) 'Primeira dimensão MsgBox UBound(x, 2) 'Segunda dimensão O mesmo vale para LBound(). Abraços, Graymalkin