Graymalkin

Use a RichTextBox (menu Project -> Components -> Microsoft Rich TextBox Control 6.0). Abraços, Graymalkin

Bom, nos dias de hoje, 500KB não é nada... mas se você parar pra pensar, mesmo com esse tamanho ele é pequeno em comparação a outras linguagens. Um programa em VB, por exemplo, só com uma janela e sem mais nada, fica com 16KB. Colocando algum código ele vai aumentando um pouco, mas é bem pequeno (48KB, por exemplo). Em compensação, qualquer programa do VB precisa da máquina virtual do mesmo para ser executado, cujo tamanho é de aproximadamente 1,5MB. Ou seja, não adiantou nada ter um programa pequeno, se para ele rodar precisa de um outro grande. No Delphi, apesar do tamanho do executável, tem-se a vantagem de não se precisar de bibliotecas externas (até certo ponto, é claro; poderá haver um coisa ou outra que você usará e que precisará de arquivos externos). Mas, você pode tentar diminuir esse tamanho usando o UPX: http://www.upx.org/. Ele é um compactador de executáveis, que mantém os mesmos rodando perfeitamente, após a compactação. Recomendo. Abraços, Graymalkin

Olá, Qual seria, exatamente, a sua dúvida? Abraços, Graymalkin

Acho que você postou isso na seção errada, meu amigo. O ideal seria postar na sala de Windows. De qualquer forma, se não me engano, este programa faz parte da instalação das impressoras HP mais novas. Não sei exatamente qual a função dele ou se ele é mesmo necessário. Experimente postar na sala de Windows e talvez alguém de lá possa te ajudar. Abraços, Graymalkin

Veja esta linha: int serverSocket, socket, length, i; Você acaba de definir "socket" como um inteiro. Por isso é que deve estar aparecendo o erro. E, no outro código, você definia "socket" como um SOCKET, o que dá no mesmo problema: você está definindo uma variável com o nome de uma função. Experimente trocar esse nome. Abraços, Graymalkin

É uma possível solução, porém só vai dizer que o cara tem o Office se for a versão 11 do mesmo (que, se não me engano, é a versão 2003 do pacote). Além disso, também só vai funcionar se estiver instalado no "C:\Arquivos de Programas\Microsoft Office", sendo que o mesmo pode estar instalado em qualquer outro lugar. De qualquer forma, como eu disse, é uma possível solução. Ah, uma dica: se você precisa saber se um arquivo existe ou não, não precisa utilizar a função Open e o tratamento de erros, basta usar a função Dir(), passando o caminho do arquivo. Se o retorno for diferente de "", é porque o arquivo existe. Abraços, Graymalkin

Você incluiu o cabeçalho <winsock2.h>? E, além disso, você tem que linkar o arquivo libws2_32.a (Projeto -> Opções do Projeto -> Parâmetros -> Adicionar Arquivo). Abraços, Graymalkin

Em geral, a utilidade de uma função é independer de coisas presentes no form. Note que a sua função só vai funcionar se existir um edtNumero1, edtNumero2 e um lblResultado no form. E se você quiser utilizar essa mesma função em outro local? Não que seja errado fazer o que você fez, mas não é prático. Além disso, o seu jeito de calcular potências não está correto. O ideal seria que a função fosse: function Potencia(X, Y: integer): integer; var i, resultado : Integer; begin resultado := 0; if (X<>0) then begin resultado := 1; for i:=1 to Y do resultado := resultado * X; end; Potencia := resultado; end; Daí, para utilizá-la você faria: lblResultado.Caption := IntToStr(Potencia(StrToInt(edtNumero1.text), StrToInt(edtNumero2.text))); A vantagem de utilizar a função do jeito que coloquei foi que você pode fazer: showmessage(IntToStr(Potencia(2, 3)); Do jeito que você tinha esquematizado, o código acima não seria possível (já que o que valeria seriam os valores das edits e o resultado sempre iria para a label). Ah, e vale lembrar que existe uma função, chamada Power(), que já faz isso. Basta incluir Math na cláusula Uses e utilizá-la, da seguinte maneira: showmessage(floattostr(power(2, 3))); Sacou? Abraços, Graymalkin

Por "separados por médico" você quer dizer, ordenando pelo nome do médico? Ou seja, todos os pacientes de um mesmo médico estariam listados um abaixo do outro. Seria isso? Se for, você pode fazer uma SQL assim: SELECT cod, nome, end, cidade, uf, proced, medico FROM tabela ORDER BY medico, nome; Você pode colocar isso em uma Query e ligar a mesma à DBGrid. Abraços, Graymalkin

Humm, compreendo. Bom, realmente não sei se um Recordset serve como origem dos dados nesse caso. Mas, se você puder postar aqui o código que está usando para abrir o relatório, posso tentar fazer algo. Melhor ainda, seria se você pudesse enviar o banco de dados (só com uma tabela, a consulta e o relatório), além do código para abrir o relatório via VB, para o meu e-mail. Não me lembro nunca de ter feito algo assim, já que não gosto de depender do Access instalado na máquina. Abraços, Graymalkin

Para o caso dos ícones, dê uma olhada na API ExtractIcon (de preferência, veja no API-Guide (www.mentalis.org), pois deve ter um exemplo de como usá-la). E, para adicionar um botão em tempo de desenvolvimento, faça: Dim botão As CommandButton Me.Controls.Add "VB.CommandButton", "botão" Set botão = Me.Controls("botão") botão.Caption = "Meu Botão!" botão.Width = 1000 botão.Height = 1000 botão.Top = 500 botão.Left = 500 botão.Visible = True Abraços, Graymalkin

Dê uma olhada neste post: http://scriptbrasil.com.br/forum/index.php?showtopic=45743 Abraços, Graymalkin

Alegra-te, pois só encontrei três erros e todos de ordem sintática. Na linha... CRT; ... o correto é: uses CRT; E os outros dois erros é que falta o ponto-e-vírgula nas linhas 4 e 18. Um possível erro está na expressão do resultado final, mas não sei exatamente a qual resultado você quer chegar. Note que a ordem de precedência dos operadores segue a mesma da nossa Matemática, ou seja, os operadores * e / são resolvidos antes dos operadores + e -. Mas, como não sei exatamente o que você quer, pode estar certo do jeito atual. Abraços, Graymalkin

Para o feijão-com-arroz do chat, dê uma olhada aqui: http://desenvolvedores.net/modules.php?nam...=article&sid=27. Para os outros pormenores, todos vão depender de você ter criado a base do chat (inclusive colorir o texto, o que você pode fazer com uma RichTextBox). Abraços, Graymalkin

Mas, então por que você deixa a gravação no registro nesta rotina? O VB é orientado a eventos, portanto *você* define em *qual* evento tal coisa deve ser executada. Se você não quer que isso seja gravado durante a inicialização do programa (ou seja, o evento Load), basta mudar para onde você quer que seja (o evento Click de um botão, o evento Change de uma TextBox ou de uma ComboBox, etc.). Se o usuário pode mudar isso durante a execução do programa, não seria sensato ter um botão onde ele pudesse *confirmar* o novo valor? Então, neste botão entraria o código. Mas, vale atentar para outra coisa, uma vez que aquele código todo está no evento Load: a variável declarada ali é local, ou seja, ela deixará de existir após a rotina terminar. Não adiantará tentar gravar o valor de VAR em qualquer outra rotina, uma vez que ela não existirá mais. Para que ela exista em qualquer lugar, declare-a em um módulo. Para que ela exista em qualquer lugar do form, você pode ainda, declará-la no General Declarations. Abraços, Graymalkin

Hummm... na verdade, o exemplo de que falei seria sobre o seu primeiro problema (o do BD). De qualquer forma, o seu código para envio de e-mail está correto. Apenas você deve verificar se o seu servidor SMTP não precisa de autenticação (nome de usuário e senha) para poder permitir o envio (no caso o Terra). Se você pudesse testar com outro servidor seria melhor ainda. Abraços, Graymalkin

O que ser um "AS/400"? Abraços, Graymalkin

Não me lembro a definição completa dela de cabeça, mas prometo que quando chegar a casa vou dar uma olhada e posto aqui um exemplo. Abraços, Graymalkin Como prometido, segue um exemplo: SELECT campo1, campo2 INTO novatabela FROM tabela; Note que existirá uma nova tabela (chamada novatabela) com os campos campo1 e campo2 e todos os registros da tabela original (tabela). Obviamente você pode colocar a cláusula WHERE ali para definir um critério, se não quiser pegar todos os registros, mas sim apenas alguns. Vale observar que não é possível "substituir" uma tabela através da SQL acima, ou seja, se uma tabela chamada "novatabela" já existir quando o código for executado resultará em um erro (mas isso é possível resolver com um DROP TABLE). Abraços, Graymalkin

Grave uma macro fazendo exatamente o que você quer (digitar um texto no documento atual) e depois bastará olhar o código da mesma. Com poucas modificações você leva ele para o VB. Abraços, Graymalkin

Você não pode passar um parâmetro pela URL? Tipo: www.pespontodunel.com.br/site/adm/pagina.php?vb=1 Bastaria que o seu navegador em VB adicionasse o parâmetro à URL automaticamente. Seria isso? Abraços, Graymalkin

Não me lembro a definição completa dela de cabeça, mas prometo que quando chegar a casa vou dar uma olhada e posto aqui um exemplo. Abraços, Graymalkin

Não tenho confirmar agora, mas acho que não. Se me lembro bem as propriedades que uso no código com a MSHFlexGrid não existem na DBGrid. Abraços, Graymalkin

Em geral as alterações já são salvas imediatamente após você sair de um registro alterado para outro ou ao fechar a tabela. Abraços, Graymalkin

Pois eu não vejo diferença entre a sua pergunta e a minha. Do mesmo jeito que você está usando o tal código e não está vendo diferença, eu também não vi. Além disso, eu apenas pedi um exemplo de uma página que fizesse isso. Isso é algum crime hediondo? Eu ofendi alguém por fazer um simples pedido? Já reli minha frase dezenas de vezes tentando, em vão, achar um tom ofensivo na mesma, que justifique a resposta do marco_804 ou a sua. Leia novamente: "Só em sites totalmente criados em Flash (ou tecnologias do tipo) é que vejo isso." Note que estou dando um exemplo de minha experiência: a frase é extremamente clara quanto a isso. Está implicíto um "eu" ali após o "que". É besteira dizer isso? É alguma heresia exclamar seu próprio conhecimento de algo? Ainda mais quando você explicita que é algo "seu", sem generalizar? Em momento algum eu disse que qualquer um aqui estava errado ou certo, inclusive eu mesmo. Eu algum momento eu disse que sabia mais do que os outros? Sinceramente, não sei de onde você tirou essa idéia. Quanto a esperar que outros (que, como você disse, "saibam mais do que eu") respondam à pergunta, ouso dizer que não admito isso como uma solução. E não, não é por causa da parte do "saibam mais do que eu", mas sim pelo simples fato de que é através da discussão que se resolvem as coisas. Afinal de contas, isso aqui é ou não é um fórum de discussão? Não sou do tipo que se cala ou que se faz de sabido diante de coisas desconhecidas: eu pergunto mesmo! Não é nenhum pecado capital não saber algo e perguntar. Muitas vezes a forma como as pessoas colocam suas perguntas não deixa margem para respostas, uma vez que ou não está bem formulada ou o assunto é tratado sobre outro ângulo. Justamente através dos "como assim?", "mas, por que...?", "e se fosse...?", e outras tantas frases interrogativas usadas em uma discussão, que se pode esclarecer o ponto de foco. E isso ajuda não só os envolvidos no diálogo como também os outros membros que estarão lendo as mesmas perguntas e respostas e acompanharão o raciocínio até o fim (cujas perguntas e respostas poderiam surgir durante a leitura dos posts iniciais). Por fim, deixo minhas sinceras excusas ao moderador, por estar abordando aqui algo fora do escopo da sala. O problema é que, uma vez por outra, sempre é necessário fugir do assunto principal a fim de que possamos estabelecer alguns pontos de discórdia entre os relacionamentos sociais. Devemos sempre nos lembrar que este é um fórum público e que existe envolvimento humano, havendo assim, é claro, diversos desacordos. Extremamente aceitável até aí. Porém, uma vez que essas divergências extrapolam o limite da educação e do bom convívio, não se deve ficar calado perante tais atos. Abraços, Graymalkin

Se você está gravando o valor no registro, por que simplesmente não o lê de volta? Algo como: Dim Reg As Object Set Reg = CreateObject("wscript.shell") VAR = Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Programa\CArquivo") Certo? Abraços, Graymalkin