Hjælp til select case igen...

1) drop Public Class funktion
2) ret fra
  Public Sub hit()
til
  Public Sub hit(i)

og kald rutinen med
hit(2)
for at sætte værdien.

igen så bliver mit hit bare sat til 2 og den bliver any way ikke større :o(

ellers gør jeg noget forkert.

Public Class funktion
    dim i as integer = 1
    Public Sub hit()
        Select Case i
            Case 1
                ' Her sker der så noget
                i = 2
            Case 2
                ' Her sker der mere
                i = 3
            Case 3
                ' og endnu mere
        End Select

ser OK ud i mine øjne (bortset fra at klassenavnet et totalt forvirrende).

Dim f As funktion = New funktion
' nu er f.i lig med 1
f.hit
' nu er f.i lig med 2
f.hit
' nu er f.i lig med 3
f.hit
' nu er f.i lig med 3
f.hit
' nu er f.i lig med 3

Hm måske har jeg endnu en gang set mig blind på det hele.

Altså da jeg startede i dag havde jeg min select case i min "main form"

Da så den sådan her ud:

Public Class Main_form
dim i as integer = 3


Private Sub BtnHit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHit.Click

        Select Case i
            Case 3
                ' Her sker der så noget
                i = 4
            Case 2
                ' Her sker der mere
                i = 5
            Case 3
                ' og endnu mere
        End Select
    End Sub

Det virkede fint, men så blev jeg enig med mig selv om jeg ville fjerne så meget kode som muligt fra min main menu og smide det i function's og sub's
Så jeg har en class fil som indeholder alt det.
Min class hedder så funktion (ind til jeg kommer op med et bedre navn) og der finder du så min sub som hedder hit og det ser sådan her ud:

Private Sub BtnHit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHit.Click
        Dim del_kort As New funktion
        del_kort.hit()
    End Sub


og min hit har i jo så set.
Og der kommer jeg så aldrig videre end den bliver på 3

Dim del_kort As New funktion
        del_kort.hit()

laver jo en ny instans af klassen funktion hver gang.

Det duer ikke !

ah javel ja.
Så kan jeg sgu da godt forstå jeg ikke komme nogen steder.

Hva gør jeg så? ;o)

Måske:

Public Class funktion
    dim i as integer = 1
    Public Sub hit()
        Select Case i
            Case 1
                docase1()
                i = 2
            Case 2
                docase2()
                i = 3
            Case 3
                docase3();
        End Select
...
  Private Sub docase1
      ' whatever
  End Sub
  Private Sub docase2
      ' whatever
  End Sub
  Private Sub docase3
      ' whatever
  End Sub

men ingen funktioner klasse, da den her kode tilsyneladende kræver brug af form klassens data.

Hm nu skal jeg lige være med her.

De der private sub docase1 osv... skal de være på min main form eller skal de være i min funtion også?

Og ja min select case angiver hvor langt jeg er kommet i min række af kort og om der skal deles flere ud og mine kort er selvfølgelig mine pictureboxes på min main form

Mig der skrev forkert.

De skal være i din form klasse.

Nååååår ja klart...
Det var da egentlig en ret smart og logisk måde at løse problemet på det kan jeg da godt se.

Mange tak igen arne... Du kender det jo... smid et svar ;o)

svar