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

Passo 1

Abra um novo projeto Visual Basic usando o modelo "Standard EXE", uma das opções que aparecem quando você escolhe um novo projeto. Salve o projeto e o formulário quando você solicitar o MyGraphicsDemo. Ajuste a altura de "Form1" na janela Propriedades com 5400 e sua largura com 6800.

Passo 2

Clique duas vezes no ícone "CommandButton" na coluna Caixa de ferramentas à esquerda para adicioná-lo ao formulário. É um pequeno retângulo que normalmente é colocado na coluna direita das ferramentas e na terceira linha acima. A tag aparece quando você passa o mouse sobre ela. Clique no botão para se concentrar em suas "Propriedades" na janela à direita e altere a propriedade "Label" para ler "Mostre-me alguns pontos coloridos!" sem aspas. Altere a propriedade Height para 500 e Width para 3000.

Passo 3

Abra uma janela de código, clicando em "Visualizar" e, em seguida, "Código" no nível superior do menu do Visual Basic. Primeiro ajuste os pontos de localização na tela, tamanho e cor com o código ilustrativo. Em seguida, altere as configurações para saber o que você pode fazer usando apenas pontos únicos. Nesse código, as linhas "PSet" criam pontos de cores diferentes, enquanto as linhas de código que contêm "Rnd" duplicam muitos pontos com locais e cores aleatórios. Quando você terminar, pressione "F5" para ver o resultado.

Sub Comando particular1_Click () BackColor = vbRed PSet (0, 0) PSet (15, 5), PSC vbCyan (20, 10), vbYellow CurrentX = 500: CurrentY = 500 Para i = 1 a 20 PSet Step (0, 0) Next Para i = 1 a 500 DrawWidth = Rnd * 5 + 1 PSet (Rnd * LarguraDaCoragem, Rnd * LarguraDe Escala), RGB (Rnd * 255, Rnd * 255, Rnd * 255) Próxima DrawWidth = 1 End Sub

Passo 4

Crie um triângulo grande usando o comando "Linha" no Visual Basic, que usa a configuração de local para desenhar um triângulo. Adicione um retângulo colorido com o comando Linha usando pontos de localização diferentes. Adicione mais dois CommandButtons ao formulário como na etapa 2. Altere as propriedades do rótulo para que ele diz "Desenhe um triângulo" e "Desenhe um retângulo" respectivamente. Você pode precisar ampliar as caixas apenas como na etapa 2. Em seguida, digite o seguinte código sob as linhas de código anteriores. Quando você terminar, pressione "F5" para vê-lo.

Private Sub Command2_Click () Linha (1500, 3000) - Etapa (1000, 0), vb Linha Negra - Etapa (0, 1000), vb Linha Negra - (1500, 3000), vbBlack End Sub Sub Comando Privado3_Click () Linha (1200, 1500) - Etapa (2100, 1100), vbGreen, B End Sub

Passo 5

Desenhe um círculo com as seguintes linhas de código. Desenhe elipses e arcos usando o mesmo processo. Ele simplesmente modifica as dimensões e o local onde os círculos começam e terminam. Expandindo um aspecto do círculo, você o transforma em uma elipse e sem fechar o círculo, cria um arco. Para configurar isso, adicione um CommandButton mais, rotulando-o como "Desenhe um círculo".

Sub Command4_Click () DrawWidth = 5 FillStyle = vbFSSolid FillColor = vbCyan Circle (2000, 2000), 1000, vbBlue End Sub