Graymalkin

Um exemplo (coloque um Timer no form e defina o seu Interval para 1000): 'Declare isso no General Declarations Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long 'Coloque o seguinte código no evento Timer do Timer1 FlashWindow Me.hwnd, 1 Abraços, Graymalkin

Dá uma olhada nessa página aqui: http://br.groups.yahoo.com/group/vbj/message/639 (em relação às mensagens, comece a ler de baixo para cima) Abraços, Graymalkin

Sim, se ela for do tipo ActiveX (gerada pelo próprio VB) você pode fazer: dim obj as object set obj = createobject("meuprojeto.minhaclasse") Onde "meuprojeto" é o nome que você deu ao projeto da DLL e "minhaclasse" é o nome que você deu a classe. Abraços, Graymalkin

É bom salientar que o DBGrid e o Data Grid são diferentes e o primeiro se chama Data Bound Grid e funciona com o DAO e o segundo funciona com o ADO. Abraços, Graymalkin

Vale a pena uma visita e uma possível contribuição: http://web.rantac.com.br/python Graymalkin

Como assim "ele não fecha deste jeito..."? Graymalkin

O que exatamente acontece após clicar no OK? E você tem certeza de que está digitando o início do nome que quer procurar? Abraços, Graymalkin

Coloque chr(34) no lugar de """. Abraços, Graymalkin

Um exemplo simples: nnome=inputbox("Digite o nome:") data1.recordset.findfirst "nome>='" & nnome & "'" ok? Graymalkin

O quê exatamente não deu certo? Abraços, Graymalkin

O EditMode muda sozinho quando você começa a alterar o registro. Caso você use controles anexados aos campos (quando você define o DataField para a TextBox, por exemplo) basta escrever alguma coisa em um dos campos e o registro já é considerado como sendo editado, ou seja, o EditMode muda para 1. Todavia, uma forma simples de fazer com que o registro seja forçado a entrar em modo de edição, estando anexado (bounded) ou não-anexado (unbounded), é preencher o primeiro campo do registro com seu próprio valor. Exemplo: rs.fields(0).value = rs.fields(0).value Isso fará com que o registro entre em modo de edição já que ele pensa que está sendo alterado, apesar de você saber que não mudou nada. Abraços, Graymalkin

Caso seu programa tenha *muitos* forms ou realize *muitos* processos de inicialização, é possível fazer o seguinte no evento Load do form: load splash splash.show splash.progressbar1.max = 3 splash.progressbar1.value = splash.progressbar1.value + 1: doevents 'processo1 splash.progressbar1.value = splash.progressbar1.value + 1: doevents 'processo2 splash.progressbar1.value = splash.progressbar1.value + 1: doevents 'processo3 unload splash load principal principal.show É claro que se existirem poucos forms ou nenhuma rotina de inicialização, o splash aparecerá e sumirá muito rápido. Nesse caso, a melhor solução é colocar um timer no splash e definir um intervalo (tipo 5 segundos) para que passado esse tempo a janela desapareça. Abraços, Graymalkin

Crie uma ActiveX DLL e você poderá utilizar no Delphi. Segue abaixo um passo-a-passo que fiz para criar uma DLL e utilizá-la no próprio VB. Porém, o mesmo vale para o Delphi, já que ele suporta ActiveX: Vamos seguir um passo-a-passo, que demonstrará como colocar um função bem simplória em uma DLL e utilizá-la em outro projeto: 1 - Você tem a seguinte função em seu projeto: public function Soma(byval a as integer, byval b as integer) as integer soma = a+b end function 2 - Crie um novo projeto ActiveX DLL (File -> New Project -> ActiveX DLL); 3 - Altere a propriedade name do projeto (Project1) e da classe (Class1) para MinhaDLL e MinhaClasse, respectivamente; 4 - Copie a função acima e cole-a na área de código da "MinhaClasse"; 5 - Defina a propriedade Instancing da MinhaClasse para 6 (GlobalMultiUse); 6 - Salve o projeto e compile a DLL (File -> Make MinhaDLL.dll...). E pronto a DLL está pronta. 7 - Inicie um novo projeto (Standard EXE); 8 - Vá no menu Project, clique na opção References..., na janela seguinte procure por "MinhaDLL" e marque-a, e depois clique OK; 9 - Insira um botão no form e coloque o seguinte código no evento Click do mesmo: MsgBox Soma(2, 3) 10 - Execute o programa e veja o resultado.

Qualquer programa do DOS pode ter sua saída redirecionada para um arquivo ao invés de aparecer na tela, portanto veja: ipconfig > meuip.txt Ao invés de mostrar a saída do ipconfig na tela, a mesma será gravada no arquivo "meuip.txt". Daí basta você abrir esse arquivo e retirar o que você quer. A diferença do ">>" é que ele faz um append, ou seja, acrescenta a saída no arquivo ao invés de sobrescrever. ok? Abraços, Graymalkin

Você pode redirecionar a saída para um arquivo usando o > ou o >> e daí abrir este arquivo no VB e pegar a informação desejada. Abraços, Graymalkin

Dá uma olhada nestes dois tópicos: http://scriptbrasil.com.br/forum/index.php?showtopic=4448 http://scriptbrasil.com.br/forum/index.php?showtopic=6225 Abraços, Graymalkin

Se você quiser o VB .net você pode baixá-lo direto do site da Microsoft, com o .NET Framework. E é completo, porém sem o Visual Studio. Abraços, Graymalkin

Que eu me lembre, você deve verificar a propriedade Editmode do recordset (que será 1 se ele estiver sendo editado). Abraços, Graymalkin

Só se você quiser gravar em um arquivo. Abraços, Graymalkin

Acredito que você queira fazer o seguinte: amor = rs.fields("amor").value msgbox amor Onde "rs" é o seu objeto recordset e estando apontado para o primeiro registro. Abraços, Graymalkin

Declare estas duas APIs no General Declarations do form: Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long Daí, coloque uma picturebox no form e use o seguinte código em um botão: Dim icone As Long Picture1.AutoRedraw = True icone = ExtractIcon(Me.hWnd, "c:\windows\CALC.EXE", 0) DrawIcon Picture1.hdc, 0, 0, icone SavePicture Picture1.Image, "c:\teste.ico" Só o tamanho é que não está ficando certo, mas isso dá pra ajeitar. Abraços, Graymalkin

A propriedade State retorna o estado do objeto Recordset, podendo retornar os seguintes valores (segue os nomes das constantes e valores, e uma breve explicação de cada uma): adStateClosed = 0 Retornado quando o objeto está fechado, ou seja, quando não existe uma tabela vinculada ou criada. adStateOpen = 1 Retornado quando o objeto está aberto, ou seja, quando existe uma tabela vinculada ou criada. adStateConnecting = 2 Retornado quando o objeto ainda está conectando. adStateExecuting = 4 Retornado quando o objeto ainda está executando uma operação. adStateFetching = 8 Retornado quando o objeto ainda está sendo preenchido com os dados. No exemplo do PiGmEu, ele colocou a seguinte linha: if tbl.state = 1 then tbl.close Que também poderia ser: if tbl.state = adStateOpen then tbl.close O motivo disso é que ao tentar abrir um recordset que já está aberto, ocorre um erro, portanto primeiro ele verifica se a tabela está aberta e se estiver ele a fecha, antes de tentar abrir novamente o recordset (na linha seguinte). Abraços, Graymalkin

Isso aí, só que a seguinte linha deve ser modificada... if tbl.eof = true then ... para: if tbl.eof = false then Isso porque só será EOF quando o registro não for encontrado. ok? Graymalkin

Se ela está protegida como somente leitura, faça primeiro: attrib -r pasta E depois utilize um dos procedimentos sugeridos pelo Slipknothings. ok? Graymalkin

Eu faria da seguinte maneira: "SELECT * FROM Contatos WHERE nome='" & strNome & "' ORDER BY nome;" Abraços, Graymalkin