Identificando objetos

Este exemplo mostra como identificar os objetos desenhados na tela.

Observe que no programa, cada objeto desenhado recebe um índice:

glLoadName (0)

glLoadName (1)

glLoadName (2)

Neste exemplo associei a cor do objeto ao índice atribuído, assim, ao clicar sobre o desenho, a cor do objeto é apresentada.

Este exemplo simples mostra que é possível associar múltiplos atributos ao índice de um polígono desenhado. Em outras aplicações associei os polígonos a um banco de dados, assim, qualquer atributo do polígono podia ser e apresentado numa tabela de consulta. Este é o princípio básico para consultas gráficas em mapas e objetos 3D.

O exemplo selecao.rar pode ser obtido aqui:

https://drive.google.com/file/d/0BzanmNnVGltwVjREVUNIZmpLczg/edit?usp=sharing

Exemplo - 3 luzes

Neste exemplo objetos são iluminados simultaneamente por 3 pontos de iluminação, um vermelho, um verde e um azul.
Selecione a lâmpada que deseja movimentar e use as barras de rolagem (vertical e horizontal) para posicionar as luzes.
Se você der um duplo click na tela, os objetos entram num modo de rotação automática; outro duplo click interrompe a rotação.
A opção SAVE no menu grava uma imagem da tela (no formato BMP).
Para funcionar é preciso instalar a TLB no projeto.

O exemplo 3lamp.rar pode ser obtido aqui:
https://drive.google.com/folderview?id=0BzanmNnVGltwSXJUNEs3cTAwUGM&usp=sharing

Você ainda está aqui?

Se você ainda está aqui, deve ter algum motivo para utilizar VB6 e OpenGL.  Saiba que existem hoje muitas possibilidades mais modernas para acessar OpenGL, várias ferramentas  livres, destaco o QT Creator com C++. 

Se você ainda quer usar VB6 com OpenGL, faça o download do arquivo "VBOpenGL 1.2 for Microsoft" no site do EDX: http://home.pacific.net.hk/~edx/tlb.htm

Para desenvolver programas com  OpenGL, ou rodar os exemplos que vou postar a seguir, instale a TLB "vbogl.tlb" em todos os seus projetos. Para instalar a TLB no seu projeto acesse o seguinte caminho no menu do VB6:

Project

         References

                        Browse

A seguir selecione o arquivo "vbogl.tlb" e na caixa de seleção "Available References" marque "VB OpenGL API 1.2 (ANSI)" - como mostra a figura.

Visual Basic 6 e OpenGL

Na década de 90 trabalhei com OpenGL e Visual Basic5 para desenvolver alguns aplicativos.

Para acessar OpenGL com o VB utilizei a type library - TLB desenvolvida por EDX, disponibilizada no site: http://home.pacific.net.hk/~edx/ .

Na época postei exemplos no site dele:

- demonstrates picking.

- 3 lights shining on geometric primitives

Os exemplos estão aqui:  http://home.pacific.net.hk/~edx/othersamples.htm.

 Muitos outros exemplos estão disponíveis por lá.

A TLB desenvolvida por EDX é ideal para aqueles que trabalham com uma linguagem de alto nível como o VB e desejam utilizar a biblioteca OpenGL.

Apresento aqui alguns exemplos desenvolvidos em VB6 que podem ter alguma utilidade para iniciantes em VB (ainda existem?) que desejam aprender OpenGL.  Rodei os exemplos no WINDOWS8 e funcionaram bem.