Criação de gráficos e formas em Visual Basic (VB) começa com as etapas de programação necessárias para desenhar elementos simples, como pontos, linhas , retângulos , círculos, elipses e arcos. Ao combinar esses elementos em diferentes modos e formas , gráficos complicados podem aparecer na tela do computador . O processo requer a escrita de código de computador laborioso na ausência de software gráfico sofisticado, mas é perfeitamente possível, utilizando os blocos de construção descritos aqui. Coisas que você precisa
Visual Basic 6.0
Show Mais instruções
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 da forma , quando solicitado como MyGraphicsDemo . Defina o " Form1 " Height na janela Propriedades de 5400 e a largura para 6800 .
2

Dê um clique duplo no ícone " CommandButton " na coluna Toolbox do lado esquerdo para adicioná-lo ao formulário . Este é um pequeno retângulo normalmente localizado na coluna da direita de ferramentas e terceiro a partir do topo . O rótulo aparece quando você coloca o cursor sobre ele. Clique no botão para se concentrar em suas "Propriedades" na janela à direita e mudar o " Caption " propriedade para ler " Mostre-me alguns pontos coloridos ! " Sem inserir as aspas . Altere a propriedade Height para 500 ea propriedade Largura para 3000.
3

Abra uma janela de código clicando em " View" e depois "Código " no menu Visual Basic nível superior. Defina os pontos de localização na tela , o tamanho ea cor pela primeira vez com o código ilustrativo. Em seguida, variar as definições para saber o que é possível usando apenas pontos isolados. Neste código as linhas " PSet " criar pontos de cores diferentes , enquanto que 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 = vbRedPSet ( 0, 0) PSet (15 , 5), vbCyanPSet (20, 10) , vbYellowCurrentX = 500: . AtualY = 500For i = 1 To 20PSet Etapa ( 0, 0) NextFor i = 1 To 500DrawWidth = Rnd * 5 + 1PSet ( Rnd * ScaleWidth , Rnd * AlturaDaEscala ) , RGB ( Rnd * 255, Rnd * 255, Rnd * 255) NextDrawWidth = 1End Sub
4

Criar um grande triângulo usando a " linha" de comando do Visual Basic, que usa configurações de local para desenhar o triângulo. Adicionar um retângulo colorido com o comando Linha usando diferentes pontos de localização . Adicione mais dois CommandButtons à forma como no Passo 2. Altere as propriedades da legenda para ler " desenhar um triângulo " e " desenhar 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 do código. Quando terminar, pressione "F5" para ver

Private Sub Command2_Click () Line ( 1500, 3000) - . Passo ( 1000, 0), vbBlackLine - Etapa (0 , 1000) , vbBlackLine - ( 1500, 3000 ) , vbBlackEnd SubPrivate Sub Command3_Click () Line ( 1200, 1500) - Step ( 2100, 1100) , vbGreen , dobre Sub
5

Desenhe um círculo com as seguintes linhas de código. Desenhando elipses e arcos usa o mesmo processo , você só 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 , adicione mais um CommandButton , rotulando este " Desenhe um círculo" .

Private Sub Command4_Click () = DrawWidth 5FillStyle = vbFSSolidFillColor = vbCyanCircle (2000, 2000) , 1000, vbBlueEnd Sub