Heldinho

Bom, eu vou postar o código que fiz aqui com a api mouse_evente caso alguém se interesse, pois não achei nada sobre isso na pesquisa.. mas eu ainda gostaria de saber se tem outro modo :lol: : 'Crie uma listbox list1 e adicione alguns itens. daí vai poder selecionar eles com o botão direito :O Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Dim emulado As Boolean Private Sub Form_Load() emulado = False End Sub Sub List1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If emulado = True Then 'PopupMenu teste <<< Mostre um menu sobre o item selecionado se quiser emulado = False End If If Button = 2 Then emulado = True mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, dwEI mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, deEI End If End Sub Obrigado!

Olá pessoal, eu gostaria de saber como selecionar um item da listbox com o botão direito. A unica idéia que tive que eu acho que pode funcionar é usar a api mouse_event para "simular" um clique, mas deve ter uma maneira mais prática, não? se não tiver eu vou usar a api mesmo.. brigadão! :D

Olá pessoal, eu gostaria de saber como faço pra focar a ultima linha da multiline.. eu estou fazendo um "chat" e as mensagens vem pra multiline, mas sempre o usuario tem que usar a scroll bar pra ir lá pra baixo (as mensagens novas chegam em baixo).. gostaria de saber como faço pra scroll ir pra baixo sozinha.. Obrigado e até mais! :D

O jogo que preciso colocar um formulario na frente não fecha.. e em todos que eu tento, o form continua piscando.. =\ vlw!

Pessoal, estive tentando colocar um formulário "por cima" de jogos, mas não está dando muito certo.. alguns Messengers antigos, quando alguém entrava, aparecia a janelinha visando, mesmo que você estivesse jogando algum jogo.. eu tentei fazer da mesma forma que faço pra colocar o form por cima de outras janelas, mas não dá.. depois tentei em um timer da seguinte forma (não era pra piscar tanto): Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const SWP_NOACTIVATE = &H10 Const SWP_SHOWWINDOW = &H40 Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Private Sub Timer1_Timer() SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE End Sub Talvez exista um outro jeito de usar "TOPMOST" sem antes colocar a janela pra traz.. se eu coloco sempre "TOPMOST", não acontece nada com a janela.. talvez eu tenha que usar directx, mas algo me diz que MSN não usa directX ¬¬ alguém tem alguma idéia? Agradeço desde Já, Helder.

Pessoal, eu consegui deixar a tela azulada, mas agora está acontecendo o problema que eu havia previsto.. "quando eu vou clicar, não clica.." é que como o form transparente tá cobrindo toda a tela, tenho que fazer alguma coisa pra "clicar atraz dele". .alguém tem idéia de como pegar a coordenada do clique no form, e "simular" um clique no OS? obrigado, até mais!

Pessoal, existe alguma api pra deixar a tela azulada? quem têm aqueles softwares de placa de vídeo sabem do q é q eu estou falando.. eu tinha pensado em deixar o form meio transparente e azul e usar uma api(que me esqueci qual é) pra deixar o form na frente de todas as outras janelas.. mas aí eu axo q o mouse n conseguiria clicar em nada, já que toda a tela estaria com o form.. o.O alguém tem alguma idéia? Obrigado, Helder.

Olá pessoal, estou precisando pegar o nome curto de alguma string ou file box.. por exemplo: string1 = "vgxuninst.exe" o nome curto da string1 seria "VGXUNI~1.EXE". Alguém sabe como me ajudar? Obrigado, Helder.

cara, brigadão pela dica do webbrowse, mas eu já tinha conseguido por winsock.. o comando é parecido com o q você explicou tb vlw ae

Olá pessoal.. eu baixei o msinet.ocx na internet, pois não estava na minha masta system, aí quando eu vou usa-lo no VB, ele diz que eu não tenho lisença para usar este controle.. "License information for this component not found. You do not have an appropriate license to use this functionality in the design environment." eu já registrei ele com o dllregsvr e não adiantou.. alguém sabe como resolver este problema, ou então baixar arquivos de TEXTO da internet de outra maneira? Se der pra passar o conteudo do controle webbrowser para alguma variavel, já conseigo me virar.. Obrigado, e até mais =]

bom.. eu procurei.. tá aki http://users.cybercity.dk/~bse26236/batutil/help/KEYB_S.HTM Até mais!

cara, dá uma olhada no google, eu já ví isso, mas não estou lembrado onde.. se não me engano usava mode con blablablablabla.. desculpe, mas axo q isso ajuda.. Até mais

Luiz, pra pegar uma string, não use Cin, faça como o Anderson disse, use Textbox para pegar a string, e use labels para mostrar no formulário.. a não ser que você não queira usar win32 api, mas aí o builder seria inutil =\

Bom, que eu saiba, C/C++ são de alto nível pois têm comandos que podemos entender sem decorar, já Assembly é de baixo nível.. E eu não sei se eu disse besteira =P Até mais!

Olá, aqui é atx, mas ele desliga como se eu tivesse clicado em "Desligar"(Finaliza todos os programas).. Obrigado e até mais!