Graymalkin

Já deu uma olhada na documentação? Tem um exemplo de uso to Tkinter lá. Abraços, Graymalkin

Compreendo, mas foi por isso mesmo que falei que, em maior ou menor grau, todos se utilizam da lógica. O ponto principal que destaquei ali é que o difícil para certas pessoas é transcrever uma situação em termos de lógica. No caso do exemplo dado, todos serão capazes de realizar, porém nem todos tem facilidade para descrever todas as etapas da situação. Mesmo situações que crianças de 3 anos (valendo-se da lógica) são capazes de realizar sem dificuldades. Abraços, Graymalkin

Não há uma maneira mágica de se fazer isso, por isso você terá que verificar cada uma das opções e realizar as ações dependendo dos valores. Por exemplo: if chkBotãoInvisível.value=vbchecked then frmMain.Botão.Visible = False endif Em geral, eu crio uma rotina que faz esses procedimentos. Essa rotina é chamada na inicialização do programa e em casos semelhantes ao que você citou (do botão Apply). Em relação a guardar e restaurar as opções, dê uma olhada na rotina SaveSetting e na função GetSetting(). Abraços, Graymalkin

Ambos fazem isso (ou sejam, ocupam um determinado espaço após a expressão ter sido desenvolvida). Porém, nesse caso, talvez o fato de ter uma variável ocupe um pouco mais de espaço, já que a mesma será uma Variant. Já se ela fosse declarada, acho que não haveria diferença. Abraços, Graymalkin

Experimente baixar o exemplo que usei aqui: http://www.graymalkin.globalhosts.com.br/stuff/Outlook.zip Abraços, Graymalkin

@line, Você colocou o código num Timer? Ele está realmente rodando o tempo todo? Aqui comigo funciona... a mensagem aparece rapidamente e some em seguida. William, você testou o código aí? Abraços, Graymalkin

Falta as aspas simples. Assim como no VB precisamos delimitar as strings com aspas duplas, em uma instrução SQL precisamos delimitá-las com aspas simples (ou duplas). Além disso, só é necessário passar o primeiro parâmetro para Execute (aliás, nem lembro se existe mais do que isso ou para quê servem). Portanto, o corrreto seria: conexao.Execute "select * from PRESTIMOB where nome = '" & nome_busca & "'" Abraços, Graymalkin

Ah sim, claro. Você poderia baixar o arquivo via Inet (dê uma olhada num tópico dessa semana sobre isso) e executá-lo. Não sei se o InnoSetup tem um modo silencioso, mas aí você poderia usar um batch mesmo. Há algum tempo atrás fiz um programa que pode agrupar diversos arquivos dentro dele e depois extraí-los para os locais corretos e opcionalmente executar um executável qualquer (que poderia ser o batch), e ele tem um modo automático e silencioso (não para o executável que ele executa). Se estiver interessado nele, o mesmo vem junto do XPlayer e se chama PackSkin. Abraços, Graymalkin

Para registrar basta fazer: regsvr32 arquivo.dll Estando, é claro, no diretório Windows\System ou Windows\System32 (no caso do NT). Porém, tem como você deixar isso um pouco mais simples e mais *bonito* criando um setup com o InnoSetup. Ele mesmo se encarrega de registrar as DLLs para você. Abraços, Graymalkin

Dê uma olhada nas funções TimeSerial() ou TimeValue(). Uma das duas pode te ajudar. Abraços, Graymalkin

De nada. Qualquer coisa, 'stamos aí. Abraços, Graymalkin

Não sei se entendi bem, mas sim, você pode ter um executável que fica monitorando o tempo e de acordo com o mesmo chama outros executáveis. Ou pode usar o Agendador de Tarefas do Windows para fazer isso. Abraços, Graymalkin

Essa declaração pode dar o que falar... . No entanto, em maior ou menor grau todos nos utilizamos da lógica. Aliás, consigo ver a lógica agindo em qualquer situação do cotidiano. Se uma pessoa está em um quarto e é pedido a ela que vá até a rua comprar algo, ela se usará de lógica durante todo o percurso. É claro que, a transcrição de situações se utilizando dos termos e meios que a lógica formal dispõe, é complicada para algumas pessoas. No entanto, isso não significa que elas não tenham lógica. Abraços, Graymalkin

Você quer dizer usando algo assim... if QtdeString("TESTE","T")=2 then ... ? Se for, tanto faz fazer dessa maneira quanto fazer: Qtde=QtdeString("TESTE","T") if Qtde=2 then Dá no mesmo. Apenas no segundo caso você deu um "nome" para identificar o valor retornado e no primeiro caso não. Abraços, Graymalkin

Por isso que falei sobre *explicitar* que o valor da variável é Null. Toda variável Variant recém-criada tem o valor Empty e *não* Null. Por isso, você deve usar IsEmpty() e *não* IsNull(). Segue o código abaixo que testei aqui: Option Explicit Dim valor1 Dim valor2 Private Sub Command1_Click() valor1 = Val(Text1.Text) valor2 = Val(Text2.Text) Label1.Caption = valor1 + valor2 End Sub Private Sub Command2_Click() Dim pvariavel Dim svariavel pvariavel = valor1 svariavel = valor2 If IsEmpty(pvariavel) Or IsEmpty(svariavel) Then MsgBox "variaveis vazias! voce não pode finalizar a aplicação!", vbOKOnly, "Meu título !" Else Unload Me End If End Sub Agora, isso é só um teste, né? Pois não vejo muito sentido em colocar Option Explicit e declarar todas as variáveis como Variant. Abraços, Graymalkin

Nem sempre obtemos o que queremos. Se eu fosse você, deixava só o ENTER para acionar ou colocava um botão. Abraços, Graymalkin

Claro. O exemplo abaixo baixa o arquivo jpybot.zip que está no endereço http://www.graymalkin.globalhosts.com.br/stuff/jpybot.zip e grava no arquivo "c:\pybot.zip": Dim LocalArquivo As String Dim LocalURLArquivo As String LocalArquivo = "c:\pybot.zip" LocalURLArquivo = "http://www.graymalkin.globalhosts.com.br/stuff/jpybot.zip" Dim bt() As Byte n = FreeFile() Open LocalArquivo For Binary Access Write As #n bt() = Inet1.OpenURL(LocalURLArquivo, icByteArray) Put #n, , bt() Close #n MsgBox "Concluído!" Espero que ajude. Abraços, Graymalkin

Dê uma olhada no controle (ou na API) Winsock. Abraços, Graymalkin

Dê uma olhada na função Filter(). Abraços, Graymalkin

Nem mesmo Find* ou qualquer outro método que mova o ponteiro de lugar? Graymalkin

É, deu certo. A idéia é dar um "clique" no botão automaticamente. Para isso, coloque o seguinte código no General Declarations do form: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Coloque um Timer no form e defina a sua propriedade Interval para 500. E, no evento Timer do mesmo coloque o seguinte código: pai = FindWindow("#32770", "Outlook Express") If pai <> 0 Then filho = FindWindowEx(pai, 0, "Button", "&Enviar") If filho <> 0 Then SendMessage filho, WM_LBUTTONDOWN, 0&, 0& SendMessage filho, WM_LBUTTONUP, 0&, 0& End If End If Dessa forma, a cada 500 milissegundos (ou seja, meio segundo) o código procurará pela janela do Outlook Express. Caso ache a mesma, o código procurará pelo botão Enviar e, caso ache-o, fará um "clique" no mesmo (isso é a tarefa dos SendMessages existentes ali). Qualquer dúvida, é só falar. Abraços, Graymalkin

Ops... falei besteira. Realmente é isso aí. Nem lembrava dessa propriedade. Abraços, Graymalkin

Após a linha... writeln(hh,':',mm,':',ss); ... coloque: readln; Abraços, Graymalkin

Também percebi isso. De qualquer forma, por que não explicitar que o valor da variável é Nulo? Veja o exemplo: Dim s s = Null MsgBox IsNull(s) Abraços, Graymalkin

Realmente não dá para marcar a linha inteira. Porém, é possível selecionar uma linha quando clica-se em qualquer parte dela (tem um tópico com isso, dê uma procurada). Abraços, Graymalkin