call variable from different form

[sameer spitfire]

i got a multiple form in my project
i have to call the variable from the different form

the variable is not public declared

can i do it

all the from are loaded

[S@NSIS]

You could have the variable as a public property of your form.

example:

'Private variable in form1
Private m_myVar as string
 
'Public property Read/Write
Public Property Get myVar() As String
  myVar = m_myVar
End Property
 
Public Property Let myVar(ByVal RHS As String)
  m_myVar = RHS
End Property
 
'You can then call from anywhere like
Form1.myVar = "Test"

[plenderj]

Or add a module, and make the variable public there.

[sameer spitfire]

i dont want to declare the variable public of a reson
i just want to know can we do it this way

[plenderj]

Okay, if you dont want to declare it Public, then declare it Global

[S@NSIS]

The variable will not be publicly declared if you do it as a property of the form.

It will only be accessible through the form in which you place it.

[sameer spitfire]

no public no global just priavte for the form
and the form is loaded

can i call them from different form

[S@NSIS]

the only other alternative is create a method on the form that alters the variable.

It has to be public somewhere if you want to change it from anywhere other than the form

[beachbum]

Wow strict rules!!

You could also create a public (scared to use that word ) function in the form and call it from the other form like this...

'Form1------------------------
Private Sub Command1_Click()
    Form2.Show
    Debug.Print Form2.PassVar
End Sub
 
'Form2------------------------------
Option Explicit
 
Dim MyPrivVar As Integer
 
Private Sub Form_Load()
    MyPrivVar = 2
End Sub
 
Function PassVar() As Integer
    PassVar = MyPrivVar
End Function

[plenderj]

I think people just have a thing against public variables and functions ...

[beachbum]

Yeah
but i'd much rather use a module with public variable than a form level variable or function. Cos then u have to cater for the form load events that can fire when u didnt want them to.
Bah!

[S@NSIS]

Strange. I actually prefer the method of accessing them from properties on the form.

Each to their own I suppose

[plenderj]

I like modules because they're totally independant.
Though the only downside is that when you use a variable or function from a module, the entire module is then loaded into memory

[da_silvy]

can you not store your info in the form.tag property?

[plenderj]

Performance wise storing something in the .Tag property is like pulling a loaded trailer up a steep hill in a ten year old skoda.

[da_silvy]

how come?

[plenderj]

All properties in VB are far far far slower than a variable.

Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private strTag As String
 
Private Sub Form_Load()
    Dim time1 As Long, time2 As Long
    Dim i As Long
    
    Tag = "I 0wnz"
    strTag = "I 0wnz"
    
    time1 = GetTickCount
    For i = 0 To 100000
        If Tag = "I 0wnz" Then
            
        End If
    Next
    time1 = GetTickCount - time1
    
    time2 = GetTickCount
    For i = 0 To 100000
        If strTag = "I 0wnz" Then
            
        End If
    Next
    time2 = GetTickCount - time2
    
    MsgBox time1 & vbCrLf & time2
    
End Sub

144 v 35 in favour of variables

[da_silvy]

You wrote a function to prove that ehh

[beachbum]

Where Jamie works they always give him things like that to do so that the secretaries dont sue for constant sexual harrassment

[plenderj]

Nah I just like code optimization.
Gotten into a real routine now. When I come up with a different way of doing something, I click on the little VB6 icon in my taskbar thingy, new project, then click the Show Desktop button on my taskbar, double click the shortcut to win32api. Hit CTRL-F and type in GetTickCount and hit find next twice.
Copy the line. Alt-tab into VB. Right click on form and do View Code. Type Private and then hit CTRL-V

Then double click on form to create the on load code, declare the 2 time variables and a counter. Then compare, msgbox, and write down the results

[da_silvy]

ooo



I wanna be like you jamie

I will start comparing code with others'

[plenderj]

Ah shag off.
Not my fault I ownz is it

[da_silvy]

But do you....