Variablen welche nicht zurückgesetzt werden

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Variablen welche nicht zurückgesetzt werden

    Mein Problem ist dass mir die Variablen jedesmal wenn die Sub gewechselt wird Resetet werden.
    Hat wer ne lösung.

    Das ziel:
    Wird button 1 geklickt wird eine 1 in einer variable gespeichert wird button 2 geklickt wird eine 2 in der variable gespeichert.
    Die variable wird dann in einer anderen Sub gebraucht.
    Oder alternativ:
    Wenn button 1 geklickt wird bei einer variable +1 gezählt und die variable wird weiter gebraucht um auch die anderen klicks zu zählen

    Freundliche Grüsse
    Noel Schenk

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „noelelias“ () aus folgendem Grund: Wurde noch nicht gelöst

    @RushDen:
    Nein, das funzt nur wenn immer die gleiche Methode aufgerufen wird.

    @noelelias:
    Deklariere deine Variable ausserhalb der Methode

    VB.NET-Quellcode

    1. Private _Variable as Intefer
    3. Sub Test1()
    4. _Variable = 1
    5. End Sub
    7. Sub Test2()
    8. _Variable = 2
    9. End Sub


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    geht leider nicht

    VB.NET-Quellcode

    1. Imports System.GlobalizationImports Telerik.Web.UIImports iCOSS.DatabaseImports iCOSS.DiensteImports iCOSS.ProtokollImports iCOSS.WebUI
    3. Partial Class FStd_test_TikTakToe_TikTakToe Inherits System.Web.UI.Page
    4. Dim oPP As iCOSS.Public.PublicParameter Dim oWebPage As WebPage
    6. Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit Me.oWebPage = CType(Me.Session(iCOSS.Public.PublicParameter.WebUI.SessionNameWebpageParameter), iCOSS.WebUI.WebPage) : Me.oWebPage.PreInit(Me, Me.oPP) End Sub
    7. Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init Me.oWebPage.Init(Me.oPP, Me) Me.oWebPage.InitEnd(Me.oPP, Me)
    8. End Sub
    9. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Const tCFunktionsname As String = "Page_Load"
    10. Try '-- Page load Me.oWebPage.Load(Me.oPP, Me, tCFunktionsname) Me.oPP = CType(Me.Session(iCOSS.Public.PublicParameter.WebUI.SessionNamePP), iCOSS.Public.PublicParameter)
    11. '--
    12. Me.oWebPage.LoadEnd(Me.oPP, Me)
    13. Catch ex As Exception Me.oPP.Log.ExterneMeldung = True Me.oPP.Log.WriteLog(Log.CLogTyp.E, "load", "Funktionsfehler Load Page " & Me.oPP.UI.PageNummer & ": " & ex.Message) End Try
    14. End Sub
    15. Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
    16. Try Me.oWebPage.Close(Me.oPP, Me) Catch ex As Exception Me.oPP.Log.WriteLog(Log.CLogTyp.Error_wichtig, "", "Fehler bei PageClose: " & ex.Message) End Try
    17. End Sub
    18. Protected Sub Page_Error(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Error
    19. Try Me.oWebPage.Fehler(Me.oPP, Me) Catch ex As Exception If Not IsNothing(Me.oPP.Log) Then Me.oPP.Log.WriteLog(Log.CLogTyp.Error_wichtig, "", "Fehler bei PageError: " & ex.Message) End Try
    20. End Sub
    61. Private btnwelcher As Integer
    62. Sub Welcherbutton() btnwelcher = 0 End Sub
    70. Dim colorchange1Color As System.Drawing.Color = Drawing.Color.Blue 'Hintergrund Farbe der Buttons btnTL- btnBR Dim counterTikTakToe As Decimal = 1
    73. Public Sub btnTL_Click(sender As Object, e As EventArgs) Handles btnTL.Click btnwelcher = 1 Me.oPP.Log.WriteLog(Log.CLogTyp.E, "btnTL_Click", "welcher xxx3d button nummer: " + btnwelcher.ToString)
    74. End Sub
    75. Public Sub btnTM_Click(sender As Object, e As EventArgs) Handles btnTM.Click btnwelcher = 2 Me.oPP.Log.WriteLog(Log.CLogTyp.E, "btnTM_Click", "welcher xxx3d button nummer: " + btnwelcher.ToString) End Sub
    76. Public Sub Start_Click(sender As Object, e As EventArgs) Handles Start.Click While counterTikTakToe <= 9 Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "countertiktaktoe :(start): aktuell: [" + counterTikTakToe.ToString + "]") Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "btnwelcher :(start): aktuell: [" + btnwelcher.ToString + "]") If btnwelcher = 1 Then
    77. Try
    78. Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "countertiktaktoe :(start): btwelcher 1 aktuell: [" + counterTikTakToe.ToString + "]")
    86. If counterTikTakToe = counterTikTakToe = 1 Or counterTikTakToe = 3 Or counterTikTakToe = 5 Or counterTikTakToe = 7 Or counterTikTakToe = 9 Then btnTL.ForeColor = Drawing.Color.Red btnTL.Text = "O" Else btnTL.ForeColor = Drawing.Color.Green btnTL.Text = "X" End If Catch ex As Exception lblInfo.Text = "Fehler: " + ex.Message
    87. Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "lblInfo:[" + ex.Message + "]") End Try End If If btnwelcher = 2 Then Try Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "countertiktaktoe :(start): btwelcher 2 aktuell: [" + counterTikTakToe.ToString + "]")
    88. Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "countertiktaktoe aktuell: [" + counterTikTakToe.ToString + "]")
    91. If counterTikTakToe = counterTikTakToe = 1 Or counterTikTakToe = 3 Or counterTikTakToe = 5 Or counterTikTakToe = 7 Or counterTikTakToe = 9 Then btnTM.ForeColor = Drawing.Color.Red btnTM.Text = "O" Else btnTM.ForeColor = Drawing.Color.Green btnTM.Text = "X" End If Catch ex As Exception lblInfo.Text = "Fehler: " + ex.Message
    92. Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "lblInfo:[" + ex.Message + "]") End Try End If counterTikTakToe += 1 End While End Sub
    100. End Class



    Spoiler anzeigen
    Imports System.Globalization
    Imports Telerik.Web.UI
    Imports iCOSS.Database
    Imports iCOSS.Dienste
    Imports iCOSS.Protokoll
    Imports iCOSS.WebUI


    Partial Class FStd_test_TikTakToe_TikTakToe
    Inherits System.Web.UI.Page

    Dim oPP As iCOSS.Public.PublicParameter
    Dim oWebPage As WebPage


    Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit
    Me.oWebPage = CType(Me.Session(iCOSS.Public.PublicParameter.WebUI.SessionNameWebpageParameter), iCOSS.WebUI.WebPage) : Me.oWebPage.PreInit(Me, Me.oPP)
    End Sub

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
    Me.oWebPage.Init(Me.oPP, Me)
    Me.oWebPage.InitEnd(Me.oPP, Me)

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Const tCFunktionsname As String = "Page_Load"

    Try
    '-- Page load
    Me.oWebPage.Load(Me.oPP, Me, tCFunktionsname)
    Me.oPP = CType(Me.Session(iCOSS.Public.PublicParameter.WebUI.SessionNamePP), iCOSS.Public.PublicParameter)

    '--

    Me.oWebPage.LoadEnd(Me.oPP, Me)

    Catch ex As Exception
    Me.oPP.Log.ExterneMeldung = True
    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "load", "Funktionsfehler Load Page " & Me.oPP.UI.PageNummer & ": " & ex.Message)
    End Try

    End Sub

    Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload

    Try
    Me.oWebPage.Close(Me.oPP, Me)
    Catch ex As Exception
    Me.oPP.Log.WriteLog(Log.CLogTyp.Error_wichtig, "", "Fehler bei PageClose: " & ex.Message)
    End Try

    End Sub

    Protected Sub Page_Error(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Error

    Try
    Me.oWebPage.Fehler(Me.oPP, Me)
    Catch ex As Exception
    If Not IsNothing(Me.oPP.Log) Then Me.oPP.Log.WriteLog(Log.CLogTyp.Error_wichtig, "", "Fehler bei PageError: " & ex.Message)
    End Try

    End Sub









































    Private btnwelcher As Integer

    Sub Welcherbutton()
    btnwelcher = 0
    End Sub








    Dim colorchange1Color As System.Drawing.Color = Drawing.Color.Blue 'Hintergrund Farbe der Buttons btnTL- btnBR
    Dim counterTikTakToe As Decimal = 1



    Public Sub btnTL_Click(sender As Object, e As EventArgs) Handles btnTL.Click
    btnwelcher = 1
    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "btnTL_Click", "welcher xxx3d button nummer: " + btnwelcher.ToString)

    End Sub

    Public Sub btnTM_Click(sender As Object, e As EventArgs) Handles btnTM.Click
    btnwelcher = 2
    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "btnTM_Click", "welcher xxx3d button nummer: " + btnwelcher.ToString)
    End Sub

    Public Sub Start_Click(sender As Object, e As EventArgs) Handles Start.Click
    While counterTikTakToe <= 9
    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "countertiktaktoe :(start): aktuell: [" + counterTikTakToe.ToString + "]")
    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "btnwelcher :(start): aktuell: [" + btnwelcher.ToString + "]")
    If btnwelcher = 1 Then

    Try

    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "countertiktaktoe :(start): btwelcher 1 aktuell: [" + counterTikTakToe.ToString + "]")








    If counterTikTakToe = counterTikTakToe = 1 Or counterTikTakToe = 3 Or counterTikTakToe = 5 Or counterTikTakToe = 7 Or counterTikTakToe = 9 Then
    btnTL.ForeColor = Drawing.Color.Red
    btnTL.Text = "O"
    Else
    btnTL.ForeColor = Drawing.Color.Green
    btnTL.Text = "X"
    End If
    Catch ex As Exception
    lblInfo.Text = "Fehler: " + ex.Message

    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "lblInfo:[" + ex.Message + "]")
    End Try
    End If
    If btnwelcher = 2 Then
    Try
    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "countertiktaktoe :(start): btwelcher 2 aktuell: [" + counterTikTakToe.ToString + "]")

    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "countertiktaktoe aktuell: [" + counterTikTakToe.ToString + "]")



    If counterTikTakToe = counterTikTakToe = 1 Or counterTikTakToe = 3 Or counterTikTakToe = 5 Or counterTikTakToe = 7 Or counterTikTakToe = 9 Then
    btnTM.ForeColor = Drawing.Color.Red
    btnTM.Text = "O"
    Else
    btnTM.ForeColor = Drawing.Color.Green
    btnTM.Text = "X"
    End If
    Catch ex As Exception
    lblInfo.Text = "Fehler: " + ex.Message

    Me.oPP.Log.WriteLog(Log.CLogTyp.E, "Start_Click", "lblInfo:[" + ex.Message + "]")
    End Try
    End If
    counterTikTakToe += 1
    End While
    End Sub









    End Class







































    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „noelelias“ ()

    Wie meinst du das?
    Im Beispiel oben ist die Variable "_Variable" in der ganzen Klasse verfügbar.
    Du kannst ihr entweder einen Wert zuweisen per _Variable = Wert oder auslesen zB.: Debug.print(_Variable.ToString())

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Also so ähnlich:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Hi()
    3. Static Hallo As String
    4. MessageBox.Show(Hallo)
    5. Hallo = "Hi"
    6. End Sub
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. Hi()
    9. End Sub
    10. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    11. Hi()
    12. End Sub
    13. End Class


    Beim ersten mal wird "" rausgegeben, dannach "Hi" weil der Wert der variable immer bleibt

    Bitte formatiere deinen Code damit man ihm lesen kann -> [01 Forum] Bitte VB-Tag(s) benutzen - was ist damit gemeint? Oder: Wie füge ich Quellcode korrekt im Forum ein?

    Du hast 2 Möglichkeiten:
    - Entweder du deklarierst innerhalb der Methode eine Variable mit Static. Somit behält diese Variable ihren Wert wenn du diese Methode erneut aufrufst. (Geht jedoch nur innerhalb dieser 1 Methode
    - Oder du deklarierst dir eine Variable ausserhalb der Methoden und kannst von jeder beliebigen Methode darauf zugreifen.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    also noch einmal etwa so möchte ich es
    dim welcherbtn as integer = 0

    btn1_click
    welcherbtn =1


    btn2_click
    welcherbtn = 2


    btn3_click
    if welcherbtn =1 then
    ...
    If welcherbtn = 2 then
    ...


    also eig. eine abfrage welcher button geklickt wurde oder wird

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „noelelias“ ()

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private welcherbtn As Integer
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. welcherbtn += 1
    5. End Sub
    7. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    8. welcherbtn = 2
    9. End Sub
    11. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    12. If welcherbtn = 1 Then
    13. '...
    14. ElseIf welcherbtn = 2 Then
    15. '...
    16. End If
    17. End Sub
    18. End Class


    Übrigens frag ich mich, ob du deinen Code, den du oben gepostet hast, überhaupt verstehst, wenn du schon bei so etwas Probleme kriegst..

    Spoiler anzeigen
    14. 16:50:03.205 ;.PreInit ;>>> ;
    14. 16:50:03.206 ;.PreInit ;>>> ;
    14. 16:50:03.206 ;.PreInit ;>>> ;_____ Page PreInit _____ Page [True] ____ PostBack: True
    14. 16:50:03.206 ;.Init ;>>> ;_____ Page Init _____ <<<TikTakToe.>>> /FullName: TikTakToe.aspx /PostBack: True
    14. 16:50:03.206 ;PageBerechtigungLese;>> ; ## Berechtigung prüfen, Benutzer [logway], Page [TikTakToe.] (aus interner (Menü-) Tabelle) ...
    14. 16:50:03.207 ;PageBerechtigungLese;> ; ... Prüfung Page [TikTakToe.] in Hauptmenü (Rows vorhanden: 42) ...
    14. 16:50:03.207 ;PageBerechtigungLese;> ; # Ist ADMINISTRATOR - bekommt automatisch alle Rechte
    14. 16:50:03.207 ;PageBerechtigungLese;> ; (Ist ADMINISTRATOR) - Check Page in T268 ...
    14. 16:50:03.207 ;CheckPageInT268 ;> ; # Page TikTakToe. in T268 prüfen ...
    14. 16:50:03.208 ;SqlSelect ;s ; (noTrans) SELECT * FROM T268_Pages WHERE t268_SystemID = '30240001' AND t268_Pagenummer = 'TikTakToe.'
    14. 16:50:03.236 ;DBSqlExec ;s ; Sel-Abfrage-Dauer: 27.4031 ms /#Row's: 1
    14. 16:50:03.236 ;CheckPageInT268 ;> ; OK; Formular existiert in T268
    14. 16:50:03.236 ;.Init ;>> ; ______ Berechtigungen: /Anzeigen: 10 /Detail: 10 /Funktionen: 10
    14. 16:50:03.237 ;.InitEnd ;> ; _____ Page Init Ende _____
    14. 16:50:03.238 ;.Load ;>>> ;_____ Page Load _____ <<<TikTakToe.>>> /FullName: TikTakToe.aspx /absolut URI: localhost/UI/Fstd/Test/TikTakToe/TikTakToe.aspx
    14. 16:50:03.238 ;.LoadEnd ;> ; _____ Page Load Ende _____
    14. 16:50:03.239 ;MasterPage_Load ;>> ; __________ MasterPage load start ___________
    14. 16:50:03.239 ;MasterPage_Load ;>> ; --- Load fertig --- DB-State=Open
    14. 16:50:03.246 ;btnTL_Click ;! ; welcher xxx3d button nummer: 1
    14. 16:50:03.256 ;TikTakToe.aspx ;> ; UNLOAD(CLOSE) PAGE (PostBack) (ohne Form-Log) TikTakToe.aspx
    14. 16:50:03.762 ;.PreInit ;>>> ;
    14. 16:50:03.762 ;.PreInit ;>>> ;
    14. 16:50:03.763 ;.PreInit ;>>> ;_____ Page PreInit _____ Page [True] ____ PostBack: True
    14. 16:50:03.763 ;.Init ;>>> ;_____ Page Init _____ <<<TikTakToe.>>> /FullName: TikTakToe.aspx /PostBack: True
    14. 16:50:03.763 ;PageBerechtigungLese;>> ; ## Berechtigung prüfen, Benutzer [logway], Page [TikTakToe.] (aus interner (Menü-) Tabelle) ...
    14. 16:50:03.763 ;PageBerechtigungLese;> ; ... Prüfung Page [TikTakToe.] in Hauptmenü (Rows vorhanden: 42) ...
    14. 16:50:03.764 ;PageBerechtigungLese;> ; # Ist ADMINISTRATOR - bekommt automatisch alle Rechte
    14. 16:50:03.764 ;PageBerechtigungLese;> ; (Ist ADMINISTRATOR) - Check Page in T268 ...
    14. 16:50:03.764 ;CheckPageInT268 ;> ; # Page TikTakToe. in T268 prüfen ...
    14. 16:50:03.764 ;SqlSelect ;s ; (noTrans) SELECT * FROM T268_Pages WHERE t268_SystemID = '30240001' AND t268_Pagenummer = 'TikTakToe.'
    14. 16:50:03.791 ;DBSqlExec ;s ; Sel-Abfrage-Dauer: 26.872 ms /#Row's: 1
    14. 16:50:03.791 ;CheckPageInT268 ;> ; OK; Formular existiert in T268
    14. 16:50:03.792 ;.Init ;>> ; ______ Berechtigungen: /Anzeigen: 10 /Detail: 10 /Funktionen: 10
    14. 16:50:03.792 ;.InitEnd ;> ; _____ Page Init Ende _____
    14. 16:50:03.793 ;.Load ;>>> ;_____ Page Load _____ <<<TikTakToe.>>> /FullName: TikTakToe.aspx /absolut URI: localhost/UI/Fstd/Test/TikTakToe/TikTakToe.aspx
    14. 16:50:03.794 ;.LoadEnd ;> ; _____ Page Load Ende _____
    14. 16:50:03.794 ;MasterPage_Load ;>> ; __________ MasterPage load start ___________
    14. 16:50:03.794 ;MasterPage_Load ;>> ; --- Load fertig --- DB-State=Open
    14. 16:50:03.805 ;Start_Click ;! ; countertiktaktoe :(start): aktuell: [1]
    14. 16:50:03.805 ;Start_Click ;! ; btnwelcher :(start): aktuell: [0]
    14. 16:50:03.806 ;Start_Click ;! ; countertiktaktoe :(start): aktuell: [2]
    14. 16:50:03.806 ;Start_Click ;! ; btnwelcher :(start): aktuell: [0]
    14. 16:50:03.806 ;Start_Click ;! ; countertiktaktoe :(start): aktuell: [3]
    14. 16:50:03.806 ;Start_Click ;! ; btnwelcher :(start): aktuell: [0]
    14. 16:50:03.806 ;Start_Click ;! ; countertiktaktoe :(start): aktuell: [4]
    14. 16:50:03.807 ;Start_Click ;! ; btnwelcher :(start): aktuell: [0]
    14. 16:50:03.807 ;Start_Click ;! ; countertiktaktoe :(start): aktuell: [5]
    14. 16:50:03.807 ;Start_Click ;! ; btnwelcher :(start): aktuell: [0]
    14. 16:50:03.807 ;Start_Click ;! ; countertiktaktoe :(start): aktuell: [6]
    14. 16:50:03.807 ;Start_Click ;! ; btnwelcher :(start): aktuell: [0]
    14. 16:50:03.808 ;Start_Click ;! ; countertiktaktoe :(start): aktuell: [7]
    14. 16:50:03.808 ;Start_Click ;! ; btnwelcher :(start): aktuell: [0]
    14. 16:50:03.808 ;Start_Click ;! ; countertiktaktoe :(start): aktuell: [8]
    14. 16:50:03.808 ;Start_Click ;! ; btnwelcher :(start): aktuell: [0]
    14. 16:50:03.808 ;Start_Click ;! ; countertiktaktoe :(start): aktuell: [9]
    14. 16:50:03.808 ;Start_Click ;! ; btnwelcher :(start): aktuell: [0] 14. 16:50:03.817 ;TikTakToe.aspx ;> ; UNLOAD(CLOSE) PAGE (PostBack) (ohne Form-Log) TikTakToe.aspx

    zwischen der xxx3d button nr: 1
    und btnwelcher aktuel: 0
    wir das ganze resetet

    Wenn Du rausfinden musst, welcher Button geklickt wurde, um eine entsprechende Aktion auszuführen, dann:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private _youInteger As Integer = 0
    4. Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
    5. Select Case True
    6. Case sender Is Button1
    7. _youInteger += 1
    8. Case sender Is Button2
    9. _youInteger += 2
    10. Case sender Is Button3
    11. _youInteger += 3
    12. Case sender Is Button4
    13. _youInteger += 4
    14. End Select
    15. End Sub
    17. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    18. Me.Text = _youInteger.ToString()
    19. End Sub
    20. End Class


    Eine etwas genauere Problem/Zielbeschreibung würde evtl. dazu führen, dass man Dir eine passable Lösung anbieten kann.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    bei mir zeigt es den quell code nur im editor an hoffe ihr seht es

    Funktioniert nicht

    VB.NET-Quellcode

    1. Select Case True Case sender Is btnTL _youInteger = 1 Case sender Is btnTM _youInteger = 2 Case sender Is btnTR _youInteger = 3 Case sender Is btnML _youInteger = 4 Case sender Is btnMM _youInteger = 5 Case sender Is btnMR _youInteger = 6 Case sender Is btnBL _youInteger = 7 Case sender Is btnBM _youInteger = 8 Case sender Is btnBR _youInteger = 9 Case sender Is btnPlayerone player = 1 Case sender Is btnPlayertwo player = 2
    2. End Select



    Quellcode

    1. Select Case True Case sender Is btnTL _youInteger = 1 Case sender Is btnTM _youInteger = 2 Case sender Is btnTR _youInteger = 3 Case sender Is btnML _youInteger = 4 Case sender Is btnMM _youInteger = 5 Case sender Is btnMR _youInteger = 6 Case sender Is btnBL _youInteger = 7 Case sender Is btnBM _youInteger = 8 Case sender Is btnBR _youInteger = 9 Case sender Is btnPlayerone player = 1 Case sender Is btnPlayertwo player = 2
    2. End Select


    Spoiler anzeigen

    Select Case True
    Case sender Is btnTL
    _youInteger = 1
    Case sender Is btnTM
    _youInteger = 2
    Case sender Is btnTR
    _youInteger = 3
    Case sender Is btnML
    _youInteger = 4
    Case sender Is btnMM
    _youInteger = 5
    Case sender Is btnMR
    _youInteger = 6
    Case sender Is btnBL
    _youInteger = 7
    Case sender Is btnBM
    _youInteger = 8
    Case sender Is btnBR
    _youInteger = 9
    Case sender Is btnPlayerone
    player = 1
    Case sender Is btnPlayertwo
    player = 2

    End Select



    Select Case True Case sender Is btnTL _youInteger = 1 Case sender Is btnTM _youInteger = 2 Case sender Is btnTR _youInteger = 3 Case sender Is btnML _youInteger = 4 Case sender Is btnMM _youInteger = 5 Case sender Is btnMR _youInteger = 6 Case sender Is btnBL _youInteger = 7 Case sender Is btnBM _youInteger = 8 Case sender Is btnBR _youInteger = 9 Case sender Is btnPlayerone player = 1 Case sender Is btnPlayertwo player = 2 End Select
    Dateien

    Dieser Beitrag wurde bereits 12 mal editiert, zuletzt von „noelelias“ ()

    noelelias schrieb:

    Funktioniert nicht
    Wo und wie ist _youInteger deklariert?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende