Usando o controle DataRepeater no VB 6.0


Você sabia que no VB 6.0 existe um controle chamado DataRepeater ? Não sabia ? Então ficou sabendo agora ....

Para que serve este desconhecido ? Bem , ele converte qualquer controle ActiveX em um controle de Grade ou sub formulário que você pode repetir no seu formulário. Com o DataRepeater você pode usar um controle ActiveX  (até um que você mesmo criou ) e,  sem ter uma relação de um para muitos exibir uma relação dos controles vinculados aos dados que escolheu para exibir.  Entendeu ??? 

Bem , as vezes falar não ajuda muito , então vamos mostrar.... 

Vamos usar o DataRepeater para exibir o código e o nome dos autores da tabela Authors do banco de dados Biblio.mdb ( oh saco de pancadas...). Para fazer isto iremos nós mesmos criar um controle ActiveX e vincular os dados ao DataRepeater. Mãos a obra...

Criando o Controle ActiveX

Se você ainda tem dúvidas sobre como criar controles ActiveX leia : Criando Controles ActiveX I e II

Option Explicit

Public Property Get au_id() As Integer
    au_id = txtau_id
End Property
Public Property Let au_id(ByVal intnew As Integer)
   txtau_id = intnew
   PropertyChanged "au_id"
End Property

Public Property Get Author() As String
     Author = txtauthor.Text
End Property
Public Property Let Author(ByVal strnew As String)

    txtauthor.Text = strnew
    PropertyChanged "Author"
End Property

Montando o Projeto com o DataRepeater

Agora vamos criar um novo projeto padrão ( Standard EXE ) para usar o controle DataRepeater com nosso controle ActiveX - AutorCtrl.ocx.

Você não precisa necessariamente usar um controle de sua autoria com o DataRepeater, pode usar qualquer controle com reconhecimento de dados. O controle MaskedEdit é um deles.... Entendeu agora ????

Acabei...


Copyright (c) 2001 - José Carlos Macoratti e amigos (Toda a Web)