Ir para conteúdo
Fórum Script Brasil

Graymalkin

Veteranos
  • Total de itens

    8.257
  • Registro em

  • Última visita

Tudo que Graymalkin postou

  1. Graymalkin

    Minimizar Tudo

    Declare a seguinte rotina no seu form: function EnumWindowsProc(wHandle: HWND; lParam: LPARAM): Bool; stdcall; export; begin Result := True; if IsWindowVisible(wHandle) then CloseWindow(wHandle); end; end; E coloque o seguinte para ser executado no evento OnClick de um botão: EnumWindows(@EnumWindowsProc, 0); Execute o programa e clique no botão. Certo? Graymalkin
  2. O Internet Explorer realmente não dá muito certo fechar não... se não me engano, trava tudo. De qualquer maneira, o problema no seu código é que o título da janela deve ser *exatamente* igual ao do programa (e uma janela do Internet Explorer nunca se chama apenas "Internet Explorer" [sempre tem o título do site junto]). Abraços, Graymalkin
  3. Existe uma função da API Win32 para isso, chamada GetTextExtentPoint32. Já utilizei ela em VB, mas não sei se seria a mesma coisa em C/C++. Abraços, Graymalkin
  4. Sim, e para isso é que existem outras funções (como EnumWindows e FindWindow) que permitem "encontrar" as janelas abertas. Abraços, Graymalkin
  5. Graymalkin

    Minimizar Tudo

    Você pode utilizar a função CloseWindow da API Win32 para minimizar uma janela passando seu handle. Ou seja, você teria que obter os handles de todas as janelas (o que acredito que possa ser feito com a função EnumWindows) e minimizar cada uma delas. Abraços, Graymalkin
  6. Dê uma olhada na função DestroyWindow da API Win32. No API-Guide você encontra exemplos: http://www.allapi.net/ ou http://www.mentalis.org/ Abraços, Graymalkin
  7. Graymalkin

    Vb.net 2005 (ou 8.0)

    Bom, não sei te detalhar exatamente o que tem na versão paga que não tem na Express, mas naquele artigo mesmo você vê que a versão Express é qualificada para "Aprendizes , entusiastas , hobistas". Abraços, Graymalkin
  8. Graymalkin

    Vb.net 2005 (ou 8.0)

    O Visual Studio 2005 *já* foi lançado. Foi em Novembro do ano passado (2005). E as versões Express *não são mais* betas, mas sim versões com menos recursos do que a versão paga. Abraços, Graymalkin
  9. Graymalkin

    Vb 7

    Já está no 8.0, que foi o VB.NET lançado em 2005. O 7.0 foi em 2002, e o 7.1 foi em 2003. Abraços, Graymalkin
  10. Não, o correto seria: if numero mod 2 = 0 then msgbox "Par!" else msgbox "Ímpar!" endif Qualquer "número and 1" vai ser diferente de 0. Abraços, Graymalkin
  11. Bom, através da função FindWindow() você tem como saber se existe uma janela aberta com um determinado título. Só não sei se ela valeria para um jogo em tela cheia, por exemplo. Abraços, Graymalkin
  12. Graymalkin

    Arquivos

    O método OpenText() é para abrir um arquivo UTF-8 (como indica sua descrição no balãozinho amarelo que aparece ao abrir os parênteses). Se o seu arquivo é ASCII/ANSI, você deveria fazer: Dim leia As New IO.StreamReader("c:\temp\testea.txt", System.Text.Encoding.Default) Dim letra, texto As String texto = leia.ReadToEnd() For Each letra In texto MsgBox(letra) Next leia.Close() Certo? Graymalkin
  13. Todas as linhas estão no mesmo procedimento? Porque deveria funcionar. Abraços, Graymalkin
  14. Graymalkin

    Arquivos

    Provavelmente. Eu posso tentar ver se consigo fazer um esquema para ler, mas eu precisaria que você enviasse pelo menos uns dois arquivos deste tipo. Se quiser, meu e-mail é: wap@openlink.com.br Abraços, Graymalkin
  15. Futucando a sobrecarga de operadores do novo VB.NET 2005 (ou 8.0), descobri que é possível sobrecarregar o operador CType(), que é o responsável por converter um tipo em outro. Daí, imaginei: "será possível possível fazer uma estrutura minha se passar por uma estrutura como um Integer?" E não é que deu certo?! Resolvi compartilhar essa descoberta (pelo menos para mim) pois achei deveras interessante. A estrutura: Public Structure MeuInteiro Private _valor As Integer Public Sub New(ByVal i As Integer) Me._valor = i End Sub Public Shared Widening Operator CType(ByVal v As MeuInteiro) As Integer Return v._valor End Operator Public Shared Widening Operator CType(ByVal v As Integer) As MeuInteiro Return New MeuInteiro(v) End Operator Public Shared Operator +(ByVal v1 As MeuInteiro, ByVal v2 As MeuInteiro) As MeuInteiro Return New MeuInteiro(v1._valor + v2._valor) End Operator Public Shared Operator =(ByVal v1 As MeuInteiro, ByVal v2 As MeuInteiro) As Boolean Return v1._valor = v2._valor End Operator Public Shared Operator <>(ByVal v1 As MeuInteiro, ByVal v2 As MeuInteiro) As Boolean Return v1._valor <> v2._valor End Operator Public Overrides Function ToString() As String Return Me._valor.ToString() End Function End Structure O exemplo de utilização: Dim n As New MeuInteiro(-2) ' Criando um MeuInteiro Dim i As Integer = n + 6 ' Somando um MeuInteiro a um inteiro e atribuindo a um inteiro Dim m As MeuInteiro = 6 + n ' Somando um inteiro a um MeuInteiro e atribuindo a um MeuInteiro MessageBox.Show(Math.Abs(n)) ' Passando um MeuInteiro onde deveria ser um inteiro MessageBox.Show(i.ToString()) ' Exibindo o valor do inteiro resultante da soma MessageBox.Show(m.ToString()) ' Exibindo o valor do MeuInteiro resultante da soma If m = 6 Then ' Comparando um MeuInteiro a um inteiro MessageBox.Show("Sim, m=6") Else MessageBox.Show("Não, m<>6") End If Não seria possível fazer isso desta maneira nos antigos VB.NET 2002 e 2003, devido a não-existência da sobrecarga de operadores. Aliás, quem já estiver utilizando VB 2005, por favor, poste aqui alguns exemplos de novidades (Generics, por exemplo). Abraços, Graymalkin
  16. Graymalkin

    Arquivos

    Por ambos os motivos. Os caracteres ANSI/ASCII (de 0 até 255) podem ser formados por um byte 0 seguido do byte do caracter. E, os demais caracteres podem ser formados por pares de 2 bytes (se for UTF-16) ou por sequências de até 4 bytes (se for UTF-8). Abraços, Graymalkin
  17. Graymalkin

    Pergunta Boba

    Vá no menu "File" -> "New Web Site..." e em "Language" escolha "Visual C#". Abraços, Graymalkin
  18. Que tal um exemplo? Não entendi muito bem... Aguardo repostas : ) Exemplo: public class Teste : CollectionBase, IComparable { } Ou ainda: public class Teste : IComparable { } No primeiro caso, a classe CollectionBase é herdada e IComparable é implementada. No segundo caso, como só existe a interface, ela é implementada. Certo? Graymalkin
  19. Vamos lá: Corretíssimos! Métodos abstratos Java -> abstract VB.net -> MustInherit (para classes) e MustOverride (para métodos) C# -> abstract Você não "precisa", você "pode". E o mesmo vale para Java. Interface Java -> interface VB.net -> Interface C# -> interface Implementação de interface Java -> implements VB.net -> Implements (na linha abaixo de Inherits, ou no lugar dela se a mesma não existir) C# -> : (a(s) interface(s) fica(m) depois da classe herdada, ou no lugar dela se não existir nenhuma) No momento não me ocorre nenhuma diferença, conceitual ou pragmática, entre as palavras-chaves acima nas diferentes linguagens. Abraços, Graymalkin
  20. Graymalkin

    Arquivos

    Exato, essa é a idéia. Um texto Unicode continuará sendo formado pelos mesmos bytes do padrão ANSI/ASCII, porém os pares de bytes "poderão" ter outros significados. Abraços, Graymalkin
  21. Graymalkin

    Sql X Delphi

    Não tem nada errado nesta linha... if ADOQuery1senha.value = edit2.text then ... não? Graymalkin
  22. Graymalkin

    Programa Em Rede

    Você tem que colocar mais um Winsock no form e repetir aquele processo para o controle novo. Cada controle Winsock é para uma única conexão. Abraços, Graymalkin
  23. Graymalkin

    Arquivos

    Como assim no meio de um arquivo binário qualquer? Você encontrou textos unicode no meio de uma ROM de jogo de Super-Nintendo? Não era para traduzir um jogo que você estava criando um editor hexa? Abraços, Graymalkin
  24. Experimente utilizar a instrução Open para abrir a porta da impressora como um arquivo. Exemplo: n = freefile() open "lpt1:" for output as #n ? #n, "primeira linha" ? #n, "segunda linha" close #n Certo? Graymalkin
  25. Graymalkin

    Depurar Erro

    Erro de indentação (ou identação), ou seja, provavelmente esta linha está fora de nível em relação as outras. Abraços, Graymalkin
×
×
  • Criar Novo...