Como criar gráficos e formas em "Visual Basic"

Abra um novo projeto Visual Basic usando o "standard EXE" modelo, uma das opções que aparecem quando você escolhe um novo projeto. Salve o projeto e a forma quando solicitado como MyGraphicsDemo. Colocou o "Form1" Altura na janela Propriedades para 5400 e a largura para 6800.

Dê um duplo clique sobre o "Botão de comando" ícone na esquerda; coluna Toolbox mão para adicioná-lo ao formulário. Este é um pequeno retângulo normalmente localizado na direita; coluna do lado de ferramentas e em terceiro lugar a partir do topo. A etiqueta aparece quando você colocar o cursor sobre ele. Clique no botão para se concentrar em sua "propriedades" na janela à direita e mudar a "Rubrica" propriedade para ler "Mostre-me alguns pontos coloridos!" sem entrar as aspas. Altere a propriedade altura para 500 e a propriedade Largura para 3000.

Abra uma janela de código clicando em "Visão" e depois "Código" no menu Visual Basic nível superior. Defina os pontos de localização na tela, o tamanho ea cor em primeiro lugar com o código ilustrativo. Em seguida, variar as configurações para saber o que é possível usando apenas pontos individuais. Neste código "PSet" linhas de criar pontos de cores diferentes, enquanto as linhas de código que contêm "Rnd" duplicar muitos pontos em cores aleatórias e locais. Quando terminar, pressione "F5" para ver o resultado.

Private Sub Command1_Click ()
BackColor = vbRed
PSet (0, 0)
PSet (15, 5), vbCyan
PSet (20, 10), vbYellow
CurrentX = 500: CurrentY = 500
Para I = 1 a 20
PSet Passo (0, 0)
Próximo
Para I = 1 a 500
DrawWidth = Rnd 5 + 1
PSet (Rnd ScaleWidth, Rnd ScaleHeight), RGB (Rnd 255, Rnd 255, Rnd 255)
Próximo
DrawWidth = 1
End Sub

Criar um grande triângulo usando o "Linha" comando do Visual Basic, que utiliza definições de localização para desenhar o triângulo. Adicionar um retângulo colorido com o comando Linha usando diferentes pontos de localização. Adicionar mais dois CommandButtons à forma como no Passo 2. Altere as propriedades da legenda para ler "Desenhe um triângulo" e "Desenhe um retângulo" respectivamente. Pode ser necessário alargar as caixas como no Passo 2. Em seguida, insira o seguinte código abaixo as linhas anteriores de código. Quando terminar, pressione "F5" visualizar.

Private Sub Command2_Click ()
A linha (1500, 3000) - O passo (1000, 0), vbBlack
Line - Passo (0, 1000), vbBlack
Line - (1500, 3000), vbBlack
End Sub
Private Sub Command3_Click ()
A linha (1200, 1500) - O passo (2100, 1100), vbGreen, B
End Sub

Desenhar um círculo com as seguintes linhas de código. Desenhando elipses e arcos utiliza o mesmo processamento que você acabou de alterar as dimensões e onde os círculos de início e fim. Alargando um aspecto do círculo, você transformá-lo em uma elipse e por não fechar o círculo, você faz um arco. Para configurar isso, adicionar mais um CommandButton, rotulando este "Desenhar um círculo".

Private Sub Command4_Click ()
DrawWidth = 5
FillStyle = vbFSSolid
FillColor = vbCyan
Círculo (2000, 2000), 1000, vbBlue
End Sub