-
Total de itens
8.257 -
Registro em
-
Última visita
Tudo que Graymalkin postou
-
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
-
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
-
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
-
Sim, e para isso é que existem outras funções (como EnumWindows e FindWindow) que permitem "encontrar" as janelas abertas. Abraços, Graymalkin
-
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
-
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
-
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
-
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
-
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
-
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
-
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
-
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
-
Todas as linhas estão no mesmo procedimento? Porque deveria funcionar. Abraços, Graymalkin
-
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
-
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
-
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
-
Vá no menu "File" -> "New Web Site..." e em "Language" escolha "Visual C#". Abraços, Graymalkin
-
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
-
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
-
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
-
Não tem nada errado nesta linha... if ADOQuery1senha.value = edit2.text then ... não? Graymalkin
-
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
-
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
-
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
-
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