Graymalkin

Interessante esse XComm cara.. Legal.. Parabéns brother Abraços, William Rodrigues Obrigado, William. Graymalkin

Do lado esquerdo da tela (na janela do API-Guide), embaixo do "Alphabetical" você escreve o nome ou o começo da função que deseja. Após escolhê-la na lista abaixo, do lado direito da tela aparecerão apenas informações pertinentes a mesma. Na aba "Parameters", no campo "Declaration" você terá a declaração da API. Na aba "Example(s)", como o nome sugere, você encontrará um ou mais exemplos. No entanto, se você não faz nem idéia do que são APIs, recomendo dar uma estudada no assunto, antes de tentar usá-las. Você poderá acabar ficando traumatizado tentando fazer algo que nem tem idéia de como fazer e, consequentemente, não conseguir fazer. Está brincando, né? . Se não, leia novamente o parágrafo acima. Abraços, Graymalkin

Com as APIs GetWindowPlacement e SetWindowPlacement você tem como, respectivamente, saber e definir o estado de uma determinada janela. Com a API GetWindowText você tem como obter o título de uma janela e com a API EnumWindows você tem como obter todas as janelas existentes. No API-Guide (www.mentalis.org) você encontra exemplos para cada uma dessas APIs. Abraços, Graymalkin

Talvez você pudesse fazer isso com VB.NET. Os WebForms são feitos da mesma maneira que os WindowsForms (os forms que conhecemos no VB6). É bem interessante. Abraços, Graymalkin

A diferença do OCX é que existe uma interface visual para se interagir. No caso de ActiveX DLL ou EXE não há necessidade da mesma (e caso haja uma, não é possível embutí-la, num form por exemplo, como se pode fazer com OCX). Abraços, Graymalkin

Não entendi muito bem o que você quer, mas a principal diferença entre ActiveX DLL e ActiveX EXE é que a segunda roda de forma completamente independente do programa chamador. Se você tem uma função na biblioteca que leva algum tempo para ser executada, no caso da ActiveX DLL o programa irá esperar pela execução antes de continuar as demais linhas. No caso da ActiveX EXE, não. Abraços, Graymalkin

O evento Resize é executado em ambos os casos. Para diferenciar você pode verificar a propriedade WindowState. Abraços, Graymalkin

Sim, dá certo! . Criei um formulário simples em HTML (você pode conferi-lo na seguinte página: http://www.graymalkin.globalhosts.com.br/teste1.htm). E para preenchê-lo via VB fiz o seguinte: Set obj = GetObject("", "InternetExplorer.Application.1") obj.Navigate "http://www.graymalkin.globalhosts.com.br/teste1.htm" Do While obj.Busy 'Fica em loop até que a página tenha sido carregada DoEvents Loop Set doc = obj.Document 'Obtém o documento Set formulario = doc.Forms(0) 'Obtém o primeiro form (o único que existe na página) Set caixa1 = formulario(0) 'Obtém o primeiro elemento do formulário (a primeira caixa de texto) Set caixa2 = formulario(1) 'Obtém o segundo elemento do formulário (a segunda caixa de texto) caixa1.Value = "seu nome" 'Muda o texto da primeira caixa de texto caixa2.Value = "outro nome" 'Muda o texto da segunda caixa de texto obj.Visible = True 'Faz o IE aparecer Espero que ajude. Abraços, Graymalkin

Sim, com GetObject() ou CreateObject() é possível criar instâncias do Internet Explorer. Acredito que também seja possível controlá-las. Por exemplo, o código seguinte abre o Internet Explorer com a página do Yahoo!Brasil: Set obj = GetObject("", "InternetExplorer.Application.1") obj.Navigate "http://www.yahoo.com.br" obj.Visible = True Pelo objeto Document que existe no "obj" acima talvez seja possível chegar na caixa de texto e escrever na mesma. Vou fazer alguns testes aqui e se tiver sucesso te retorno. Abraços, Graymalkin

Sim, seria mais fácil se o site fosse seu. O Request pode ser usado no ASP, através de VBScript, JavaScript ou qualquer outra linguagem de script suportada. Talvez seja possível fazer isso através de automação com o Internet Explorer, mas não tenho certeza. Abraços, Graymalkin

Se você tiver suporte a ASP no servidor do site, sim. A idéia seria passar os parâmetros para a página e depois obtê-los com a função QueryString() do objeto Request. Abraços, Graymalkin

Acho deselegante justamente o fato de gerar o erro para capturá-lo. Seria muito mais "elegante" se pudéssemos fazer assim: if len(vetor)=0 then primeiro=true endif Ou se pelo menos UBound() e LBound() retornassem -1 (um indíce que não existe em um vetor). Daí, poderia se fazer: if Ubound(vetor)=-1 then primeiro=true endif Ou ainda, (mas aí eu já estou querendo demais em relação a VB), se um vetor fosse tratado como um objeto e tivesse uma propriedade ou método que retornasse a quantidade de elementos. Daí, se poderia fazer (ah, isso é válido para o VB.NET): if vetor.length=0 then primeiro=true endif Na minha opinião, tratamento de erros deveria ser usado apenas em situções onde um erro possa ocorrer em relação ao exterior da aplicação (ao tentar gravar um arquivo em disco, por exemplo, onde o disco pode estar cheio, o disquete pode não ter sido inserido ou estar fechado para gravação). Não acho que deveria ser usado para testar situações dentro da própria linguagem. Abraços, Graymalkin

Até a última vez que mexi na XScript, eu usava Collections para guardar as váriaveis e seus valores. Daí, percebi que usar vetores melhorava o desempenho e troquei tudo. Com as Collections não se tem esse tipo de problema (só não me lembro se fiz algo assim quando me deparei com esse problema). Abraços, Graymalkin

Sim, também é uma solução possível (mas continua não elegante assim como a minha... hehehe... ). Em relação a preencher o próximo elemento (usando UBound(vetor)+1) também dá pra fazer, porém você tem que redimensioná-lo antes (usando Redim). Exemplo: n = Ubound(vetor)+1 Redim Preserve vetor(n) vetor(n).nome = eita(i) * Isso seria para guardar variáveis? * Abraços, Graymalkin

Realmente a idéia do P2P é bem interessante e poderá usar vários dos componentes sugeridos pelo William. Um outro programa legal, também pensando em rede (ou Internet), seria um "controle remoto" (assim como o PCAnywhere, VNC ou Carbon Copy). O programa permitiria o controle e visualização do desktop, mouse e teclado, além de outras tarefas (gerenciar e manipular arquivos entre os computadores conectados, entre outras coisas). Abraços, Graymalkin

Bom saber que alguém se interessou por esta biblioteca! Abraços, Graymalkin

Esse "editar" é um dos campos ou é um botão? Abraços, Graymalkin

Supondo que você tem duas Frames (Frame1 e Frame2) e que tem um botão (Command1) na Frame1 e quer passá-lo para a Frame2, você pode fazer: Set Command1.Container = Frame2 Abraços, Graymalkin

Ops, fórum errado. Isso aí é Delphi, aqui é VB. Todavia o erro parece estar na seguinte linha: QR_loc.SQL.Text := 'Select * from GRA001 '+'Where Status =:ComboBox1.Items' Especificamente na parte "=:ComboBox1.Items"... isso não deveria estar fora das aspas? E é o método Items mesmo que te retorna o item selecionado? Abraços, Graymalkin

Criei a seguinte função para isso: Public Function EstáVazio(ByRef v()) On Error Resume Next unk = UBound(v) If Err.Number = 9 Then vazio = True Else vazio = False End If On Error GoTo 0 EstáVazio = vazio End Function Daí, faça o teste: Dim k() MsgBox EstáVazio(k) Dim j() ReDim j(0) MsgBox EstáVazio(j) Confesso que a solução da função não é das mais elegantes, mas não achei outro meio. Abraços, Graymalkin

Com a API FindWindow você pode encontrar determinados programas (pelos títulos das janelas) e com a API SendMessage você tem como mandar que os mesmos fechem. Todavia, existem ainda outras maneiras. Para o caso das APIs, dê uma olhada no API-Guide (www.mentalis.org). Abraços, Graymalkin

Hey, por que não um desafio? Algo que você não tenha a mínima noção de como começar? Brincadeirinha... Ainda não tinha me manifestado, mas concordo com as regras do PiGmEu. Porém, não acho interessante projetos como softwares administrativos (é claro que isso é uma opinião pessoal, mas nesse caso não sinto a mesma empolgação que fazer softwares voltados ao público em geral). De qualquer forma, estarei pensando em algum projeto interessante para dar como sugestão. Abraços, Graymalkin

Seu banco de dados deve ser do Access 2000, porém o método de acesso que o Application Wizard cria utiliza o DAO (que suporta até o Access 97, a não ser que seja instalada uma atualização [só não sei qual]). O novo (?) método de acesso à dados no VB se chama ADO. Dê uma procurada nas postagens anteriores do fórum (pela Pesquisa) ou no Google e você deverá achar exemplos. Abraços, Graymalkin

Acho que já tem um post sobre isso... De qualquer forma, você pode fazer isso assim: Shell "explorer http://www.graymalkin.globalhosts.com.br/", vbNormalFocus Abraços, Graymalkin

Muito bom, Eloah. Vou guardar o link para recomendar para os iniciantes. Abraços, Graymalkin