Graymalkin

Veja se isso resolve o caso: dt.Columns.Add("0").DefaultValue = String.Empty dt.Columns.Add("1").DefaultValue = String.Empty dt.Columns.Add("2").DefaultValue = String.Empty dt.Columns.Add("3").DefaultValue = String.Empty dt.Columns.Add("4").DefaultValue = String.Empty dt.Columns.Add("5").DefaultValue = String.Empty dt.Columns.Add("6").DefaultValue = String.Empty dt.Columns.Add("7").DefaultValue = String.Empty dt.Columns.Add("8").DefaultValue = String.Empty dt.Columns.Add("9").DefaultValue = String.Empty dt.Columns.Add("A").DefaultValue = String.Empty dt.Columns.Add("B").DefaultValue = String.Empty dt.Columns.Add("C").DefaultValue = String.Empty dt.Columns.Add("D").DefaultValue = String.Empty dt.Columns.Add("E").DefaultValue = String.Empty dt.Columns.Add("F").DefaultValue = String.Empty For i As Integer = 0 To 14 dt.Rows.Add(New Object() {"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""}) Next Abraços, Graymalkin

Experimente colocar o nome do arquivo entre aspas duplas. Exemplo: Shell "C:\Arquivos de programas\Windows Media Player\wmplayer.exe -open ""C:\Minhas Musicas\Musica.mp3""" Veja se dá certo aí. Abraços, Graymalkin

Dê uma lida aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=31582 Abraços, Graymalkin

Aparece "isso" o quê? Já experimentou retirar o "On Error Goto errGravacao" para ver se dá algum erro que não seja esperado? Abraços, Graymalkin

Você não disse qual é o erro... Ajudaria se você o fizesse. Abraços, Graymalkin

Basicamente você tem três namespaces que lhe permitem conectar com um banco de dados e todos estão em System.Data (um é o OleDb, o outro é o SqlCliente e o terceiro é o Odbc). Após estabelecer uma conexão (com um objeto OledbConnection, SqlConnection ou OdbcConnection) você pode utilizar um objeto de comando (OledbCommand, SqlCommand ou OdbcCommand) para executar uma instrução SQL qualquer (como o INSERT citado). Dê uma procurada aqui no fórum e você encontrará exemplos de utilização de bancos de dados. Abraços, Graymalkin

Dê uma olhada na classe para geração de relatórios do Eduardo Oliveira: http://www.eoliv.com/index.php?o=2&s=3#2 Abraços, Graymalkin

Utilize a função Replace() para substituir a palavra desejada por uma string vazia (tirando ela do texto). Certo? Graymalkin

Como assim? Fisicamente os registros podem não ficar ordenados, mas durante a consulta você pode ordená-los da maneira que desejar. Abraços, Graymalkin

A seleção fica com aquela cor (por isso SelColor), porém a RTF é igual a um documento do Word (onde quando você define uma cor em uma seleção é possível que dali para frente, se digitado, a cor do novo texto fique sendo a mesma da seleção). Abraços, Graymalkin

No caso, "rs" e "rs2" possuem a *mesma* quantidade de registros? Porque se não possuírem realmente vai dar problema, uma vez que você incrementa o ponteiro de ambos (e, no caso, um vai *acabar* primeiro que o outro). Abraços, Graymalkin

Não, não falta. Não é mais "Caption" e sim "Text", isso mudou desde a primeira versão .NET (2002). Se você estiver utilizando o VB 2005, dirija-se a sala de .NET para tirar dúvidas, porque aqui é a sala de VB6. Abraços, Graymalkin

Já experimentou a função Replace()? Abraços, Graymalkin

O DAO só suporta até o Access 97 (se bem que eu acho que já li sobre uma atualização que permita utilizar versões mais novas). De qualquer maneira, o ideal seria migrar para o ADO e utilizar a DataGrid ao invés da DBGrid. Abraços, Graymalkin

Ah tá, a função DateValue() é só para o Access mesmo (eu presumi que você o estivesse utilizando). No caso do SQL Server talvez você precise de uma função equivalente (não sei te informar qual seria). Abraços, Graymalkin

Sim, claro. A limitação em se criar uma aplicação com Inteligência Artificial não reside na linguagem utilizada (que pode ser qualquer uma), mas sim no quanto você conhece sobre IA. Infelizmente sou leigo no assunto (de Inteligência Artificial) e não posso dar muitos detalhes sobre o mesmo. Mas nada que buscas no Google, dedicação, tempo livre e paciência não possam resolver. Abraços, Graymalkin

O VB6 é um produto comercial, portanto, você não vai encontrar ele para baixar (de forma legal), a menos que seja uma versão de aprendizado ou demonstração (o que eu acho que vai ser difícil encontrar). A nova versão do VB, o Visual Basic 2005, tem uma versão de distribuição grátis (chamada Express) que você pode baixar direto do site da Microsoft. Abraços, Graymalkin

Este assunto já rolou antes aqui pelo fórum. Experimente dar uma procurada. E dê uma olhada também no componente Py.Sendmail (http://www.graymalkin.globalhosts.com.br/pysendmail.asp), pois ele pode ser mais cômodo para se utilizar do que o MAPI. Abraços, Graymalkin

Qual o erro? De qualquer maneira, utilize a função DateValue() dentro da SQL para passar a data, como uma string. Abraços, Graymalkin

Bom, aí estão os nomes das funções existentes na DLL. O problema é que você não tem como saber os parâmetros destas funções (esta informação não é fornecida pelo impdef e não conheço algum programa que possa te ajudar nisso). A declaração nelas no VB seria através da instrução Declare. Todavia, o ideal seria ter a documentação desta DLL em mãos. Abraços, Graymalkin

Mas, acredito que você não precise fazer muita coisa para utilizar aquele código original em VB, chamando ele pelo Delphi. A idéia seria pegar tudo aquilo que está no evento Page_Load e colocar em uma rotina separada de uma classe. Daí, compilar essa classe para uma DLL e referenciar esta no seu projeto em Delphi. Desta maneira, você chamaria essa rotina da DLL criada e ela chamaria o tal componente que cria o PDF. Entendeu? Abraços, Graymalkin

Bom, sabendo o tamanho, em pixels, do texto e o tamanho máximo (do lado direito) basta subtrair um do outro. O exemplo abaixo desenha os valores alinhados no form: Dim g As Graphics = Me.CreateGraphics() Dim valores() As String = {"1.26", "12.61", "126.12"} Dim posx, posy As Single Dim limite As Single = 100 Dim fonte As New Font("Tahoma", 10) For Each valor As String In valores posx = limite - g.MeasureString(valor, fonte, 1000).Width posy = posy + 15 g.DrawString(valor, fonte, Brushes.Black, posx, posy) Next Faça um teste com o código acima (coloque-o no evento click de um botão em um form vazio) e veja se você entende o funcionamento dele. Qualquer dúvida, 'stamos aí. Abraços, Graymalkin

Selecione uma determinada quantidade de caracteres (SelLength) a partir de uma determinada posição (SelStart) e depois defina a cor da seleção (SelColor). Exemplo: texto = "Isto é um teste!" RichTextBox1.Text = texto RichTextBox1.SelStart = 0 RichTextBox1.SelLength = 4 RichTextBox1.SelColor = vbRed RichTextBox1.SelStart = 10 RichTextBox1.SelLength = 5 RichTextBox1.SelColor = vbBlue Certo? Graymalkin

Essa não é a sua resposta de outro tópico? Como ela veio parar aqui? Graymalkin

Já experimentou instalar novamente? Abraços, Graymalkin