19. september 2003 - 22:39Der er
7 kommentarer og 1 løsning
functions hvordan?
hey... jeg har denne kode:
---
Public Function Multiply() Dim X As Integer Dim Y As Integer Dim Z As Integer Dim intPress As Integer Z = 5 X = intPress = InputBox("X", "X") Y = intPress = InputBox("Y", "Y") Z = X * Y (Form1.)Label1.Caption = Z 'form1.lab... i module.. ellers label... End Function
---
jeg ka ik lige finde ud af det med functions... har prøvet at sætte den kode ind i modules og i form1... men det jeg ik forstår er at når jeg skriver i min form_load() "Call Multiply", kommer der til at stå "0" i Label1... hvad er det lige jeg gør galt? fordi jeg er ved at gå amok over det... har prøvet mig frem i rimelig lang tid nu... :/
Public Function Multiply() Dim X As Integer Dim Y As Integer Dim Z As Integer Dim intPress As Integer Z = 5 X = InputBox("X", "X") Y = InputBox("Y", "Y") Z = X * Y (Form1.)Label1.Caption = Z 'form1.lab... i module.. ellers label... End Function
Public Function Multiply() Dim X As Integer Dim Y As Integer Dim Z As Integer Dim intPress As Integer Z = 5 X = InputBox("X", "X") Y = InputBox("Y", "Y") Z = X * Y multiply=z End Function Prøv i Form_load at skrive msgbox multiply()
lol... det hjalp da meget fint.... nå... men hvis du (nmh) lige lægger et svar, får du dine points... :D takker for hjælpen.. reddet min computer fra masser af tæsk! ;)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
