Ola.Hoje irei fazer algo inedito na historia do Blog Diego Silva: irei postar um tutorial -- O primeiro tutorial -- sobre VB2008! Isso mesmo, por mais que eu nao goste do VB2008 pela questao de funcionar somente com Framework de mais de 30MB de tamanho, e uma linguagem que vem se tornando bem popular no mundo da programacao, por suportar mais funcoes e recursos que VB6, e isso eu nao nego. Bom, vamos ao tutorial. Passarei aqui um codigo para criar um letreiro digital e desenha-lo em uma Picturebox. TutorialComo no artigo anterior, fiz uma video-aula para ensinar passo a passo.Projeto zipadoO projeto zipado encontra-se no link http://www.youtube.com/redirect?q=https%3A%2F%2Fskydrive.live.com%2F%3Fcid%3Db278d5e7a71b5dca%26sc%3Ddocuments%26uc%3D1%26nl%3D1%26id%3DB278D5E7A71B5DCA%2521156%23&session_token=Woh5PXNZ_OxGBLnGmLFx46hO7ih8MTMxNDc0OTkxNEAxMzE0NjYzNTE0 (Link de pasta do skydrive). Lembrando que e necessario ter o .Net Framework 4, que pesa miseros... 51MBs!! Arquivo este que voce tem que repassar juntamente com seu programa no instalador se voce nao distribuir o codigo fonte junto com o aplicativo ou se o cliente nao tiver (e com certeza nao tera) o Framework.O codigo a ser adicionado e o seguinte:'ClassePublic Class Letreiro Public Posicao As Integer 'posicao do primeiro char. Public Buffer As Integer 'Tamanho de caracteres Public Controle As PictureBox Public fonte As Font Public cor As Brush Public Sub SetControle(ByRef PictBox As PictureBox) Controle = PictBox End Sub Public Sub SetBuffer(ByVal Tamanho As Integer) Buffer = Tamanho End Sub Public Sub SetCor(ByVal tCor As Brush) cor = tCor End Sub Public Sub SetFonte(ByVal tfonte As Font) fonte = tfonte End Sub Public Sub Andar() Dim bmp As New Bitmap(Controle.Width, Controle.Height) Dim texto As String texto = Space(Buffer) & Controle.Tag.ToString Dim g As Graphics = Graphics.FromImage(bmp) g.Clear(Controle.BackColor) texto = Mid(texto, Posicao + 1, Buffer) g.DrawString(texto, fonte, cor, 0, 0) Controle.Image = bmp g.Dispose() g = Nothing texto = Space(Buffer) & Controle.Tag.ToString Posicao += 1 If Posicao > Len(texto) Then Posicao = 0 End If End Sub Public Sub New() fonte = New Font("Courier New", 20, FontStyle.Regular) cor = Brushes.Black End SubEnd ClassNo form:'FormPublic Class Form1 Dim marquee As New Letreiro Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick marquee.Andar() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load LetreiroPbx.Tag = TextBox1.Text marquee.SetControle(LetreiroPbx) marquee.SetBuffer(29) marquee.SetCor(Brushes.Red) End Sub Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged LetreiroPbx.Tag = TextBox1.Text 'marquee.Posicao = 0 End SubEnd ClassE isso pessoal.Se quiserem podem livremente enviar sugestoes de artigos e materias para o meu Twitter, para o email, ou aqui mesmo no blog, seja de VB.net, vb6, delphi7, C# (isso mesmo, C#) ou VisualC++.Ate o proximo artigo! Silenciosanoite...dosventos fortes!Silenciosanoite do meu bosque,arvorescom frutos de presente.Ventosfortes, noite do meu encanto!Arvoresserenas e negras,brilhantesestrelas,quese esvaem na manha vindoura!Manhade luz,Masque tem conduz?Ondevi aquelas arvores amanhecer?Osol se por ao entardecer?Naofoste tu que te fez assim?Sussurrastespra mim o teu nome...Deus! AristotelesNinguem e dono da sua felicidade, por isso nao entregue a sua alegria, a sua paz, a sua vida nas maos de ninguem, absolutamente ninguem. Somos livres, nao pertencemos a ninguem e nao podemos querer ser donos dos desejos, da vontade ou dos sonhos de quem quer que seja. A razao