kalde en funktion i en form fra en module fil

Modulnavn.Funktionsnavn

Fx.

  MinVariabel = Module1.MyFunction(2,5) + 5

Her er et lille eksempel:

'------------------------------- Module1 -------------------------------
' Du skal bare lige være opmærksom på at du ikke kan bruge en funktion
' fra et module hvis der står "Private" forand.
'-----------------------------------------------------------------------
Option Explicit

'Denne funktion kan kaldes alle steder fra. (Form, Class, Module, UserControl)
Public Function myTest1(ByVal Tal1 As Integer, ByVal Tal2 As Integer) As Integer
  myTest1 = myTest2(Tal1, Tal1)
End Function

'Denne funktion kan kun kaldes fra dette module.
Private Function myTest2(ByVal Tal1 As Integer, ByVal Tal2 As Integer) As Integer
  myTest2 = (Tal1 + Tal1)
End Function
'------------------------------- Module1 -------------------------------

'-------------------------------- Form1 --------------------------------
Option Explicit

Private Sub Form_Load()
  Me.Caption = Module1.myTest1(5, 5)
  'eller
  Me.Caption = myTest1(5, 5)
End Sub
'-------------------------------- Form1 --------------------------------

en lille fejl det skal være Tal2 til sidst :o)

myTest1 = myTest2(Tal1, Tal2)
myTest2 = (Tal1 + Tal2)

Ellers søg på Scope + variables i hjælpen - der står alt om hvad der synligt hvor og hvornår afhængigt af hvordan det er erklæret :o)

Nu ved jeg godt at jeg træder sjh lidt over tæerne, men for at pensle tingene ud i pap, så kræver det vel at modulet er tilknyttet projektet først... :o)

Samt at man ved at en Funktion returnerer en værdi, modsat en Sub.


- Mikker

tued?