Graymalkin

Sem problemas. Beleza. Abraços, Graymalkin

Seguem abaixo os três eventos que precisam ser definidos para o comportamento que você quer: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load NotifyIcon1.Icon = Me.Icon NotifyIcon1.Visible = False End Sub Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged If Me.WindowState = FormWindowState.Minimized Then Me.Visible = False NotifyIcon1.Visible = True End If End Sub Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick Me.Visible = True Me.WindowState = FormWindowState.Normal NotifyIcon1.Visible = False End Sub O Form1_Load define o ícone e esconde o notify; o Form1_SizeChanged detecta quando a janela é minimizada e esconde o form e faz o notify aparecer; e o NotifyIcon1_DoubleClick detecta quando se efetuou um duplo-clique sobre o notify e faz com que o a janela se torne visível e seja retornada ao estado normal (Restaurar), fazendo o notify sumir também. Certo? Graymalkin PS: Por favor, poste outro tópico quando sua dúvida for diferente do seu primeiro do post (do tópico).

Kill serve para *apagar* um arquivo e não "matar um processo". Para este último você vai precisar recorrer à API Win32 (dê uma olhada no API-Guide, http://www.mentalis.org/, na função TerminateProccess). Abraços, Graymalkin

Definir a propriedade Visible do objeto como False não resolve o caso? Abraços, Graymalkin

Experimente assim: objeto.Style.Add("z-index", "0") Veja se dá certo aí. Abraços, Graymalkin

Acho que você pode definir isso pela propriedade RecipType. Aqui você encontra mais detalhes: http://msdn.microsoft.com/library/default....ptype_mapim.asp Abraços, Graymalkin

Experimente ir em: "Painel de Controle" -> "Contas de Usuário" -> "Alterar a maneira como os usuários fazem logon e logoff" e desmarque a opção "Use a 'Troca rápida de usuario'". Abraços, Graymalkin

Não vai ser complexo; acho que até que vai ser mais simples do que o jeito que você fez acima. Experimente aí. Abraços, Graymalkin

Acho que o mais prático no caso seria criar uma matriz com os respectivos elementos a serem procurados e pelo que devem ser substituídos (no caso, o " " substituiria pelo "", o "á" pelo "a", o "é" pelo "e"). Ou seja, você teria que criar essa tabelinha explicitamente. Abraços, Graymalkin

Dê uma olhada nestes tópicos: http://scriptbrasil.com.br/forum/index.php?showtopic=45865 http://scriptbrasil.com.br/forum/index.php?showtopic=44712 http://scriptbrasil.com.br/forum/index.php?showtopic=32112 http://scriptbrasil.com.br/forum/index.php?showtopic=30768 Abraços, Graymalkin

Dê uma olhada nestes tópicos: http://scriptbrasil.com.br/forum/index.php?showtopic=45865 http://scriptbrasil.com.br/forum/index.php?showtopic=44712 http://scriptbrasil.com.br/forum/index.php?showtopic=32112 http://scriptbrasil.com.br/forum/index.php?showtopic=30768 Abraços, Graymalkin

Já experimentou o ZOrder? Não sei se tem no Access, mas no VB é com ele que se faz isso. Abraços, Graymalkin

Compartilhe a pasta onde o seu programa está instalado e vá em um outro computador e execute-o a partir da pasta compartilhada. Vale lembrar que o computador onde o programa será executado deverá ter todas as DLLs e OCXs necessárias para execução do programa. Abraços, Graymalkin

Eu faria assim: n = freefile() open "arquivo.txt" for binary as #n conteúdo = input(lof(n), n) close #n posição = instr(1, conteúdo, "string desejada") if posição>0 then msgbox "Achou!" else msgbox "Não achou!" endif Certo? Graymalkin PS: você não tem um "arquivo NOTEPAD" e sim um "arquivo texto". Notepad (ou Bloco de notas) é apenas *um* programa que abre arquivos textos (existem centenas de outros), portanto isso (o formato texto) *não* é exclusividade dele.

O problema no caso é que ao pegar o último código da tabela, ele permanece como último e somente depois que o registro é inserido é que ele passa a não ser mais o último (já que o inserido é que é o último agora). Por exemplo, o último código é 12, aí o primeiro usuário pega ele na tela de inclusão e em sua tela aparece o 13, porém um segundo usuário também abre a tela de inclusão antes que o primeiro finalize o registro. Então, qual é o último registro? O 12 ainda, já que o carinha do 13 ainda não finalizou. Por isso esse segundo também fica com o 13 (12+1). Se você quer mesmo fazer esse controle manual, você pode optar por inserir o registro no momento em que o código é gerado, mesmo que os demais campos fiquem em branco (o que pode ser um problema). Daí, se o cara pegou o 13 (12+1), então será gerado um registro com o campo código com 13. Se outro vier em seguida, será gerado para ele o código 14 (já que o 13 está lá) e assim por diante. Outra solução para isso, e que é a que eu particularmente utilizo, é criar uma tabela de códigos, onde existe apenas um registro e onde é feito esse incremento (também no mesmo momento do exemplo acima). Daí, haveria uma tabela chamada Códigos com um campo chamado Cod_Doc. Quando o primeiro usuário fosse incluir algo, pegar-se-ia o valor em Cod_Doc da tabela Códigos, somar-se-ia +1 a ele e armazenar-se-ia ele sobre o valor anterior (13 viraria 14). Qualquer usuário que vier depois vai pegar o 14 e guardar lá o 15 (para o próximo vir pegá-lo e este armazenar o 16 e assim por diante). Sacou? Graymalkin

Segue um exemplo que percorre todos os componentes do form atual e muda a propriedade Caption do objeto que tem o mesmo nome que a variável "nome": nome = "Command1" For Each obj In Me.Controls If obj.Name = nome Then obj.Caption = "um teste" End If Next obj Certo? Graymalkin

Não sei se entendi bem o exemplo dado (com G = {0, 1, 2}). Você poderia dar um exemplo completo de como seriam feitos todos os cálculos e qual seria o resultado final para uma outra sequência qualquer? Abraços, Graymalkin

Você não pode fazer isso direto. Quem aceita o > é o prompt e não o programa. Por isso, a idéia seria criar um batch e executá-lo: ip = "192.168.0.1" destino = "c:\wallace.txt" batch = "c:\teste.bat" n = FreeFile() Open batch For Output As #n Print #n, "ping " & ip & " > " & destino Close #n Shell batch Um possível problema disso é que Shell() é assíncrona, portanto isso significa que a execução continuará independente do programa executado ter terminado ou não. Entretanto, existe solução para isso (no http://www.desenvolvedores.net tem um artigo sobre isso). Abraços, Graymalkin

A função system() da stdlib não faria isso? Graymalkin

Os nomes das colunas você pode obter pela coleção Fields do recordset. Abraços, Graymalkin

Acreditoque ele está utilizando o padrão americano (MM/DD/AAAA) como formato (note que a última data, por não poder ser expressa nesse padrão, fica correta). Se não me engano, já tive esse problema uma vez com o Excel, porém no meu caso eu preenchia a planilha via automação. Que eu me lembre, a solução foi passar a data no formato americano (ou talvez tenha sido no formato ISO AAAA-MM-DD). Realmente não me lembro, mas experimente utilizar a função Format() para testar os diferentes tipos de data e veja se algum deles grava corretamente. Abraços, Graymalkin

Sim, foi exatamente isso que eu entendi e no outro post eu dei um exemplo de como isso pode ser feito. Se bem que seria melhor se você fizesse o ping diretamente pelo seu programa (e não pelo DOS). No API-Guide (http://www.mentalis.org/) você encontra um exemplo de como realizar um ping via API do Winsock. Abraços, Graymalkin

Beleza Fechando então. Abraços, Graymalkin

Tá legal o código. Apenas você deveria começar a se acostumar com colocar os tipos dos objetos para melhorar a performance: Dim item2, item3, item4 Dim registro Dim i = 0 Ou seja: Dim item2, item3, item4 As String Dim registro As DataRow Dim i As Integer = 0 Por mais que late-binding seja mais gostoso de se trabalhar, perde-se em performance. É uma pena que VB não possa inferir os tipos automaticamente. Abraços, Graymalkin

Creio que você queira dizer "digitado o IP" e não "digitado o ping", certo? Uma idéia seria abrir o arquivo gerado, ler o seu conteúdo para uma string e depois procurar pela string "Recebidos =" e verificar o que se encontra depois dela. Se for 0 é porque esse IP não se encontra ativo (ou pode estar ativo e não responder à pings); se for 4 (ou algo maior que 0) é porque está ativo. Abraços, Graymalkin