VB 6.0 Hvor placerer jeg en formel som virker overalt i programme

Du skal have oprettet en funktion i et modul
Klik på Project-menuen og vælg Add Module

I modulet skriver du f.eks.:
Public Resultat
Function Beregn()
  if frmBeregn.check1.value = 1 then
    resultat = frmBeregn.a + frmBeregn.b + frmBeregn.c
  Else
    resultat = frmBeregn.a + frmBeregn.b
  End If

I din Form kan du så f.eks. skrive

Private Sub Command1_Click()
  Beregn
End Sub

Foreløbig tak, men funktionen skal kaldes af sig selv. Det mener jeg at man kan. Skriver jeg så bare Beregn på det sted i koden hvor jeg vil have beregningen foretaget?

Netop

OK, det prøver jeg i morgen. Hvis det ikke virker, kræver jeg mine points tilbage!!!
Tak for hjælpen.

Du kan gøre funktionen meget bedre, ved at sende fx. kontrollerne eller blot a,b,c og en true/false (værdien af checkboxen) med som parametre - så kan funktionen også bruges på ALLE andre forme, og ikke kun på frmBeregn!

Og det er jo egentligt det, der er meningen med funktioner der er placeret i moduler, ik' ;o)

Det kan enhver jo sige? Hvad med lidt kode til det? Og hvordan kan jeg give dig point uden at snyde?

Jeg skal ikke have points...

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vastmfunctionx.asp

Altså noget i retning af

Function Beregn(Byval a as integer, Byval b as integer, byval c as integer, checked as Byte) as Integer
  if Checked = 1 then
    Beregn = a + b + c
  Else
    Beregn = a + b
  End If
End Function

Herefter kalder du blot

Msgbox Beregn(a,b,c,check1.value)

eller

Dim Resultat
Resultat = Beregn(2,3,4,check1.value)

eller...

PS: En function bør altid returnere en værdi i dens navn, ellers bør en Sub bruges. Derudover bør der aldrig arbejdes direkte på variabler, men disse bariabler bør overføres vha. Byval - begge dele anvendes i ovenstående eksempel