Graymalkin

O que é um "Sistema da tela preta IBM"? :unsure: Graymalkin

Eu fiz assim e deu certo: char linhas[200][200]; int atual = 0; do { gets(linhas[atual]); atual++; } while (strcmp(linhas[atual-1], "EOF")!=0); Abraços, Graymalkin

Em um arquivo texto (TXT) não há qualquer tipo de formatação, somente a sequência de caracteres (bytes) que formam o mesmo. Qualquer tipo de formatação você esteja vendo no Bloco de Notas é da fonte selecionada. Abraços, Graymalkin

Veja como abrir a janela para selecionar um arquivo e em seguida carregar a foto na picturebox (pbFoto): Dim abrir As New OpenFileDialog() abrir.Filter = "Arquivos de Imagem|*.jpg;*.bmp;*.gif;*.png" If abrir.ShowDialog() = Windows.Forms.DialogResult.OK Then pbFoto.Load(abrir.FileName) End If Creio que o código seja auto-explicativo, mas se tiver alguma dúvida, é só perguntar. Agora, se a sua intenção é guardar a foto do cadastro junto com o registro do corretor você deverá: ou guardar o caminho do arquivo (que está em "abrir.FileName") em um campo texto; ou usar um campo binário para armazenar o conteúdo do arquivo. A última opção é mais complicada e vai depender do BD utilizado. Abraços, Graymalkin

Você não estaria chamando o método Read() duas vezes? Abraços, Graymalkin

Desculpe a ignorância... mas o que é um "VPS"? E um painel "HPS"? :unsure: Ah, beleza então. Vou comunicar os admins. :) Abraços, Graymalkin

Você só precisa que o servidor tenha o Excel instalado. Se não tiver ele, não vai rolar. Abraços, Graymalkin

Sim, o Python vem com um manual. No IDLE vá em Help -> Python Docs (ou pressione F1). Você também encontra essa mesma documentação em versão on-line aqui: http://www.python.org/doc/ Abraços, Graymalkin

Rapaz... que dúvida cabeluda, hein? Bom, eu não uso o Crystal, portanto você vai ter que testar aí. Primeiro, qual é a fonte do seu relatório? Acredito que só tenha sentido falar em caracteres por polegada com uma fonte na qual *todos* os caracteres tenham o mesmo tamanho. Por exemplo, fiz um teste aqui com a fonte Tahoma (com tamanho 8,25) e veja as larguras (em polegadas) dos caracteres: a = 0,0625" W = 0,1041667" Já com uma fonte de tamanho fixo, como a Courier New, você tem os mesmos tamanhos para os diferentes caracteres: a = 0,07291666" W = 0,07291666" Daí, se dividirmos 1.0" (uma polegada) pelo tamanho de 1 caracter (0,07291666"), obteremos: 13,7142869681634. Então, eu *acho* que você deveria colocar 13,71 caracteres por polegada (se puder ser um valor quebrado, se não tente 13 ou 14). Como eu disse antes, não posso testar e corro o risco de estar falando besteira, já que não sei como isso funciona exatamente. Abraços, Graymalkin

Seria assim: If DR.Read() Then If Not IsDBNull(DR("Nome")) Then mCodigo = DR("Codigo") mNome = DR("Nome") mEndereco = DR("Endereco") mNascimento = DR("Nascimento") mCPF = DR("CPF") mRG = DR("RG") End If Else MsgBox("Cliente inexistente.") End If Mas, qual é o erro (a mensagem) que dá? Abraços, Graymalkin

Você pode passar parâmetros como você citou, usando a função Command() para obtê-los no programa. Experimente colocar no Load do form (ou em um botão): msgbox command() Compile o executável e o chame passando um parâmetro qualquer para você poder ver o mesmo na caixa de mensagens. Alternativamente, você pode usar Sockets como o Lucas sugeriu, ou pode fazer uma comunicação mais simples e clara usando o meu componente XComm, que serve justamente para comunicar dois programas. Com ele você pode passar "mensagens" de um programa para outro em tempo de execução. Baixe-o aqui (ele acompanha um exemplo de utilização em VB): http://www.gs.kitbr.com/xcomm.html Abraços, Graymalkin

Eu estou a uma pá de tempo querendo fazer teste. Quem sabe agora eu crio coragem? :) Bom, qual é a sua distribuição Linux? Me diga qual é para que eu possa baixar a mesma versão e tentar instalar o Mono nela. Isso é muito importante visto que no Linux muitas coisas mudam de uma distro para outra. Não prometo ter uma solução pra já, uma vez que meu tempo livre é meio limitado, mas posso tentar ajudar. Abraços, Graymalkin

Bom, a idéia básica é percorrer cada item da segunda listbox adicionando na tabela. Se o banco está corretamente normalizado, você deverá ter uma maneira de obter o código de cada item da segunda listbox a fim de adicionar o par código do cliente, código do produto. Abraços, Graymalkin

Dê uma olhada nestes tópicos: http://scriptbrasil.com.br/forum/index.php?showtopic=90195 http://scriptbrasil.com.br/forum/index.php?showtopic=80703 http://scriptbrasil.com.br/forum/index.php?showtopic=59980 Eles *não* têm a solução específica para o seu problema, mas vão te ajudar a entender do que você precisa. Abraços, Graymalkin

Isso já funciona desse jeito. É só você fazer com que os dois computadores utilizem o mesmo BD. Você pode colocar o seu programa em uma pasta compartilhada da rede e todos os computadores executarem o programa de lá (consequentemente usando o BD que está lá). Se me lembro bem, quando eu usava DAO, eu usava o Form_Load que é para quando o form é carregado pela primeira vez. O Form_Activate é chamado cada vez que o form é ativado (cada vez que ele ganha o foco). Pode ser, mas não precisa se já estiver preenchido na propriedade do componente. Abraços, Graymalkin

Baixe aqui: http://www.gs.kitbr.com/files/mdac_typ.zip http://www.gs.kitbr.com/files/jetsetup.zip Abraços, Graymalkin

Verifique o retorno de Dr.Read(). Se retornar True é porque o registro foi lido, caso contrário ou não tem ou acabaram. Abraços, Graymalkin

Use a função listdir() do módulo os: import os print os.listdir("/") Certo? ;) Graymalkin

Acho que você quis dizer "fechar o tópico", não? Só deletamos tópicos cujo conteúdo é impróprio. Tudo que é pertinente fica para referência futura. Abraços, Graymalkin

A renderização realmente fica um pouco diferente de UTF-8 para ANSI. Provavelmente porque o UTF-8 pode representar mais caracteres (cujos tamanhos são variáveis). É o contrário... ANSI é o ideal para transmissão de dados, já que *só* trabalha com caracteres de 8 bits (1 byte). Já o UTF-8 pode ter caracteres de 1 até 4 bytes, podendo representar todos os caracteres dos alfabetos do mundo todo. Abraços, Graymalkin

Sim, usando CSS e o posicionamento relativo você pode atingir o que o Denis disse (a disposição se adaptar à configuração de vídeo do cliente). Dê uma pesquisada sobre CSS. Abraços, Graymalkin

Valeu, Luis. Já corrigi o link. Abraços, Graymalkin

Use o * como caracter curinga: Data1.RecordSource = "SELECT * FROM Pedro WHERE placa like '" & Text2.Text & "*'" Abraços, Graymalkin

Porque só se usa () no VB6 quando se quer retornar algo (ou quando se quer passar *um* parâmetro por valor, sem que o mesmo o seja). Sua linha deveria ser: MsgBox "Note que você acaba de gerar um novo caminhao no sistema, porém falta detalhes de seus pneus, clique em um pneu, depois em 'Adcionar Dados Desse Pneu', logo após complete os dados e clique em OK.", "Atenção" E a linha... MsgBox ("Não Foi Inserido Uma Placa Valida") ... funciona porque só tem um parâmetro (como eu disse no primeiro parágrafo), porém ele está sendo passado por valor. Abraços, Graymalkin

Provavelmente você vai precisar de recursos além do VB para fazer isso (funções da API Win32). Use o evento MouseMove. Abraços, Graymalkin