Como ler pixels do PictureBox em VB6

Escrito por launie sorrels | Traduzido por vinícius albuquerque
  • Compartilhar
  • Tweetar
  • Compartilhar
  • E-mail

Ler um único pixel de uma imagem não é difícil. Na verdade, o VB (Visual Basic) tem funções específicas inatas que possibilitam ao programador a visualização e edição de pixels, de forma rápida e fácil. Há outras funções avançadas de API (Application Programming Interface - Interface de Programação de Aplicações) que programadores mais experientes utilizam que são mais rápidas e eficientes. Aprender como visualizar um pixel e extrair as cores médias individualmente desse pixel são apenas os primeiros passos para se tornar um mestre no VB.

Nível de dificuldade:
Moderadamente desafiante

Outras pessoas estão lendo

Instruções

  1. 1

    Inicie o aplicativo VB6. Vá ao formulário onde a imagem da qual você deseja receber dados está.

  2. 2

    Abra o formulário no modo "Design".

  3. 3

    Crie três funções que lerão o pixel assim que você o tiver recuperado.

    Public Function ExtractRed(ByVal CurrentColor As Long) As Byte ExtractRed = CurrentColor And 255 End Function Public Function ExtractGreen(ByVal CurrentColor As Long) As Byte ExtractGreen = (CurrentColor \ 256) And 255 End Function Public Function ExtractBlue(ByVal CurrentColor As Long) As Byte ExtractBlue = (CurrentColor \ 65536) And 255 End Function

  4. 4

    Declare o tipo dos objetos, como a seguir:

    Dim PixelColor as Long Dim ColorRed as Byte, ColorGreen as Byte, ColorBlue as Byte

    "Dim" significava originalmente "dimensão" e seu uso aqui é como um verbo. "PixelColor", "ColorRed", "ColorGreen" e "ColorBlue" são todas variáveis esperando que dados sejam inseridos.

  5. 5

    Digite o código a seguir abaixo das declarações "dim":

    PixelColor = PictureBox.Point (x, y) Now the code looks like this: Dim PixelColor as Long Dim ColorRed as Byte, ColorGreen as Byte, ColorBlue as Byte PixelColor = PictureBox.Point (x, y)

    "PictureBox" é o nome da caixa onde sua imagem está. As coordenadas (x, y) são coordenadas do pixel exato do qual você deseja receber dados. Os dados do pixel agora estão armazenados na variável "PixelColor". O próximo passo é extrair as cores individuais do espectro RGB.

  6. 6

    Digite o código a seguir abaixo da última declaração:

    ColorRed = ExtractRed(Color) ColorGreen = ExtractGreen(Color) ColorBlue = ExtractBlue(Color) Now the code looks like this: Dim PixelColor as Long Dim ColorRed as Byte, ColorGreen as Byte, ColorBlue as Byte PixelColor = PictureBox.Point (x, y) ColorRed = ExtractRed(PixelColor) ColorGreen = ExtractGreen(PixelColor) ColorBlue = ExtractBlue(PixelColor)

    Agora cada uma das variáveis "ColorRed", "ColorGreen" e "ColorBlue" terão um número entre zero a 255 armazenado nelas. Você pegou um pixel e desmembrou a sequência de cores específica com sucesso.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível