hej..
Der er lige et problem jeg har. det er fordi at jeg laver en lille kryds og bolle spil, og jeg skal sætte denne kode ind:
Function fuldraekke(spiller As String) As Boolean
fuldraekke = False
If Label(0) = spiller And Label(1) = spiller _
And Label(2) = spiller Then fuldraekke = True
If Label(3) = spiller And Label(4) = spiller _
And Label(5) = spiller Then fuldraekke = True
If Label(6) = spiller And Label(7) = spiller _
And Label(8) = spiller Then fuldraekke = True
If Label(0) = spiller And Label(3) = spiller _
And Label(6) = spiller Then fuldraekke = True
If Label(1) = spiller And Label(4) = spiller _
And Label(7) = spiler Then fuldraekke = True
If Label(2) = spiller And Label(5) = spiller _
And Label(8) = spiller Then fuldraekke = True
If Label(0) = spiller And Label(4) = spiller _
And Label(8) = spiller Then fuldraekke = True
If Label(2) = spiller And Label(4) = spiller _
And Label(6) = spiller Then fuldraekke = True
men hvor skal jeg sætte den ind. altså jeg har fået af vide at den skal indsættes i formens kode vindue, men jeg fik ikke af vide hvor (form_load form.....)
Håber i kan hjælpe..,
Hilsen Armen
Du sakl sætte den kode ind i formens kode ikke i load eller andre hændlser bare et tomt sted f.esk
lige und end sub
<pre>
Function fuldraekke(spiller As String) As Boolean
fuldraekke = False
If Label(0) = spiller And Label(1) = spiller _
And Label(2) = spiller Then fuldraekke = True
If Label(3) = spiller And Label(4) = spiller _
And Label(5) = spiller Then fuldraekke = True
If Label(6) = spiller And Label(7) = spiller _
And Label(8) = spiller Then fuldraekke = True
If Label(0) = spiller And Label(3) = spiller _
And Label(6) = spiller Then fuldraekke = True
If Label(1) = spiller And Label(4) = spiller _
And Label(7) = spiler Then fuldraekke = True
If Label(2) = spiller And Label(5) = spiller _
And Label(8) = spiller Then fuldraekke = True
If Label(0) = spiller And Label(4) = spiller _
And Label(8) = spiller Then fuldraekke = True
If Label(2) = spiller And Label(4) = spiller _
And Label(6) = spiller Then fuldraekke = True
end function
</pre>
læg mærke til end function
og så ksal du i labelkode kalde function som med en parameter
f.esk
fuldraekke(spiller As String) eller
call fuldraekke(spiller As String)
mvh.
Thomas Christensen