Saber como fazer um programa de pintura em Microsoft Visual Basic.NET ( VB.NET ) pode começar a usar gráficos em programação. VB.NET é uma linguagem de programação orientada a objeto usado para criar desktop, Web e aplicações móveis. VB.NET oferece uma aula de gráficos que podem ser usados para objetos, como retângulos, círculos e linhas de desenho. Você pode usar o controle de ColorDialog para exibir todas as cores disponíveis para o usuário e usar a cor selecionada para desenhar seus objetos. Coisas que você precisa
Microsoft Visual Basic Express
Visualizar Mais instruções
1
Inicie o Microsoft Visual Basic Express , clique em " New Project ... " no painel esquerdo da tela, selecione " Windows Forms Application ". Clique em " OK".
2
Clique duas vezes em "Button" na " caixa de ferramentas " para adicionar um novo botão . Clique duas vezes em "caixa de seleção " para adicionar uma nova caixa de texto . Adicione mais duas caixas de seleção ao formulário. Clique duas vezes em " ColorDialog " para adicionar o controle para o programa . . Clique duas vezes em "Button1 " para abrir o módulo " Form1.vb "
3
Copie e cole o seguinte código dentro do procedimento " Button1_Click " para permitir que o usuário escolha uma cor :
Me.ColorDialog1.ShowDialog ()
Se Me.ColorDialog1.ShowDialog = DialogResult.OK Então
clr = ColorDialog1.Color
End If < br >
4
Copie e cole o seguinte em " Public Class Form1 " para criar duas variáveis globais usadas para criar gráficos e cores :
gfx privada como gráficos
clr privado como Cor
5
Clique na seta suspensa da caixa de combinação superior esquerdo e selecione " ( Form1 Events ) . " Selecione "Load" para criar o evento Form e copie e cole o seguinte dentro do evento :
gfx = Me.CreateGraphics ()
6
Clique no evento " FormClosed " para criar o evento e copie e cole o seguinte para alienar o objeto gráfico :
gfx.Dispose ()
7
Clique no evento " MouseMove " para criar o evento, e copiar e colar o código abaixo para desenhar objetos quando o usuário move o mouse:
Se e.Button < > Windows.Forms.MouseButtons.Left Then Exit Sub
Dim rect Como
Retângulo
Dim myPen Como Pen
myPen = New Pen ( cLR , 2)
Se Me.CheckBox1.Checked Então
Com rect
. X = eX - 1
Y = eY - . . .
1
Largura = 15
Altura = 15
End With
gfx.DrawRectangle ( myPen , rect )
End If
Se Me.CheckBox2.Checked Então
Com rect
. Largura = 15 < br . >
Altura = 15
End With
gfx.DrawLine ( myPen , eX , Ei, eX - 1 , eY - 1)
End If < br >
Se Me.CheckBox3.Checked Então
myPen = New Pen ( cLR , 2)
Com rect
X = eX - 1.
< . p> Y = eY - . 1.
Largura = 15
Altura = 15
End With
gfx.DrawEllipse ( myPen , rect )
End If
8
Pressione " F5" para executar o programa , clique em "Button1 " para escolher uma cor para seus objetos. Verifique a primeira caixa de seleção para desenhar uma série de retângulos . Confira a segunda caixa para desenhar linhas ou verificar a caixa de seleção terceiro para desenhar uma série de círculos .
