[VB.NET]Tirando Screen da tela

[- NOOB 1]

Bom , um tempo atras eu tive uma curiosidade sobre vb.net, no inicio achei que não ia ser tão facil , como programo em C#.net, foi uma coisa extremamente simples, sem nenhum problema ,consegui fazer quase todos os programas que fiz em C# em VB também,um deles foi esse, programa bem simples e agradavel...

 

Desenhando o Form

 

Vamos precisar de poucas coisas para fazer.

segue a lista :

• 1 Button
  
• 2 TextBox
  
• 4 RadioButton's
  
  

é oque iremos precisar, na verdade não iriamos precisar de nada é tudo para fazer charminho xD

 

Funções

 

agora, como vamos trabalhar com imagem vamos importar :

 

Imports System.Drawing.Imaging

 

agora a função que eu fiz em C#, e converti para VB...

 

 

Public Sub GetDesktopScreen(ByVal local As String, ByVal frmt As ImageFormat)

Dim Rec As Rectangle = New Rectangle()

Rec = Screen.GetBounds(Rec)

Dim image As Bitmap = New Bitmap(Rec.Width, Rec.Height, PixelFormat.Format32bppArgb)

Dim graphics As Graphics = graphics.FromImage(image)

graphics.CopyFromScreen(Rec.Location.X, (Rec.Location.Y), 0, 0, Rec.Size, CopyPixelOperation.SourceCopy)

image.Save(local, frmt)

End Sub

 

está praticamente pronto então, a função que faz oque queremos está ai, mas vamos terminar e colocar tudo que tem aqui logo, eu fiz uma função para poder verificar em qual formato iremos salvar...

segue ela também....

 

Public Sub VerificaFormat()

If radioButton1.Checked = True Then

textBox1.Text = "C:\" + textBox2.Text + ".jpg"

Me.Opacity = 0

GetDesktopScreen(textBox1.Text, ImageFormat.Jpeg)

End If

If radioButton2.Checked = True Then

textBox1.Text = "C:\" + textBox2.Text + ".png"

Me.Opacity = 0

GetDesktopScreen(textBox1.Text, ImageFormat.Png)

End If

If radioButton3.Checked = True Then

textBox1.Text = "C:\" + textBox2.Text + ".gif"

Me.Opacity = 0

GetDesktopScreen(textBox1.Text, ImageFormat.Gif)

End If

If radioButton4.Checked = True Then

textBox1.Text = "C:\" + textBox2.Text + ".bmp"

Me.Opacity = 0

GetDesktopScreen(textBox1.Text, ImageFormat.Bmp)

End If

Me.Opacity = 100

End Sub 'VerificaFormat

 

as text box serve basicamente isso , local e nome, os radio button, são os mais uteis , verificar o formato que o usuario quiser, o button ja poderia ser para setar o nome, ou simplesmente tirar a print,mas não seria melhor doque usar uma key....

bom , ja está um pouco tarde ,então deixarei para explicar amanha, espero que não se importem...

isso foi feito por mim no C# e convertido para VB, então os creditos são para mim....

se alguem falar : porque você não postou isso tudo junto ah :raiva:

se eu não começar agora , eu nem começarei depois x.x

depois edito o topico explicando oque faz , Abraços Pessoal!

[lipinf 7]

Eu gosto dos tutos do nooba pq ele simula as cores do IDE no texto kkkk

Parabéns manin, ótimo tópico, bem organizado e com cores =D

Não sei VB, mas da pra aproveitar ehauheuahuhe

Ta devendo a explicação, segundo o tópico, em rsrsrs

Bjundas.

[luccss 3]

Belo code veio parabéns abraços

[AceStryker 25]

Adorei essas cores, sendo iguais ao do IDE!E o tópico ta muito bom e bem formulado.Também achei a função bem simples...Esta de parabéns.

[-TokolocoSK 2]

Bem legal mesmo eu não intendendo nada de Visual Basic.

[- NOOB 1]

Vlw pessoal ,é facil colocar igual no VB e C# , não são muitascores que entram ,e aqui também tem a fonte Courier New , como la...

eu vi isso no topico do Vator e felipeanchieta , então resolvi fazer,a função é simples , eu fiz uma um pouco mais simples e faz a mesma coisa até melhor...

mais tarde posto talvez , abraços!

[LPTT 2]

Como lipinf falou , gosto tbm de seus tutos por diferenciar cores e serem organizados

 

 

 

Esta de Parabéns