Underkategori i en OCX

Er det for at få musens position, som beskrevet i eksemplet?

Lav en property der returnerer det object du vil referere til!

F.eks hvis jeg vil have fat i en text box i en OCX!!

Public property Get txt() as TextBox
  Set txt = DenTextBoxJegVilHaveFatI
end Property

Så får jeg fat i denne ved at skrive

OCXObject.txt.Text = \"Hest\"

//Nolle_K

nej, det jeg mener er, at istedet for at man laver 10 kommandoer der hedder hejmeddig1 hejmeddig2 hejmeddig3 osv. så kan man måske lave en underkategori som hedder hejmeddig og så hvis man skrev ocxen.hejmeddig. så kommer listen over det man kan vælge (fx. 1-10) op og så kan man vælge det..

Start med at gør følgende

Public Enum HejMedDig__
  HejMedDig1
  HejMedDig2
  HejMedDig3
  HejMedDig4
end Enum

Public Property Let HejMedDig(Index as HejMedDig__, vNewValue as Variant)
 
end property

Så skulle du gerne få en liste op, der indeholder HejMedDig1 - HejMedDig4 når du skriver

OCXObject.HejMedDig(



 

det ser godt ud..
men det skal helst være en funktion..
og så skal det helst være OCXObject.HejMedDig. istedet for (
:o)

Så skriver du bare

Public Function HejMedDig(Index as HejMedDig__)

Du kan undgå ( ved at lave det om til en Sub eller bare ved at lade være med at returnere noget fra funktionen!

Feks.

OCXObject.HejmedDig HejMedDig1

Men det gør, at du ikke kan returnerer noget fra funktionen!

jaeh, ok da..
jeg godtager det..
men det skulle helst ha været lige som fx. project1.form1.cls ...altså med 2 punktummer

Det kan du også godt!!!

Hvis du har klassen clsTest, der har funktionen Test kan man få fat i denne funktion ved at lave en property i OCX\'en!

Public Property Get TestIT() as clsTest
  Set TestIT = clsTestObject
end public

Så skriver du bare

OCXObject.TestIT.Test

Så har du fat i funktionen test!!

hm.. kan ikke lige finde ud af at sætte det sammen og få det til at virke..
kan du evt. sende mig eksempel til f2@esenet.dk ?
:o)