Criando Ocx

[Guest --Alexandre --]

aí, pessoal, de tanto fuçar aqui eu consegui criar minha ocx. mas to com um pequeno probleminha:

como faco pra criar aquela listinha numa determinada propriedade?

ex: eu tenho a propriedade alignment de uma textbox com 3 opcoes:

0 - Left

1 - Right

3 - Center

so que esta aprecendo apenas o numero padrão. como eu faco pra aparecer essa lista pra poder escolher?

Obrigado a todos!

[Anderson Fernandes]

opa, beleza!

Bom eu sei fazer isso em functions e sub, mas creio que em propriedades de uma ocx tambem funcionem é que eu não crio muitas ocx.

Até para ficar mais facil a explicação eu vou mostra como fazer essa lista em uma função, mas não se preocupe que a metodologia deve ser a mesma!

vamos lá!

dentro da ocx você deve criar uma Enum

Private Enum ListaTeste
a = a1
b = b1
'e assim por diante
End Enum

na função (no seu caso propriedade) faça o seguinte...

Public function testePropriedade (pLista as ListaTeste) as string

então quando você estiver digitando...

i = testePropriedade (...

será exibida a lista

no seu caso tambem será exibida em properties do componente

resumindo é só usar ENUM

Espero ter ajudado, beleza!

fui

[fgoncalves]

opa, beleza!

Bom eu sei fazer isso em functions e sub, mas creio que em propriedades de uma ocx tambem funcionem é que eu não crio muitas ocx.

Até para ficar mais facil a explicação eu vou mostra como fazer essa lista em uma função, mas não se preocupe que a metodologia deve ser a mesma!

vamos lá!

dentro da ocx você deve criar uma Enum

Private Enum ListaTeste
a = a1
b = b1
'e assim por diante
End Enum

na função (no seu caso propriedade) faça o seguinte...

Public function testePropriedade (pLista as ListaTeste) as string

então quando você estiver digitando...

i = testePropriedade (...

será exibida a lista

no seu caso tambem será exibida em properties do componente

resumindo é só usar ENUM

Espero ter ajudado, beleza!

fui

td bem, até aí eu consegui fazer. agora, me explica uma coisa:

como eu crio novas propriedades pro componente? ex:

eu quero um txt onde a pessoas digitem só números, então na propriedade dependendo de onde vou colocar no programa, eu quero que seja assim:

0 - 0

1 - 0,0

2 - 0,00

3 - 0,000

eu quero colocar nas propriedades a quantidade de casas decimais.

espero que tenham entendido.

obrigado pela ajuda

[Anderson Fernandes]

Agora eu testei e deu certo em!

Bom para aparecer a lista como a proriedade appearence é só colocar um script basicamente assim na OCX

Option Explicit

Public Enum tCasas
    Zero = 0
    Uma = 1
    Duas = 2
    Tres = 3
    Quatro = 4
End Enum

Private pCasas As Integer

Public Property Get Casas() As tCasas
   Casas = pCasas
End Property


Public Property Let Casas(ByVal NewValue As tCasas)
    pCasas = NewValue
    PropertyChanged "Casas"
    'EXECUTA O SCRIPT COM O VALOR RECEBIDO
End Property

Espero que seja isso!

Mas qualquer coisa é só postar, se bem que a essas alturas você já deve ter conceguido, rs!

Até mais!!!

Editado Julho 11, 2007 por Anderson Fernandes