Forum Discussion

ChristopherWels's avatar
ChristopherWels
Occasional Contributor
14 years ago

VB script : Function with return value and argument

Hi all, The function i wrote looks like this Function example1(ByVal id As Integer) As Boolean if( id = 1234) Then            return false End if  if( id = 4321) Then         ...
karkadil's avatar
karkadil
Valued Contributor
14 years ago
Got 2 hints ;)




  1. Misspelling in function call ("writepoducal" instead of "writeproducol")

  2. Since writeproducol doesn't return value, you should call it without brackets




Sub testcall1()

Dim failed

failed = example1(4142)

writeproducol 4142, 8.2, failed

End Sub



Function writeproducol(ByVal id,byVal version,byVal failed2)

    

  If (failed2) Then

        Call Aliases.EXCEL.wndXLMAIN.XLDESK.EXCEL6.Keys(id&";test-case;Failed;"&version&";;;;[Enter]")

  Else  

        Call Aliases.EXCEL.wndXLMAIN.XLDESK.EXCEL6.Keys(id&";test-case;Passed;"&version&";;;;[Enter]")

 

  End If

End Function