Classes Vb6

[Stevanicus]

Hi,

need help on a small application i am creating.... i created two classes however when i set them in one form i cant seem to access them in a different one.. experimented a bit... but dont really know how :d

pls help

Option Explicit
Dim player(5) As New player
Dim area(5) As New area
Dim base1, base2 As String
 
Public Sub setclass()
Set player(1) = New player
Set area(1) = New area
Set area(2) = New area
 
player(1).SetUp 4,0,0,0,0
 
area(1).SetUp "player", 1, 0, 0, 0  // each has value reps a different property
area(2).SetUp "enemy", 2, 0, 0, 0
End Sub
Private Sub Form_Load()
 
base1 = area(1).GetDescription
base2 = area(2).GetDescription
 
If base1 <> base2 Then
MsgBox "you fight"
Else
MsgBox "you love each other"
End If
 
End Sub

that all works... just if i wanna find out what area(1).getdescription in form2.


thanks in advance


steve

[MartinLiss]

Anything that you define in the Declarations section of the form will be local to that form (and BTW you should use Private there rather than Dim). If you want them to be global the add a code module to your application and define them as Public there.

[Stevanicus]

hi im new to classes.. so could u or someone else please give me a little more info on how?

would be great thanx


steve

[Hack]

Do: Project/Add Module

Cut your code from its current location and paste it into the module.

Change all Dim statements to Public.

[ZeBula8]

add this to your form2 and pass this information from form1
before form2 is loaded;

private pAreaDescription as String

public property get AreaDescription() as string
AreaDescription= pAreaDescription
end property

public property let AreaDescription(byval value as string)
pAreaDescription= value
end property

[Stevanicus]

thanx it worked perfectly..

ciao

steve

[BrailleSchool]

also, you havent declared base1 as anything so its automatically a variant.
so if you want base1 and base2 as string then youll need to do

Public Base1 As String
Public Base2 As String

Hi,

need help on a small application i am creating.... i created two classes however when i set them in one form i cant seem to access them in a different one.. experimented a bit... but dont really know how :d

pls help

Option Explicit
Dim player(5) As New player
Dim area(5) As New area
Dim base1, base2 As String
 
Public Sub setclass()
Set player(1) = New player
Set area(1) = New area
Set area(2) = New area
 
player(1).SetUp 4,0,0,0,0
 
area(1).SetUp "player", 1, 0, 0, 0  // each has value reps a different property
area(2).SetUp "enemy", 2, 0, 0, 0
End Sub
Private Sub Form_Load()
 
base1 = area(1).GetDescription
base2 = area(2).GetDescription
 
If base1 <> base2 Then
MsgBox "you fight"
Else
MsgBox "you love each other"
End If
 
End Sub

that all works... just if i wanna find out what area(1).getdescription in form2.


thanks in advance


steve