Graymalkin

Também tenho esse problema quando utilizo filtros ou relacionamentos na tabela. Do contrário funciona rápido. E não faz tanta diferença ter um servidor rápido, no caso do Clipper, já que o acesso aos dados é local (através de um mapeamento, é claro) e acaba-se não tendo esforço do servidor em gerar os dados e enviar os mesmos (como se teria em uma aplicação cliente-servidor). Por essa razão o acesso pode se tornar lento (ainda mais com arquivos grandes, que são abertos por completo nos terminais). Abraços, Graymalkin

No caso do incremento, você pode declarar a variável no General Declarations (no topo da janela de código, fora da rotina) ou declará-la como estática fazendo (dentro da rotina): static a Abraços, Graymalkin

Na pasta "bin" tem o compilador (booc.exe). Tenha certeza de que você baixou a versão binária e não o código-fonte. Para compilar basta digitar: booc arquivo.boo Abraços, Graymalkin

Já usei dBASE com DAO. Se não me engano, seria algo assim: Dim db As Database Dim rs As Recordset Set db = OpenDatabase("c:\pasta", , , "dBASE III;") Set rs = db.OpenRecordset("SELECT * FROM tabela") Mas não tenho absoluta certeza se isso está certo. Abraços, Graymalkin

Eu reinstalei o Windows todo de novo (não por cima, mas sim uma cópia nova). Abraços, Graymalkin

Talvez, não me lembro de ter tentado isso. Abraços, Graymalkin

O que seriam esses "1 2 3 4 50"? Também seriam somados? Onde o "d" entra na conta? Note que "Soma" fica com o somatório de "n", mas "d" não é utilizado em parte alguma, a não ser para ser incrementado. E se o "D" for os números que perguntei acima, ele deveria ser incrementado apenas de 1 e não de 2. Abraços, Graymalkin

Para os fãs de Python e interessados na CLI (Common Language Infrastructure), vale a pena dar uma olhada na linguagem de programação Boo (http://boo.codehaus.org/). Apesar de não ser uma implementação de Python para as plataformas .NET e Mono, a síntaxe da linguagem tem sua inspiração na linguagem de Guido van Rossum. Abraços, Graymalkin

Iiiiiiiiiiiiiiiiii ae complica tudo ainda mas que to comecando a me acostumar com o VB 6 Então é melhor eu ficar mesmo com o vb6 Nem tanto. Além do que, você poderia considerar o VB.NET como uma outra linguagem e aprendê-lo ao mesmo tempo que usa VB6 (até porquê boa parte dos conhecimentos já adquiridos são válidos). Lembrando ainda que saber duas linguagens é melhor do que saber uma, e três ou mais é melhor ainda! Abraços, Graymalkin

Você quer dizer deixá-lo com uma forma diferente? Por exemplo, tornando as bordas invisíveis e deixando ele redondo? Se for o caso, você pode utilizar PictureBoxes para isso (elas tem os mesmos eventos que nos são úteis no botão, por isso não há problemas); dê uma olhada nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=25441 Abraços, Graymalkin

Não aceitará. Certas instruções (como a Open) foram abolidas da linguagem. Certas cláusulas e estruturas também sofreram modificações (While não termina mais com Wend e sim com End While, Type agora é Structure), e também certos tipos de dados foram trocados e/ou removidos (por exemplo, o que era Integer no VB6 passou a se chamar Short no VB.NET e o que era Long no VB6 passou a se chamar Integer no VB.NET). Abraços, Graymalkin

Ok, eu só queria que você pelo menos tentasse fazer sozinho. Mas segue aí o código: SavePicture Picture1.Picture, "c:\teste.gif" Supondo que Picture1 é a sua PictureBox que tem a imagem e que "c:\teste.gif" é o arquivo de destino. Porém, se a intenção é apenas copiar (sem ser necessário exibi-la na PictureBox) você pode fazer assim diretamente: FileCopy "c:\figura.gif", "c:\gifs\figura.gif" A linha acima copia o arquivo "figura.gif" que está no "c:\" para "c:\gifs" com o mesmo nome (sim, é necessário informar o caminho completo, não apenas a pasta). Vale ressaltar que o diretório (c:\gifs) já deverá existir ou ser criado antes da código acima (você pode criá-lo com a rotina MkDir). Abraços, Graymalkin

Em relação à label, você pode fazer o seguinte: Private Sub Label1_Click() Label1.BorderStyle = IIf(Label1.BorderStyle = 0, 1, 0) End Sub Abraços, Graymalkin

Aparentemente está tudo certo. Se você tem certeza de que o resultado da consulta retorna mais de um registro tente reparar o banco de dados (no caso do Access). Experimente também dar uma olhada na propriedade RecordCount do objeto "ff" após a abertura da tabela. Abraços, Graymalkin

Fica difícil estabelecer isso já que, pelo que li a respeito do assunto, não existe um consenso geral sobre o que uma linguagem OO deve ter. No entanto, vale a pena dar uma pesquisada sobre o assunto. Abraços, Graymalkin

Claro. O que no VB6 você *poderia* fazer assim: Dim n as byte, texto as string n = Freefile() texto = "um teste" open "c:\teste.txt" for output as #n print #n, texto close #n No VB.NET você *pode* fazer assim: Dim arquivo As New IO.StreamWriter("c:\teste.txt") Dim texto As String = "um teste" arquivo.WriteLine(texto) arquivo.Flush() arquivo.Close() Outra diferença é que no VB6 você precisava ter um arquivo único para criar uma classe. No VB.NET você pode declarar classes no próprio form (ou em arquivos separados, porém pode-se criar várias classes em um único arquivo). O seguinte pode ser declarado no código de um form (fora de um procedimento): Class MinhaClasse Public Sub Olá(ByVal nome As String) MessageBox.Show("Olá, " & nome) End Sub End Class Class MinhaClasseDerivada Inherits MinhaClasse Public Sub Oi(ByVal nome As String) MessageBox.Show("Oi, " & nome) End Sub End Class Daí, você pode utilizá-las assim: Dim k As New MinhaClasse() k.Olá("Ramon") Dim obj As New MinhaClasseDerivada() obj.Olá("Ramon") obj.Oi("Ramon") Repare que "k" é uma instância de MinhaClasse e que "obj" é uma instância de MinhaClasseDerivada. O interessante aqui é que "MinhaClasse" tem apenas o método "Olá", porém "MinhaClasseDerivada" tem tanto o método "Olá" (que veio da "MinhaClasse") quanto o método "Oi" (que foi declarado nela mesmo). A chave aqui é a linha "Inherits MinhaClasse" que faz com a classe herde todos os métodos, eventos e propriedades da classe "MinhaClasse". Essa prática ("herança") não existia no VB6. Qualquer dúvida, 'stamos aí. Abraços, Graymalkin

GetDriveType() é uma função interna do Windows, que não está disponível no VB sozinho. Para utilizá-la, você deve declará-la. O programa que sugeri (API-Guide) tem a declaração e um exemplo de utilização da mesma. Abraços, Graymalkin

Você tem certeza que o IIS (Internet Information Services) está ativo e operando? Se não tiver, abra o navegador e digite na barra de endereços: "http://localhost" (sem as aspas). Se uma página for exibida, é porque ele está funcionando, caso contrário você deve ativá-lo. Porém, comigo não adiantou ativá-lo *depois* de instalar o VS.NET (isso deveria ter sido feito *antes*). Mesmo assim, você pode tentar. No item Ferramentas Administrativas do Painel de Controle terá alguma opção para ativá-lo (não me recordo o nome agora). Abraços, Graymalkin

Não, mas você pode verificar isso através da divisibilidade por 2 (com o operador Mod). Abraços, Graymalkin

Marque-o na opção Components do menu Project. Depois adicione-o ao form e basta usar seus métodos. Abraços, Graymalkin

Seria com o SavePicture(), como disse acima. Abraços, Graymalkin

Já resolvi o problema: a questão era a pasta que estava autorizada a executar (no caso era só a pasta raíz). Abraços, Graymalkin

Programas mesmo (Windows Applications) ou Web Applications? Graymalkin

Em outros posts você encontra exemplos do CommonDialog e em relação a abrir e salvar a figura, dê uma pesquisada sobre LoadPicture e SavePicture. Abraços, Graymalkin

Realmente. Talvez seja possível fazer isso através de Subclassing, mas não sei como seria. Dê uma procurada a respeito no Google ou no Yahoo. Abraços, Graymalkin