Graymalkin

beleza! Esse componente será muito útil! Qualquer coisa, 'stamos aí. Abraços, Graymalkin

Várias linhas??? Não, o código acima só cria uma única linha. Agora para mexer junto com o mouse vou ter que fazer uns testes depois (não estou no meu computador agora). Mas, você quer uma linha com um ponta fixa e que a outra ponta fique onde o cursor do mouse está? Ou seria uma linha vertical/horizontal que seria carregada pelo cursor? Abraços, Graymalkin

Veja só, olhando bem o código não deveria ser... Sub OnSelectionChanged(ByVal e As SelectionChangedEventArgs) 'SelectionChanged é a propriedade do evento If Not IsNothing(e) Then RaiseEvent SelectionChanged(Me, e) End If End Sub ...? Afinal de contas, acho que o deve ser olhado se é nulo ou não é o argumento passado (no caso, o "e") para então chamar ou não o evento. Experimente aí e dê um retorno. Abraços, Graymalkin

Segue um exemplo: Me.CreateGraphics().DrawLine(New Drawing.Pen(Color.Black), 100, 100, 200, 100) Abraços, Graymalkin

Experimente tirar a linha do delegate. Eventos em VB.NET já criam implicitamente um delegate com o mesmo nome seguido de "EventHandler" (por isso o "conflito" que a mensagem de erro indica). Ou seja, vai ficar: ' LINHA COMENTADA - Public Delegate Sub SelectionChangedEventHandler(ByVal sender As Object, ByVal e As SelectionChangedEventArgs) Public Event SelectionChanged(ByVal sender As Object, ByVal e As SelectionChangedEventArgs) 'Função auxiliar que chama o evento executando código definido pelo usuário Sub OnSelectionChanged(ByVal e As SelectionChangedEventArgs) 'SelectionChanged é a propriedade do evento If Not IsNothing(SelectionChanged) Then SelectionChanged(Me, e) End If End Sub Note também que coloquei um Not ali na linha do if (veja que lá no código em C# o teste feito é "!=null", ou seja, não é nulo). Não testei nada disso aqui, por isso, dê um retorno sobre o resultado. Abraços, Graymalkin

Sim, mas nem tudo pode ser feito em VB (ou mesmo é prático de se fazer). Um iniciante deveria explorar tudo que a linguagem oferece nativamente, para depois partir para tópicos mais avançados e externos, como APIs, componentes, etc. Não sei seria bem o que se pode considerar como "fullscreen", mas tente: a) definir a borda (BorderStyle) como 0 - None definir a janela como maximizada (WindowState = 2 - Maximized) Certo? Graymalkin

Onde, exatamente, você vê estes "comentários"? Abraços, Graymalkin

Qual é, exatamente, a sua dificuldade com o componente? Abraços, Graymalkin

A dica de sempre: grave uma macro no Excel fazendo exatamente isso que você quer (mudando a orientação para paisagem e ajustando as dimensões da página) e o próprio Excel vai gerar o código para você (basta teclar ALT+F11 para ir para o editor do VBA e lá ver o código). Abraços, Graymalkin

Então, dê uma olhada na API SetWindowPlacement, pois acho que ela serve para o seu caso. No API-Guide (www.mentalis.org) você encontra um exemplo dela. Abraços, Graymalkin

Jeziel? (Graymalkin == Falador). Mas, vamos a sua dúvida. Fiz um teste aqui (e acabei percebendo que esse OWC é uma automação disfarçada... os príncipios e os códigos são os mesmos!) e veja como fiz: For i = 1 To 10 If i Mod 2 Then oExcel.ActiveSheet.Cells.Rows(i).Interior.ColorIndex = 3 Else oExcel.ActiveSheet.Cells.Rows(i).Interior.ColorIndex = 5 End If Next i É claro que ali só percorri 10 linhas, e você terá que ajustar para o seu caso. Certo? Graymalkin

Você sabe qual a codificação do texto? UTF-8, UTF-16LE, UTF-16BE, ISO-xxxx, etc? Abraços, Graymalkin

É pelo título da janela. Pelo nome do executável eu não sei como isso seria feito. Abraços, Graymalkin

Mude a propriedade ShowInTaskBar para False. Abraços, Graymalkin

Ah, você quer dizer quando está desenvolvendo o programa e abre o projeto no ambiente do VB? Graymalkin

Você não entendeu o que eu disse antes (no post acima)... Faça o seguinte, crie um projeto qualquer (só com um form e um botão, por exemplo), compile o mesmo para um executável (.exe). Em seguida, copie esse executável para a pasta Windows\System e troque a extensão dele de ".exe" para ".scr". Vá lá na lista de proteções de tela e escolha o seu programa e defina o tempo para 1min. Aguarde o tempo especificado e o programa abrirá na tela normalmente (no lugar da proteção de tela). Entendeu? Graymalkin

Sim, muito boa essa dica do s3c. Experimente esse código aí e veja se é o que você quer: procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var texto : string; largurat : integer; largurac : integer; begin texto := StringGrid1.Cells[ACol, ARow]; largurat := Canvas.TextWidth(texto) div 2; largurac := StringGrid1.ColWidths[ACol] div 2; StringGrid1.Canvas.FillRect(Rect); StringGrid1.Canvas.TextOut(Rect.Left+largurac-largurat,Rect.Top, texto); end; No caso ali, só deixei centralizando na horizontal (nem mexi na centralização vertical). Certo? Graymalkin

Você chama form por form durante a inicialização do programa? Ou faz algo que percorra todos eles (mudar a fonte, por exemplo)? Abraços, Graymalkin

Especificamente para isso não. Você teria que utilizar uma API que indica a posição do mouse e outra que detecta o pressionamento das teclas a fim de saber se: a) nenhuma tecla foi pressionada, o cursor do mouse não se movimentou, c) a) e não ocorreram simultaneamente. Tudo isso dentro de um período estipulado. Acho que isso não vale o esforço (afinal de contas, o Windows faz isso pra você... e, além disso, você pode fazer o seu próprio screensaver que vai fazer exatamente o que você quiser, inclusive executar uma determinada função.) Já surgiu um outro tópico aqui a respeito disso. Dê uma procurada no fórum. Abraços, Graymalkin

Um RichEdit normalmente salva no formato Rich Text Format (RTF). No seu caso, para salvar em HTML você tem que salvar o texto puro (e não no formato RTF). Para isso você pode fazer: var f : textfile; begin assignfile(f, 'c:\arquivo.html'); rewrite(f); write(f, richedit1.text); closefile(f); end; Certo? Graymalkin

O problema está em... n = FreeFile() m = FreeFile() ... que atribui o mesmo valor para "n" e para "m". O correto seria fazer... n = FreeFile() Open "f:\controle de contas\dados.txt" For Input As #n m = FreeFile() ... daí "n" e "m" teriam valores diferentes (uma vez que o número de arquivo utilizado em "n" já estaria aberto de verdade). Certo? Graymalkin

Nem todos os programas podem ser "maximizados" (a própria Calculadora é um exemplo). Porém, se você quis dizer "restaurar", então deverá lançar mão de algumas APIs para isso. Declare o seguinte em um módulo: Public Declare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Depois, utilize o seguinte código para restaurar a janela: Dim h As Long h = FindWindow(vbNullString, "Calculadora") OpenIcon h Certo? Graymalkin

Não seria mais simples utilizar os recursos de travamento da máquina disponibilizados pelo próprio Windows 2000/XP? No Win98 a idéia de ter que implementar isso é completamente aceitável (dada a total insegurança do sistema), todavia o Win2000/XP é muito superior nesse quesito. Abraços, Graymalkin

Tente isso: AppActivate "Calculadora" Certo? Graymalkin

Nada. Apenas fizeram confusão ao decidir qual a linguagem do código (e aquele "Mc#" no título ficou bem esquisitinho mesmo... parece cifra de música... ). Abraços, Graymalkin