Fireboard

Valeu, obrigado

Inseri a mensagem no meu programa: messagedlg('Não há senha digitada' + chr(13) + 'Digite uma senha válida',mtError,[mbok],0); funciona corretamente, só que eu queria que na barra de título não aparecesse a mensagem 'ERROR' e sim uma mensagem digitar por mim, isso é possível?

Entendi, obrigado, tá rodando certinho

Funcionou, muito obrigado, valeu mesmo

Continua dando erro, a mensagem é a mesma: undeclared identifier: " loCaseInsensitive " Seu eu deixar o código abaixo sem a opção loCaseInsensitive, só com [] no final o programa roda if not Dtlog.Tblogin.Locate('usuario;senha', VarArrayOf([Edusuario.Text, Edsenha.Text]), [loCaseInsensitive]) then begin showmessage ('usuario invalido'); exit; end;

Encontrei tópicos relacionados a como usar os métodos loPartialKey e loCaseInsensitive, mas não consegui resolver meu problema. Peço o nome de usuário (edusuario.text) e senha (edsenha.text), daí pesquiso no banco de dados se os dados digitados são válidos, só que dá erro ao compilar. A mensagem é: Undeclared identifier: 'loPartialKey' e Undeclared identifier: 'loCaseInsensitive'. Em um tópico foi dito para verificar se a unit faz referência ao método ou algo nesse sentido, eu verifiquei e aparentemente está do jeito que foi dito. o código é esse: if not Dtlog.Tblogin.Locate('usuario;senha', VarArrayOf([Edusuario.Text, Edsenha.Text]), [loPartialKey, loCaseInsensitive]) then begin showmessage ('usuario invalido'); exit; end; O que pode estar dando errado? Muito Obrigado

Execute o seu projeto teclando F8. O VB irá passando linha por linha. Se alguma estiver com algum erro você verá qual é.

vTemp = mask1.Mask mask1.Mask = "" mask1.Text = "" mask1.Mask = vTemp

Há uma biblioteca para código de barras: CTKBCDC, você pode baixar grátis Dê uma olhada neste link: http://www.microsoft.com/brasil/msdn/Tecno...digoBarras.mspx , acho que poderá ajudá-lo. Você já consultou o banco se há algum meio de gerar um arquivo texto do seu sistema e importar no sistema do banco? Seria uma outra opção.

Você já verificou se o banco fornece o programa? Normalmente os bancos fornecem gratuitamente o programa para emissão de boletos e até enviam um técnico até a empresa para instalá-lo se preciso. Dê uma olhada neste link, acho que pode te ajudar: http://www.macoratti.net/boleto.htm

Ander, para você inserir o objeto common dialog você deve adicionar o componente Microsoft Windows Common Dialog 6.0 no menu Project / Components ou digitar CTRL T. ----------------------------------------- CommonDialog1.ShowPrinter Você pode fazer isso de várias formas: on error resume next If Err.Number = 32755 Then exit sub ' sai fora da sub e não imprime nada endif ou on error resume next if err.number <> 32755 then ... ' realiza a impressão ...

Beleza fera, é isso mesmo! muito obrigado

Pessoal é o seguinte: commondialog.show printer Eu seleciono a impressora que desejo imprimir, clico em ok e o sistema imprime normalmente, até aí tudo bem, mas, se por acaso clico em cancelar o sistema imprime mesmo assim. Como faço para que se for clicado em cancelar o sistema não imprima? Procurei no forum mas não encontrei algo parecido. Obrigado

Consegui Eu substituí a opção LPT1 pelo caminho da rede da impressora. A rede é Novell, não sei se em redes Windows e Linux dá certo. Open "\\caminho da rede\\nome da impressora" for output as #1 Obrigado

Estou utilizando a rede novell e os terminais são windows 98. Preciso imprimir em um outro micro que tem uma impressora matricial, esta impressora está configurada para ser usada em rede, capturei a porta lpt1 pelo windows, mas quando vou imprimir pelo programa feito no VB é exibido uma mensagem de erro. Há como eu capturar pelo VB a porta lpt1? Obrigado

Não estou conseguindo entrar num acordo. Por favor, no que estou errando? Vou imprimir etiquetas com 5 colunas e o tamanho do papel A4. A rotina redimensiona o objeto picture para o tamanho correto, mas não consigo inserir o objeto dentro da picture um do lado do outro (para eu imprimir em colunas). Private Sub Command1_Click() Dim alt, larg As Integer ' alt = altura e larg = largura do objeto alt = ean.Height larg = ean.Width Do While x < 5 pic.Width = larg pic.Height = alt pic.ScaleHeight = alt pic.ScaleWidth = larg pic.Picture = ean.BarPicture ' <-- imprime um em cima do outro pic.PaintPicture ean.BarPicture, alt, larg, ScaleHeight, ScaleWidth ' <-- deste jeito também não deu certo alt = alt + ean.Height larg = larg + ean.Width x = x + 1 Loop End Sub Obrigado

Boa idéia, vou fazer isso Obrigado

Inseri um objeto listview com a rotina abaixo: Do While tbprod.EOF = False Set lista = lstv1.ListItems.Add(, , tbprod("codigo")) lista.SubItems(1) = tbprod("descricao") lista.SubItems(2) = tbprod("cor") lista.SubItems(3) = Format(tbprod("codbar"), "000 0000 00000-1") lista.SubItems(4) = tbprod("grupo") tbprod.MoveNext Loop Nas propriedadas do objeto quando vou alinhar a primeira coluna a direita o VB exibe a mensagem: "The first column in a listview contrl must be left aligned". Eu queria alinhar a primeira coluna à direita. Alguém sabe se é possível fazer isso? Muito obrigado

Preciso fazer o seguinte: Preciso imprimir etiquetas contendo pictures onde a quantidade de colunas será informada pelo usuário. Como faço para que a picture alinhe uma figura do lado da outra sem sobrescrever uma imagem em cima da outra? Usei estes comandos para dimensionar o tamanho da picture: pic.ScaleHeight = alt pic.ScaleWidth = larg pic.Picture = ean.BarPicture ' esta linha transfere o objeto ean para o objeto picture Vou imprimir esta picture depois. Há alguma forma mais fácil de fazer isso ou devo usar a picture mesmo? Obrigado

Moçada, encontrei o que eu precisava. Se interesssar a alguém que esteja trabalhando com código de barra ou um dia precise acesse: http://www.microsoft.com/brasil/msdn/Tecno...digoBarras.mspx Valeu

Fiz uma rotina para gerar código de barra. Baixei várias fontes de código de barra para eu poder imprimir o código, mas nenhuma das fontes é compatível com o padrão EAN 13. Procurei em muitos sites uma fonte compatível com o padrão EAN 13 mas não encontrei. Há como eu imprimir através dos números do código as barras para leitura? Ou há alguma fonte compatível com o padrão EAN 13 para eu utilizar no VB? alguém sabe como posso fazer isso? Obrigado

Realmente tem a ver com a instalação do programa. Instalei um programa em 3 máquinas que rodam em Windows 98 e as três ficaram com o mesmo problema. Será que se eu substituir as DLLs que o Instalador instalou nestes micros por outras DLLs de micros que estão funcionando resolve? Quais são as DLLs instaladas? Há como eu saber?

De certa forma sim, mas como este campo trabalha com valores então fica complicado. Este campo imprime o valor digitado pelo usuário por extenso Exemplo: R$ 1.000,00 - o campo imprime um mil reais. Mas se for 18.528,42 - o campo vai ter que impimir em duas linhas, não tem jeito.

Minha dúvida é a seguinte: Fiz um programa que imprime recibos (3 por folha), mas há registros que imprimem uma linha a mais do que o outro dependendo do que o usuário digitou. Esses registros quando imprimem uma linha a mais fazem com que a última linha seja impressa na próxima folha. Como eu possa fazer para que não occorra isso? Há como aumentar a margem inferior do papel? ou há como digitar um comando para que o printer ajuste automaticamente os registros para impressão? Qual a melhor forma de corrigir esse problema? Defini o tamanho do papel como A4. Obrigado

' Insira duas caixas de texto (Text1.text e text2.text ) ' Insira 1 label (label1) ' Insira um botão de comando (command1) Dê um duplo click no botão de command command1 e digite o código abaixo: Private sub command1() dim num1 as integer, num2 as integer, resultado as integer ' Você pode digitar números decimais também num1 = text1.text num2 = text2.text resultado = num1 * num2 label1.caption = "Resultado »»» :" & resultado End sub Há várias maneiras de fazer esse algoritmo. O correto também seria fazer uma checagem para ver se o usuário digitou os dois valores e se os valores são numéricos antes de fazer o cálculo.