Graymalkin

Se não me engano, é o tipo que pode armazenar caracteres Unicode (UTF-8 ou UTF-16, acredito). Abraços, Graymalkin

Sobre a questão da marca d'água, conheço uma solução em outra linguagem (o módulo PIL em Python) na qual seria possível criar um componente (COM) para ser utilizado via Delphi. Se você tiver interesse posso te passar exemplos. Abraços, Graymalkin

É possível automatizar esse preenchimento dos textos, percorrendo os elementos do form e utilizando a propriedade Name ou a propriedade Tag para identificar cada controle. Bastaria fazer uma busca na tabela (utilizando o nome ou a tag) e preencher o controle. O exemplo abaixo percorre os elementos do form mostrando seus nomes: var i : integer; begin for i:=0 to self.ControlCount-1 do begin showmessage(self.Controls[i].Name); end; end; Abraços, Graymalkin

Experimente o componente Py.Sendmail: http://www.graymalkin.globalhosts.com.br/pysendmail.asp Ele tem um exemplo feito no Delphi 7, veja se serve para o 2005 ou o 8. Caso contrário, é só falar que eu vejo o que posso fazer. Abraços, Graymalkin

Experimente utilizar o write() mesmo, porém concatenando o #13 ou o #10 à string a ser impressa. Faça o teste com os dois valores e veja qual deles pula somente uma linha. É só um chute, nunca tive esse problema. Abraços, Graymalkin

Sem problemas! E eu estou quase vegetando aqui... estou vendo a hora que vou cair aqui no chão, babando e me contorcendo... (não vou trabalhar essa semana e nem ir pra faculdade pra terminar esse projeto...) Abraços, Graymalkin

Não, mas você consegue com o avô de "s" (pai do pai). Dê uma lida no meu post acima. Abraços, Graymalkin

É, estou aprendendo bastante coisa com esse projeto (só isso mesmo que está valendo a pena... ). Mas, o código ali não é difícil de entender não... Dim botão As LinkButton = sender Dim célula As TableCell = botão.Parent Dim item As DataGridItem = célula.Parent Dim página As Page = botão.Page página.Response.Write(item.Cells(1).Text) Todo objeto conhece o próprio pai (Parent), ou seja, conhece o objeto que o contém. Como "sender" (Remetente) é quem chamou a rotina, vai ser o próprio LinkButton. O pai dele vai ser uma TableCell, que é uma célula da DataGrid. O pai da TableCell vai ser um DataGridItem que representa uma coleção de TableCells. Encontrando ele, o DataGridItem, bastou pedir a célula desejada para ele. Sacou? Abraços, Graymalkin

Consegui fazer assim: Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Put user code to initialize the page here Dim dt As New DataTable("Tabela") dt.Columns.AddRange(New DataColumn() {New DataColumn("Código", Type.GetType("System.Int32")), New DataColumn("Nome", Type.GetType("System.String"))}) dt.Rows.Add(New Object() {1, "Junior"}) dt.Rows.Add(New Object() {2, "Graymalkin"}) dt.Rows.Add(New Object() {3, "Nab"}) dt.Rows.Add(New Object() {4, "Jesiel"}) Dim d As New TemplateColumn DataGrid1.Columns.Add(d) d.HeaderText = "Confirma?" d.ItemTemplate = New ColunaLinkButton DataGrid1.DataSource = dt DataGrid1.DataBind() End Sub Public Class ColunaLinkButton Implements ITemplate Public Sub InstantiateIn(ByVal container As System.Web.UI.Control) Implements System.Web.UI.ITemplate.InstantiateIn Dim l As New LinkButton l.Text = "Confirmar" AddHandler l.Click, AddressOf ColunaLinkButton_Click container.Controls.Add(l) End Sub Public Sub ColunaLinkButton_Click(ByVal sender As Object, ByVal e As EventArgs) Dim botão As LinkButton = sender Dim célula As TableCell = botão.Parent Dim item As DataGridItem = célula.Parent Dim página As Page = botão.Page página.Response.Write(item.Cells(1).Text) End Sub End Class O importante mesmo está na rotina ColunaLinkButton_Click, que é o equivalente ao seu aprovarOS. Veja que eu estou pegando o item da segunda coluna da linha clicada e escrevendo na tela. Seria isso mesmo? Claro que serve. Lembre-se que um Object pode conter *qualquer* outro tipo. Você só tem que fazer o cast para o tipo correto (que você pode saber através de s.GetType().ToString()). Veja no exemplo que fiz acima: Dim botão As LinkButton = sender Certo? Abraços, Graymalkin

Fala ae, Nab! E o que tem no "s"? Sei que ele é o Sender, ou seja, o objeto chamador, mas por ele você não tem nada de útil? É, a gente tá numa correria só, por causa desses projetos... Mas, vou tentar fazer um exemplo aqui desse seu problema e ver se consigo algo (quase não uso ASP.NET, mas entendo um pouco do DataGrid). Abraços, Graymalkin

Você não precisa "procurar" o que deve substituir. Basta apenas gravar o arquivo todo novamente. Um arquivo .DOC (do Word) é binário (se você abrí-lo em um editor de textos comum você pode comprovar isso). Se você abrir um documento no Word só para consertar uma vírgula que está fora do lugar e salvá-lo novamente, sabe o que acontece? O Word *não* sai percorrendo o arquivo gravado e comparando com o alterado para saber o que o mudou. Ele simplesmente pega o alterado *todo* e grava por cima (sobrescreve) do arquivo antigo. Por isso que eu te sugeri converter todo o conteúdo da RichTextBox (que está em hexa, não?) para bytes e gravar no arquivo. Dê uma lida novamente no meu post anterior a esse agora. Sacou? Abraços, Graymalkin

Experimente então: set rs = db.OpenRecordset("SELECT MAX(codigo) AS último FROM TABELA") Abraços, Graymalkin

Em qual linha deu esse erro? Abraços, Graymalkin

Bom, eu nunca utilizei o Embedded, porém no VB6 seria assim: n = freefile() open "arquivo.txt" for output as #n ? #n, text1.text close #n Onde "text1" é a textbox. Faça um teste aí. Abraços, Graymalkin

Supondo que o seu objeto "db" já esteja aberto, acho que você poderia fazer isso aqui: Dim rs As Recordset rs = db.OpenRecordset("SELECT MAX(codigo) AS último FROM TABELA") MsgBox rs.Fields("último").Value Certo? Não testei aqui. Abraços, Graymalkin

Se você der uma procurada aqui no fórum (ou no Google) encontrará vários exemplos. Não testei, mas acho que isso daqui já pra ter dar uma idéia (suponha que "w" é um objeto Word.Application): w.Documents.Add w.Selection.TypeText "um teste" w.Visible = True Veja aí se dá certo. Ah, e se cadastra aí no fórum para ajudar a nossa comunidade a crescer, beleza? Abraços, Graymalkin

O OpenFileDialog só serve para você *escolher* um arquivo... o que *você* vai fazer com esse arquivo *você* tem que decidir. No caso você precisa de um StreamReader para ler o texto. O exemplo abaixo faz o que você quer: IO.StreamReader f = new IO.StreamReader(OpenFiles.FileName); string texto = f.ReadToEnd(); f.Close(); Txtbox.Text = texto; Certo? Abraços, Graymalkin

Exatamente! Sim, uma vez que todos os tipos são objetos (e objetos, como sabemos, possuem métodos e propriedades). Abraços, Graymalkin

Exatamente. O método Trim() pertence a classe String, portanto qualquer função (método), campo ou propriedade que é do tipo String (ou retorna uma String) terá esse método. Abraços, Graymalkin

Cara... aqui não deu erro nenhum. Funfou normal. Esse </script> que tem aí no final (na última linha do bloco de código, embaixo do final da rotina) você colou por engano, certo? Abraços, Graymalkin

E qual foi esse erro que ficou? Abraços, Graymalkin

Na verdade o mais correto seria dizer que o Word "expõe uma interface COM". Sim, VB, Delphi e Internet Explorer são exemplos de programas/linguagens que permitem a utilização de componentes ActiveX. Abraços, Graymalkin

Eu diria que o COM (Common Object Model) permite a utilização comum, entre linguagens diferentes, de objetos criados para essa tecnologia estabelecendo tipos e estruturas comuns. ActiveX são componentes COM que possuem uma interface de interação com o usuário (nem todo componente COM precisa necessariamente disso). Abraços, Graymalkin

Você podia postar aqui a parte que você fez para identificar os números repetidos para a gente poder dar uma olhada, não? Abraços, Graymalkin

O que esse programa faz? Tem certeza de que o seu professor falou para fazer em .NET? Parece que ele faz chamadas a bibliotecas não gerenciadas, o que não é uma boa prática em .NET. Abraços, Graymalkin