Hjælp til funtion
Jeg har denne kode her:Public Function computer_card1() As Integer
Dim cards As New kort.SpilleKort
Dim path As String
path = Directory.GetCurrentDirectory
Randomize()
cards.Værdi = CByte(((13 * Rnd())))
cards.Farve = CType(((4 * Rnd())), kort.SpilleKort_Farve)
If cards.Værdi = 0 Then
cards.Værdi = 1
ElseIf cards.Farve = 0 Then
cards.Farve = kort.SpilleKort_Farve.Klør
End If
Main_form.Pb1Computer.Image = Image.FromFile(path & "\Cards\" & cards.Farve & "_" & cards.Værdi & ".gif")
Return cards.Værdi
End Function
Men hvordan får jeg fat i min Return?
Altså noget i stil med.
Label1.text = "Min return værdi"