Como criar gráficos com o método de círculo no VB

Traduções de Artigos Traduções de Artigos
Artigo: 153927 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Sumário

O controlo de gráfico Pinnacle BPS envio com o Visual Basic permite aos utilizadores criar gráficos circulares. Pinnacle-BPS é um controlo relativamente grande e utiliza uma grande quantidade de espaço em disco em discos de distribuição. Assim, os efeitos personalizados disponíveis estão limitados às funcionalidades do controlo. O método de círculo no idioma VBA fornece funcionalidade para desenhar arcos e segmentos. Desenhando segmentos, pode facilmente criar um gráfico circular e adicionar funcionalidades personalizadas conforme necessitar. Abaixo é um exemplo de código que demonstram como efectuar este procedimento.

Mais Informação

  1. Inicie um novo projecto de Visual Basic. É criado o Form1 por predefinição.
  2. Coloque um botão de comando no formulário.
  3. Coloque uma caixa de imagem de 200 x 200 pixels no formulário.
  4. Adicione o seguinte código à janela de código de Form1:
          Option Explicit
    
          Public Sub DrawPiePiece(lColor As Long, fStart As Double, fEnd As
          Double)
            Const PI As Double = 3.14159265359
            Const CircleEnd As Double = -2 * PI
            Dim dStart As Double
            Dim dEnd As Double
            Picture1.FillColor = lColor
            Picture1.FillStyle = 0
            dStart = fStart * (CircleEnd / 100)
            dEnd = fEnd * (CircleEnd / 100)
            Picture1.Circle (100, 100), 60, , dStart, dEnd
          End Sub
    
          Private Sub Command1_Click()
            Picture1.ScaleMode = vbPixels
            Call DrawPiePiece(QBColor(1), 0.001, 36)
            Call DrawPiePiece(QBColor(2), 36, 55)
            Call DrawPiePiece(QBColor(3), 55, 75)
            Call DrawPiePiece(QBColor(4), 75, 99.999)
          End Sub
    						
  5. Prima a tecla F5 para executar o projecto. Deverá ver um gráfico circular desenhado com quatro secções espelhamento as quatro horas que DrawPiece rotina foi chamada no evento Command1_Click.

Referências

Para mais informações, consulte os seguintes artigos na base de dados de conhecimento da Microsoft:
83906Como desenhar uma elipse com círculo declaração no VB

73280Capacidade excedida no segmento de desenho de círculo do VB com RADIUS de zero
Em vez de utilizar o método de círculo a linguagem VBA, também pode utilizar a chamada de API de Win16/Win32 para obter o mesmo resultado.

Propriedades

Artigo: 153927 - Última revisão: 15 de julho de 2004 - Revisão: 2.2
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 16-bit Enterprise Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
Palavras-chave: 
kbmt kbgraphic kbhowto kbprogramming KB153927 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 153927

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com