string als link verwenden

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ICEMAN-Wappen.

    string als link verwenden

    hallo zusammen hab mal wieder eine frage und diesmal nicht aus dem untericht und darum auch mit visual studio !!yeah!!

    und zwar versuche ich gerade einer picturebox zu sagen welches bild es anzeigen soll. ich habe nun bereits die zweite variante ausprobiert aber auch die geht nicht. hier mal der code für v2:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public BildPfad() As Image
    3. Public Kartenwert() As Byte
    4. Public zufallszahl As Integer
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. BildPfad(0) = My.Resources.Deckblatt
    7. BildPfad(1) = My.Resources.karo2c_152
    8. BildPfad(2) = My.Resources.karo3c_152
    9. BildPfad(3) = My.Resources.karo4c_152
    10. BildPfad(4) = My.Resources.karo5c_152
    11. BildPfad(5) = My.Resources.karo6c_152
    12. BildPfad(6) = My.Resources.karo7c_152
    13. BildPfad(7) = My.Resources.karo8c_152
    14. BildPfad(8) = My.Resources.karo9c_152
    15. BildPfad(9) = My.Resources.karo10c_152
    16. BildPfad(10) = My.Resources.karobubec_152
    17. BildPfad(11) = My.Resources.karodamec_152
    18. BildPfad(12) = My.Resources.karokoenigc_152
    19. BildPfad(13) = My.Resources.karoasc_152
    20. BildPfad(14) = My.Resources.herz2c_152
    21. BildPfad(15) = My.Resources.herz3c_152
    22. BildPfad(16) = My.Resources.herz4c_152
    23. BildPfad(17) = My.Resources.herz5c_152
    24. BildPfad(18) = My.Resources.herz6c_152
    25. BildPfad(19) = My.Resources.herz7c_152
    26. BildPfad(20) = My.Resources.herz8c_152
    27. BildPfad(21) = My.Resources.herz9c_152
    28. BildPfad(22) = My.Resources.herz10c_152
    29. BildPfad(23) = My.Resources.herzbubec_152
    30. BildPfad(24) = My.Resources.herzdamec_152
    31. BildPfad(25) = My.Resources.herzkoenigc_152
    32. BildPfad(26) = My.Resources.herzasc_152
    33. BildPfad(27) = My.Resources.pik2c_152
    34. BildPfad(28) = My.Resources.pik3c_152
    35. BildPfad(29) = My.Resources.pik4c_152
    36. BildPfad(30) = My.Resources.pik5c_152
    37. BildPfad(31) = My.Resources.pik6c_152
    38. BildPfad(32) = My.Resources.pik7c_152
    39. BildPfad(33) = My.Resources.pik8c_152
    40. BildPfad(34) = My.Resources.pik9c_152
    41. BildPfad(35) = My.Resources.pik10c_152
    42. BildPfad(36) = My.Resources.pikbubec_152
    43. BildPfad(37) = My.Resources.pikdamec_152
    44. BildPfad(38) = My.Resources.pikkoenigc_152
    45. BildPfad(39) = My.Resources.pikasc_152
    46. BildPfad(40) = My.Resources.kreuz2c_152
    47. BildPfad(41) = My.Resources.kreuz3c_152
    48. BildPfad(42) = My.Resources.kreuz4c_152
    49. BildPfad(43) = My.Resources.kreuz5c_152
    50. BildPfad(44) = My.Resources.kreuz6c_152
    51. BildPfad(45) = My.Resources.kreuz7c_152
    52. BildPfad(46) = My.Resources.kreuz8c_152
    53. BildPfad(47) = My.Resources.kreuz9c_152
    54. BildPfad(48) = My.Resources.kreuz10c_152
    55. BildPfad(49) = My.Resources.kreuzbubec_152
    56. BildPfad(50) = My.Resources.kreuzdamec_152
    57. BildPfad(51) = My.Resources.kreuzkoenigc_152
    58. BildPfad(52) = My.Resources.kreuzasc_152
    60. Kartenwert(0) = 0
    61. Kartenwert(1) = 2
    62. Kartenwert(2) = 3
    63. Kartenwert(3) = 4
    64. Kartenwert(4) = 5
    65. Kartenwert(5) = 6
    66. Kartenwert(6) = 7
    67. Kartenwert(7) = 8
    68. Kartenwert(8) = 9
    69. Kartenwert(9) = 10
    70. Kartenwert(10) = 2
    71. Kartenwert(11) = 3
    72. Kartenwert(12) = 4
    73. Kartenwert(13) = 11
    74. Kartenwert(14) = 2
    75. Kartenwert(15) = 3
    76. Kartenwert(16) = 4
    77. Kartenwert(17) = 5
    78. Kartenwert(18) = 6
    79. Kartenwert(19) = 7
    80. Kartenwert(20) = 8
    81. Kartenwert(21) = 9
    82. Kartenwert(22) = 10
    83. Kartenwert(23) = 2
    84. Kartenwert(24) = 3
    85. Kartenwert(25) = 4
    86. Kartenwert(26) = 11
    87. Kartenwert(27) = 2
    88. Kartenwert(28) = 3
    89. Kartenwert(29) = 4
    90. Kartenwert(30) = 5
    91. Kartenwert(31) = 6
    92. Kartenwert(32) = 7
    93. Kartenwert(33) = 8
    94. Kartenwert(34) = 9
    95. Kartenwert(35) = 10
    96. Kartenwert(36) = 2
    97. Kartenwert(37) = 3
    98. Kartenwert(38) = 4
    99. Kartenwert(39) = 11
    100. Kartenwert(40) = 2
    101. Kartenwert(41) = 3
    102. Kartenwert(42) = 4
    103. Kartenwert(43) = 5
    104. Kartenwert(44) = 6
    105. Kartenwert(45) = 7
    106. Kartenwert(46) = 8
    107. Kartenwert(47) = 9
    108. Kartenwert(48) = 10
    109. Kartenwert(49) = 2
    110. Kartenwert(50) = 3
    111. Kartenwert(51) = 4
    112. Kartenwert(52) = 11
    113. End Sub
    114. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    115. zufallszahl = CInt(NumericUpDown1.Value)
    116. Label2.Text = Kartenwert(zufallszahl)
    117. PictureBox1.Image = BildPfad(zufallszahl)
    118. End Sub
    119. End Class


    und bei v1 war bildpfad as string deklariert und jeder link hat ein tostring dranbekommen. auch das hat net funktioniert wie kriege ich das hin, das ich dem programm sagen kann welches bild er anzeigen soll??

    mal wieder besten dank im voraus
    mfg ICE

    edit: hier noch die fehlermeldung: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ICEMAN-Wappen“ ()

    Hallo!

    Statt eines Array kannst du auch eine generische Liste verwenden,
    ist was die Anzahl betrifft dynamisch und du musst vorher nicht wissen,
    wieviele Elemente du hinzufügen möchtest:

    VB.NET-Quellcode

    1. Public BildPfade As new List(Of Image)
    2. BildPfade.add(...)
    3. BildPfade.add(...)
    6. picturebox.image = Bildpfade.Item(0)

    @vanitas-mundi: wenn wir schon bei Verbesserungsvorschlägen sind: Dann empfehle ich gleich eine List (Of clsKarte):

    VB.NET-Quellcode

    1. Public Class clsKarte
    2. Public Bild as image
    3. Public Wert as integer
    4. 'mit Konstruktor:
    5. Sub New (bild as image, wert as integer)
    6. Myclass.Bild = bild
    7. Myclass.Wert = wert
    8. End Sub
    9. 'usw....
    10. End Class

    das würde doch aber bedeuten das ich die klasse anlegen muss und dann auch noch jede karte einzeln einlesen und jedesmal bei bedarf direkt ansprechen muss oder liege ich da falsch?
    also ich denke das wie variante mit den arrays( es werden noch einige mehr, in diesem fall einfacher ist, da ich die zufallszahl ja immerwieder nutzen kann bei jedem array. ich gebe ja zu das es vll nicht gerade guter code ist aber in diesem fall effektiv.

    aber ich lasse mich gern eines besseren belehren. nur leider mangelt es mir noch im anlegen von klassen und den dazugehörigen eigenschaften. drüber nach gedacht hab ich auch schon:

    Klasse: Spielkarte
    eigenschaften:
    -Name
    -Link zum Bild
    -Wert
    -schon gespiel?? (as Boolean)
    -gerade in gebrauch? (as Boolean),
    -usw.

    aber leider mangelt es an wissen und unser lehrer hats ja mal angeschnitten aber davon is nu nicht viel hängen geblieben.

    Ist im Prinzip nicht viel anders, als du es im ersten Post hast. Nur richtiger :rolleyes:
    Anstatt das siebzehnte Bild anzusprechen, und den siebzehnten Wert auszulesen, hast du das siebzehnte Kartenobjekt. Und vom dem liest du den Wert, das Bild, und ob es schon gespielt wurde.
    Oder, wie im folgenden Beispiel, ein Kartenstapel, von dem du die oberste Karte abhebst...

    kleines Beispiel

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim AlleKarten As New List(Of clsKarte)
    3. Public Kartenstapel As New Stack(Of clsKarte)
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. 'Alle existierenden Karten deklarieren
    8. With AlleKarten
    9. .Add(New clsKarte("Karo sieben", My.Resources.Karo7, 14))
    10. .Add(New clsKarte("Kreuz Dame", My.Resources.kreuzdamec_152, 3))
    11. .Add(New clsKarte("Kreuz König", My.Resources.kreuzkoenigc_152, 4))
    12. .Add(New clsKarte("Kreuz As", My.Resources.kreuzasc_152, 11))
    13. 'sollte fortgesetzt werden
    15. End With
    17. 'Alle verfügbaren Karten in den Kartenstapel
    19. Randomize()
    20. For Each karte In _
    21. From a In AlleKarten Order By Rnd() Select a
    23. Kartenstapel.Push(karte)
    24. Next
    27. Dim aktuelleKarte As clsKarte
    29. 'Solange noch Karten auf dem Stapel:
    30. Do While Kartenstapel.Count > 0
    32. 'Karte abheben...
    33. aktuelleKarte = Kartenstapel.Pop()
    34. 'und vorlesen...
    35. MessageBox.Show("Die Karte " & aktuelleKarte.Bezeichnung & " hat den Wert " & aktuelleKarte.Wert)
    37. Loop
    39. End Sub
    40. End Class
    43. Public Class clsKarte
    44. Public Bild As Image
    45. Public Wert As Integer
    46. Public schongespielt As Boolean = False
    47. Public Bezeichnung As String
    49. Sub New(ByVal Bezeichnung As String, ByVal bild As Image, ByVal wert As Integer)
    50. MyClass.bezeichnung = Bezeichnung
    51. MyClass.Bild = bild
    52. MyClass.Wert = wert
    53. End Sub
    55. Sub New(ByVal bild As Image, ByVal wert As Integer)
    56. MyClass.Bild = bild
    57. MyClass.Wert = wert
    58. End Sub
    59. End Class


    Wenn du das Beispiel grundlegend verstanden hast, bist du einen Schritt näher an der OOP (Objektorientierten Programmierung). ;)

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

    ok also so wie ich das sehe kann ich den code damit ja viel kürzer halten als wenn ich es so mache wie ich mir das aus gedacht habe. vor allem der kartenstapel( as stack) ist super stack kannte ich noch nicht als datentyp. das ist natürlich sehr hilfreich danke dafür

    so hab den code mal meinen bedürfnissen angepasst, da ja jede karte einzeln gegeben wird falls der mitspieler noch eine möchte.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim AlleKarten As New List(Of clsKarte)
    3. Public Kartenstapel As New Stack(Of clsKarte)
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. 'Alle existierenden Karten deklarieren
    8. With AlleKarten
    9. .Add(New clsKarte("Karo sieben", My.Resources.Karo7c_152, 14))
    10. .Add(New clsKarte("Kreuz Dame", My.Resources.kreuzdamec_152, 3))
    11. .Add(New clsKarte("Kreuz König", My.Resources.kreuzkoenigc_152, 4))
    12. .Add(New clsKarte("Kreuz As", My.Resources.kreuzasc_152, 11))
    13. 'sollte fortgesetzt werden
    15. End With
    17. 'Alle verfügbaren Karten in den Kartenstapel
    19. Randomize()
    21. End Sub
    23. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    24. For Each karte In _
    25. From a In AlleKarten Order By Rnd() Select a
    27. Kartenstapel.Push(karte)
    28. Next
    30. End Sub
    32. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    33. Dim aktuelleKarte As clsKarte
    35. 'Solange noch Karten auf dem Stapel:
    37. If Kartenstapel.Count > 0 Then
    38. 'Karte abheben...
    39. aktuelleKarte = Kartenstapel.Pop()
    40. 'und vorlesen...
    41. MessageBox.Show("Die Karte " & aktuelleKarte.Bezeichnung & " hat den Wert " & aktuelleKarte.Wert)
    42. Else
    43. MessageBox.Show("Sie haben sich überkauft!")
    44. End If
    46. End Sub
    47. End Class
    50. Public Class clsKarte
    51. Public Bild As Image
    52. Public Wert As Integer
    53. Public schongespielt As Boolean = False
    54. Public Bezeichnung As String
    56. Sub New(ByVal Bezeichnung As String, ByVal bild As Image, ByVal wert As Integer)
    57. MyClass.Bezeichnung = Bezeichnung
    58. MyClass.Bild = bild
    59. MyClass.Wert = wert
    60. End Sub
    62. Sub New(ByVal bild As Image, ByVal wert As Integer)
    63. MyClass.Bild = bild
    64. MyClass.Wert = wert
    65. End Sub
    66. End Class


    achso eine frage noch.
    ich nabe gestern versucht die subs auf ein anderes modul auszulagern und vollte dann darauf zugreifen z.b.

    funktionen.auswerten()

    ^^so kannte ich das noch von vba da geht das ja so.
    leider funktionierte das nicht. wo ist der fehler?? was kann ich machen damit ich es übersichtlicher habe??

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ICEMAN-Wappen“ ()

Facebook
Telefonspende