BackColor Aktualisierung

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Reboot.

    BackColor Aktualisierung

    Moin liebe VB-Paradise Community,

    momentan bin ich an einem Tic Tac Toe (Erweitert) drann. Momentan bin ich dabei, dass der User im Optionsfenster die BackColor vom eigentlichen Spielfeld ändern kann. Die habe ich mit einer PictureBox gemacht, welche einen ColorDialog startet, wenn sie angeklickt wird. Jedoch habe ich das Problem, dass sich die Farbe der PictureBox erst nach dem schließen und wieder öffnen des Optionsfensters aktualisiert hat, dies ist auch bei den eigtnetlichen Spielfenster der Fall, nur ebend, dass man da das ganze Programm neustarten muss.

    Hätte da jmd. von euch eine Idee, wie ich das lösen könnte? :)
    Falls jmd. von euch eventuelle Code-Verbesserungsvorschläge hat, die auch meinen Entwicklungsstand entsprechend sind, dann nur her damit! ;)
    Zudem habe ich auch gelesen, dass man das mit einen Array lösen könnte, habe auch versucht mich drüber schlau zu machen, jedoch weiß ich nicht, wie ich dieses Array dann "ansprechen" könnte.
    ich bedanke mich schoneinmal herzlichst für eure Antworten ;)


    Form "Spiel"
    Spoiler anzeigen

    Quellcode

    1. Public Class Spiel
    2. #Region "Variablen"
    3. Public Spieler As String
    4. Public Zähler As Integer
    5. Public ScoreX As Integer
    6. Public ScoreO As Integer
    7. Public ScoreUnentschieden As Integer
    8. Public FeldAktiv1, FeldAktiv2, FeldAktiv3, FeldAktiv4, FeldAktiv5, FeldAktiv6, FeldAktiv7, FeldAktiv8, FeldAktiv9 As Boolean
    9. #End Region
    11. Private Sub ColorLoad()
    12. '################SPIELER-FARBEN######################
    13. lblScoreX.ForeColor = My.Settings.SpielerOFarbe
    14. lblSpielerX.ForeColor = My.Settings.SpielerOFarbe
    15. lblScoreAnzeigeX.ForeColor = My.Settings.SpielerOFarbe
    16. lblScoreX.ForeColor = My.Settings.SpielerXFarbe
    17. lblSpielerX.ForeColor = My.Settings.SpielerXFarbe
    18. lblScoreAnzeigeX.ForeColor = My.Settings.SpielerXFarbe
    20. 'Unentschieden-Farbe
    21. lblScoreUnentschieden.ForeColor = My.Settings.UnentschiedenFarbe
    22. lblUnentschiedenAnzeige.ForeColor = My.Settings.UnentschiedenFarbe
    24. 'Zug-Farbe
    25. lblZugO.ForeColor = My.Settings.Spielerzugfarbe
    26. lblZugX.ForeColor = My.Settings.Spielerzugfarbe
    28. 'Raster-Farbe
    29. Panel2.BackColor = My.Settings.Spielrasterfarbe
    30. Panel3.BackColor = My.Settings.Spielrasterfarbe
    31. Panel4.BackColor = My.Settings.Spielrasterfarbe
    32. Panel5.BackColor = My.Settings.Spielrasterfarbe
    33. '################SPIELER-FARBEN######################
    35. '################DARSTELLUNG######################
    36. 'Hintergrundfarbe
    37. Me.BackColor = My.Settings.Hintergrundfarbe
    38. 'Schriftart
    40. '################DARSTELLUNG######################
    41. End Sub
    43. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    44. FeldAktiv1 = True
    45. FeldAktiv2 = True
    46. FeldAktiv3 = True
    47. FeldAktiv4 = True
    48. FeldAktiv5 = True
    49. FeldAktiv6 = True
    50. FeldAktiv7 = True
    51. FeldAktiv8 = True
    52. FeldAktiv9 = True
    54. ColorLoad()
    55. Dim ErstZug As Single
    57. Randomize()
    58. ErstZug = Rnd()
    60. If ErstZug < 0.5 Then 'Spieler O
    61. Spieler = "O"
    62. lblZugO.Visible = True
    63. lblZugX.Visible = False
    64. ElseIf ErstZug > 0.5 Then 'Spieler X
    65. Spieler = "X"
    66. lblZugX.Visible = True
    67. lblZugO.Visible = False
    68. End If
    69. End Sub
    71. Private Sub TimZähler_Tick(sender As Object, e As EventArgs) Handles TimZähler.Tick
    72. If cmdFeld1.Text = "O" And cmdFeld5.Text = "O" And cmdFeld9.Text = "O" Then 'O##
    73. TimZähler.Enabled = False '#O#
    74. MsgBox("Spieler O hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '##O
    75. ScoreO = ScoreO + 1
    76. lblScoreO.Text = CStr(ScoreO)
    77. Suspend()
    79. ElseIf cmdFeld1.Text = "X" And cmdFeld5.Text = "X" And cmdFeld9.Text = "X" Then 'X##
    80. TimZähler.Enabled = False '#X#
    81. MsgBox("Spieler X hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '##X
    82. ScoreX = ScoreX + 1
    83. lblScoreX.Text = CStr(ScoreX)
    84. Suspend()
    86. ElseIf cmdFeld3.Text = "O" And cmdFeld5.Text = "O" And cmdFeld7.Text = "O" Then '##O
    87. TimZähler.Enabled = False '#O#
    88. MsgBox("Spieler O hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") 'O##
    89. ScoreO = ScoreO + 1
    90. lblScoreO.Text = CStr(ScoreO)
    91. Suspend()
    93. ElseIf cmdFeld3.Text = "X" And cmdFeld5.Text = "X" And cmdFeld7.Text = "X" Then '##X
    94. TimZähler.Enabled = False '#X#
    95. MsgBox("Spieler X hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") 'X##
    96. ScoreX = ScoreX + 1
    97. lblScoreX.Text = CStr(ScoreX)
    98. Suspend()
    100. ElseIf cmdFeld1.Text = "O" And cmdFeld4.Text = "O" And cmdFeld7.Text = "O" Then 'O##
    101. TimZähler.Enabled = False 'O##
    102. MsgBox("Spieler O hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") 'O##
    103. ScoreO = ScoreO + 1
    104. lblScoreO.Text = CStr(ScoreO)
    105. Suspend()
    107. ElseIf cmdFeld1.Text = "X" And cmdFeld4.Text = "X" And cmdFeld7.Text = "X" Then 'X##
    108. TimZähler.Enabled = False 'X##
    109. MsgBox("Spieler X hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") 'X##
    110. ScoreX = ScoreX + 1
    111. lblScoreX.Text = CStr(ScoreX)
    112. Suspend()
    114. ElseIf cmdFeld2.Text = "O" And cmdFeld5.Text = "O" And cmdFeld8.Text = "O" Then '#O#
    115. TimZähler.Enabled = False '#O#
    116. MsgBox("Spieler O hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '#O#
    117. ScoreO = ScoreO + 1
    118. lblScoreO.Text = CStr(ScoreO)
    119. Suspend()
    121. ElseIf cmdFeld2.Text = "X" And cmdFeld5.Text = "X" And cmdFeld8.Text = "X" Then '#X#
    122. TimZähler.Enabled = False '#X#
    123. MsgBox("Spieler X hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '#X#
    124. ScoreX = ScoreX + 1
    125. lblScoreX.Text = CStr(ScoreX)
    126. Suspend()
    128. ElseIf cmdFeld3.Text = "O" And cmdFeld6.Text = "O" And cmdFeld9.Text = "O" Then '##O
    129. TimZähler.Enabled = False '##O
    130. MsgBox("Spieler O hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '##O
    131. ScoreO = ScoreO + 1
    132. lblScoreO.Text = CStr(ScoreO)
    133. Suspend()
    135. ElseIf cmdFeld3.Text = "X" And cmdFeld6.Text = "X" And cmdFeld9.Text = "X" Then '##X
    136. TimZähler.Enabled = False '##X
    137. MsgBox("Spieler X hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '##X
    138. ScoreX = ScoreX + 1
    139. lblScoreX.Text = CStr(ScoreX)
    140. Suspend()
    142. ElseIf cmdFeld1.Text = "O" And cmdFeld2.Text = "O" And cmdFeld3.Text = "O" Then 'OOO
    143. TimZähler.Enabled = False '###
    144. MsgBox("Spieler O hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '###
    145. ScoreO = ScoreO + 1
    146. lblScoreO.Text = CStr(ScoreO)
    147. Suspend()
    149. ElseIf cmdFeld1.Text = "X" And cmdFeld2.Text = "X" And cmdFeld3.Text = "X" Then 'XXX
    150. TimZähler.Enabled = False '###
    151. MsgBox("Spieler X hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '###
    152. ScoreX = ScoreX + 1
    153. lblScoreX.Text = CStr(ScoreX)
    154. Suspend()
    156. ElseIf cmdFeld4.Text = "O" And cmdFeld5.Text = "O" And cmdFeld6.Text = "O" Then '###
    157. TimZähler.Enabled = False 'OOO
    158. MsgBox("Spieler O hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '###
    159. ScoreO = ScoreO + 1
    160. lblScoreO.Text = CStr(ScoreO)
    161. Suspend()
    163. ElseIf cmdFeld4.Text = "X" And cmdFeld5.Text = "X" And cmdFeld6.Text = "X" Then '###
    164. TimZähler.Enabled = False 'XXX
    165. MsgBox("Spieler X hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") '###
    166. ScoreX = ScoreX + 1
    167. lblScoreX.Text = CStr(ScoreX)
    168. Suspend()
    170. ElseIf cmdFeld7.Text = "O" And cmdFeld8.Text = "O" And cmdFeld9.Text = "O" Then '###
    171. TimZähler.Enabled = False '###
    172. MsgBox("Spieler O hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") 'OOO
    173. ScoreO = ScoreO + 1
    174. lblScoreO.Text = CStr(ScoreO)
    175. Suspend()
    177. ElseIf cmdFeld7.Text = "X" And cmdFeld8.Text = "X" And cmdFeld9.Text = "X" Then '###
    178. TimZähler.Enabled = False '###
    179. MsgBox("Spieler X hat gewonnen!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis") 'XXX
    180. ScoreX = ScoreX + 1
    181. lblScoreX.Text = CStr(ScoreX)
    182. Suspend()
    184. ElseIf Zähler = 9 Then
    185. TimZähler.Enabled = False
    186. MsgBox("Unentschieden!", MsgBoxStyle.Information, " Tic Tac Toe - Ergebnis")
    187. ScoreUnentschieden = ScoreUnentschieden + 1
    188. lblScoreUnentschieden.Text = CStr(ScoreUnentschieden)
    189. Suspend()
    190. End If
    191. End Sub
    193. '####################################################################################################################
    195. Private Sub cmdFeld9_Click(sender As Object, e As EventArgs) Handles cmdFeld9.Click
    196. If FeldAktiv9 = True Then
    197. If Spieler = "O" Then 'Falls der Spieler O drann ist...
    198. cmdFeld9.Text = "O"
    199. cmdFeld9.ForeColor = Color.Red
    200. Spieler = "X"
    201. lblZugX.Visible = True
    202. lblZugO.Visible = False
    203. FeldAktiv9 = False
    204. Zähler = Zähler + 1
    205. ElseIf Spieler = "X" Then 'Falls der Spieler X drann ist...
    206. cmdFeld9.Text = "X"
    207. cmdFeld9.ForeColor = Color.Blue
    208. Spieler = "O"
    209. lblZugO.Visible = True
    210. lblZugX.Visible = False
    211. FeldAktiv9 = False
    212. Zähler = Zähler + 1
    213. End If
    214. End If
    215. End Sub
    217. Private Sub cmdFeld8_Click(sender As Object, e As EventArgs) Handles cmdFeld8.Click
    218. If FeldAktiv8 = True Then
    219. If Spieler = "O" Then 'Falls der Spieler O drann ist...
    220. cmdFeld8.Text = "O"
    221. cmdFeld8.ForeColor = Color.Red
    222. Spieler = "X"
    223. lblZugX.Visible = True
    224. lblZugO.Visible = False
    225. FeldAktiv8 = False
    226. Zähler = Zähler + 1
    227. ElseIf Spieler = "X" Then 'Falls der Spieler X drann ist...
    228. cmdFeld8.Text = "X"
    229. cmdFeld8.ForeColor = Color.Blue
    230. Spieler = "O"
    231. lblZugO.Visible = True
    232. lblZugX.Visible = False
    233. FeldAktiv8 = False
    234. Zähler = Zähler + 1
    235. End If
    236. End If
    237. End Sub
    239. Private Sub cmdFeld7_Click(sender As Object, e As EventArgs) Handles cmdFeld7.Click
    240. If FeldAktiv7 = True Then
    241. If Spieler = "O" Then 'Falls der Spieler O drann ist...
    242. cmdFeld7.Text = "O"
    243. cmdFeld7.ForeColor = Color.Red
    244. Spieler = "X"
    245. lblZugX.Visible = True
    246. lblZugO.Visible = False
    247. FeldAktiv7 = False
    248. Zähler = Zähler + 1
    249. ElseIf Spieler = "X" Then 'Falls der Spieler X drann ist...
    250. cmdFeld7.Text = "X"
    251. cmdFeld7.ForeColor = Color.Blue
    252. Spieler = "O"
    253. lblZugO.Visible = True
    254. lblZugX.Visible = False
    255. FeldAktiv7 = False
    256. Zähler = Zähler + 1
    257. End If
    258. End If
    259. End Sub
    261. Private Sub cmdFeld6_Click(sender As Object, e As EventArgs) Handles cmdFeld6.Click
    262. If FeldAktiv6 = True Then
    263. If Spieler = "O" Then 'Falls der Spieler O drann ist...
    264. cmdFeld6.Text = "O"
    265. cmdFeld6.ForeColor = Color.Red
    266. Spieler = "X"
    267. lblZugX.Visible = True
    268. lblZugO.Visible = False
    269. FeldAktiv6 = False
    270. Zähler = Zähler + 1
    271. ElseIf Spieler = "X" Then 'Falls der Spieler X drann ist...
    272. cmdFeld6.Text = "X"
    273. cmdFeld6.ForeColor = Color.Blue
    274. Spieler = "O"
    275. lblZugO.Visible = True
    276. lblZugX.Visible = False
    277. FeldAktiv6 = False
    278. Zähler = Zähler + 1
    279. End If
    280. End If
    281. End Sub
    283. Private Sub cmdFeld5_Click(sender As Object, e As EventArgs) Handles cmdFeld5.Click
    284. If FeldAktiv5 = True Then
    285. If Spieler = "O" Then 'Falls der Spieler O drann ist...
    286. cmdFeld5.Text = "O"
    287. cmdFeld5.ForeColor = Color.Red
    288. Spieler = "X"
    289. lblZugX.Visible = True
    290. lblZugO.Visible = False
    291. FeldAktiv5 = False
    292. Zähler = Zähler + 1
    293. ElseIf Spieler = "X" Then 'Falls der Spieler X drann ist...
    294. cmdFeld5.Text = "X"
    295. cmdFeld5.ForeColor = Color.Blue
    296. Spieler = "O"
    297. lblZugO.Visible = True
    298. lblZugX.Visible = False
    299. FeldAktiv5 = False
    300. Zähler = Zähler + 1
    301. End If
    302. End If
    303. End Sub
    305. Private Sub cmdFeld4_Click(sender As Object, e As EventArgs) Handles cmdFeld4.Click
    306. If FeldAktiv4 = True Then
    307. If Spieler = "O" Then 'Falls der Spieler O drann ist...
    308. cmdFeld4.Text = "O"
    309. cmdFeld4.ForeColor = Color.Red
    310. Spieler = "X"
    311. lblZugX.Visible = True
    312. lblZugO.Visible = False
    313. FeldAktiv4 = False
    314. Zähler = Zähler + 1
    315. ElseIf Spieler = "X" Then 'Falls der Spieler X drann ist...
    316. cmdFeld4.Text = "X"
    317. cmdFeld4.ForeColor = Color.Blue
    318. Spieler = "O"
    319. lblZugO.Visible = True
    320. lblZugX.Visible = False
    321. FeldAktiv4 = False
    322. Zähler = Zähler + 1
    323. End If
    324. End If
    325. End Sub
    327. Private Sub cmdFeld3_Click(sender As Object, e As EventArgs) Handles cmdFeld3.Click
    328. If FeldAktiv3 = True Then
    329. If Spieler = "O" Then 'Falls der Spieler O drann ist...
    330. cmdFeld3.Text = "O"
    331. cmdFeld3.ForeColor = Color.Red
    332. Spieler = "X"
    333. lblZugX.Visible = True
    334. lblZugO.Visible = False
    335. FeldAktiv3 = False
    336. Zähler = Zähler + 1
    337. ElseIf Spieler = "X" Then 'Falls der Spieler X drann ist...
    338. cmdFeld3.Text = "X"
    339. cmdFeld3.ForeColor = Color.Blue
    340. Spieler = "O"
    341. lblZugO.Visible = True
    342. lblZugX.Visible = False
    343. FeldAktiv3 = False
    344. Zähler = Zähler + 1
    345. End If
    346. End If
    347. End Sub
    349. Private Sub cmdFeld2_Click(sender As Object, e As EventArgs) Handles cmdFeld2.Click
    350. If FeldAktiv2 = True Then
    351. If Spieler = "O" Then 'Falls der Spieler O drann ist...
    352. cmdFeld2.Text = "O"
    353. cmdFeld2.ForeColor = Color.Red
    354. Spieler = "X"
    355. lblZugX.Visible = True
    356. lblZugO.Visible = False
    357. FeldAktiv2 = False
    358. Zähler = Zähler + 1
    359. ElseIf Spieler = "X" Then 'Falls der Spieler X drann ist...
    360. cmdFeld2.Text = "X"
    361. cmdFeld2.ForeColor = Color.Blue
    362. Spieler = "O"
    363. lblZugO.Visible = True
    364. lblZugX.Visible = False
    365. FeldAktiv2 = False
    366. Zähler = Zähler + 1
    367. End If
    368. End If
    369. End Sub
    371. Private Sub cmdFeld1_Click(sender As Object, e As EventArgs) Handles cmdFeld1.Click
    372. If FeldAktiv1 = True Then
    373. If Spieler = "O" Then 'Falls der Spieler O drann ist...
    374. cmdFeld1.Text = "O"
    375. cmdFeld1.ForeColor = Color.Red
    376. Spieler = "X"
    377. lblZugX.Visible = True
    378. lblZugO.Visible = False
    379. FeldAktiv1 = False
    380. Zähler = Zähler + 1
    381. ElseIf Spieler = "X" Then 'Falls der Spieler X drann ist...
    382. cmdFeld1.Text = "X"
    383. cmdFeld1.ForeColor = Color.Blue
    384. Spieler = "O"
    385. lblZugO.Visible = True
    386. lblZugX.Visible = False
    387. FeldAktiv1 = False
    388. Zähler = Zähler + 1
    389. End If
    390. End If
    391. End Sub
    393. '####################################################################################################################
    395. Private Sub Suspend()
    396. FeldAktiv1 = False
    397. FeldAktiv2 = False
    398. FeldAktiv3 = False
    399. FeldAktiv4 = False
    400. FeldAktiv5 = False
    401. FeldAktiv6 = False
    402. FeldAktiv7 = False
    403. FeldAktiv8 = False
    404. FeldAktiv9 = False
    405. End Sub
    407. Private Sub SpielBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpielBeendenToolStripMenuItem.Click
    408. Me.Close()
    409. End Sub
    411. Private Sub NeueRundeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RundeToolStripMenuItem.Click
    412. cmdFeld1.Text = ""
    413. cmdFeld2.Text = ""
    414. cmdFeld3.Text = ""
    415. cmdFeld4.Text = ""
    416. cmdFeld5.Text = ""
    417. cmdFeld6.Text = ""
    418. cmdFeld7.Text = ""
    419. cmdFeld8.Text = ""
    420. cmdFeld9.Text = ""
    421. FeldAktiv1 = True
    422. FeldAktiv2 = True
    423. FeldAktiv3 = True
    424. FeldAktiv4 = True
    425. FeldAktiv5 = True
    426. FeldAktiv6 = True
    427. FeldAktiv7 = True
    428. FeldAktiv8 = True
    429. FeldAktiv9 = True
    430. TimZähler.Enabled = True
    431. Zähler = 0
    433. If Spieler = "X" Then
    434. Spieler = "O"
    435. lblZugO.Visible = True
    436. lblZugX.Visible = False
    437. ElseIf Spieler = "O" Then
    438. Spieler = "X"
    439. lblZugX.Visible = True
    440. lblZugO.Visible = False
    441. End If
    442. End Sub
    444. Private Sub AllesZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllesZurücksetzenToolStripMenuItem.Click
    445. cmdFeld1.Text = ""
    446. cmdFeld2.Text = ""
    447. cmdFeld3.Text = ""
    448. cmdFeld4.Text = ""
    449. cmdFeld5.Text = ""
    450. cmdFeld6.Text = ""
    451. cmdFeld7.Text = ""
    452. cmdFeld8.Text = ""
    453. cmdFeld9.Text = ""
    454. FeldAktiv1 = True
    455. FeldAktiv2 = True
    456. FeldAktiv3 = True
    457. FeldAktiv4 = True
    458. FeldAktiv5 = True
    459. FeldAktiv6 = True
    460. FeldAktiv7 = True
    461. FeldAktiv8 = True
    462. FeldAktiv9 = True
    463. TimZähler.Enabled = True
    465. Zähler = 0
    466. ScoreO = 0
    467. ScoreX = 0
    468. ScoreUnentschieden = 0
    469. lblScoreO.Text = "0"
    470. lblScoreX.Text = "0"
    471. lblScoreUnentschieden.Text = "0"
    473. Dim ErstZug As Single
    475. Randomize()
    476. ErstZug = Rnd()
    478. If ErstZug < 0.5 Then 'Spieler O
    479. Spieler = "O"
    480. lblZugO.Visible = True
    481. lblZugX.Visible = False
    482. ElseIf ErstZug > 0.5 Then 'Spieler X
    483. Spieler = "X"
    484. lblZugX.Visible = True
    485. lblZugO.Visible = False
    486. End If
    487. End Sub
    489. Private Sub OptionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiToolStripMenuItem.Click
    490. Me.Hide()
    491. Optionen.Show()
    492. End Sub
    493. End Class



    Form "Optionen"
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Optionen
    3. Private Sub Optionen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. pbSpielerOFarbe.BackColor = My.Settings.SpielerOFarbe
    5. pbSpielerXFarbe.BackColor = My.Settings.SpielerXFarbe
    6. pbSpielerzugFarbe.BackColor = My.Settings.Spielerzugfarbe
    7. pbSpielrasterFarbe.BackColor = My.Settings.Spielrasterfarbe
    8. pbUnentschiedenFarbe.BackColor = My.Settings.UnentschiedenFarbe
    9. pbHintergrundFarbe.BackColor = My.Settings.Hintergrundfarbe
    10. End Sub
    12. Private Sub Optionen_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
    13. Spiel.Show()
    14. End Sub
    16. Private Sub cbxKIAnAus_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKIAnAus.CheckedChanged
    17. If cbxKIAnAus.Text = "Aus" Then
    18. cbxKIAnAus.Text = "An"
    19. rbKILeicht.Enabled = True
    20. rbKILeicht.Checked = True
    21. rbKIMittel.Enabled = True
    22. rbKISchwer.Enabled = True
    23. ElseIf cbxKIAnAus.Text = "An" Then
    24. cbxKIAnAus.Text = "Aus"
    25. rbKILeicht.Enabled = False
    26. rbKILeicht.Checked = False
    27. rbKIMittel.Enabled = False
    28. rbKISchwer.Enabled = False
    29. End If
    30. End Sub
    32. Private Sub pbSpielerOFarbe_Click(sender As Object, e As EventArgs) Handles pbSpielerOFarbe.Click
    33. ColorDialog1.ShowDialog()
    34. Spiel.lblScoreO.ForeColor = Me.ColorDialog1.Color
    35. Spiel.lblSpielerO.ForeColor = Me.ColorDialog1.Color
    36. Spiel.lblScoreAnzeigeO.ForeColor = Me.ColorDialog1.Color
    37. My.Settings.SpielerOFarbe = Me.ColorDialog1.Color
    38. My.Settings.Save()
    39. End Sub
    41. Private Sub pbSpielerXFarbe_Click(sender As Object, e As EventArgs) Handles pbSpielerXFarbe.Click
    42. ColorDialog1.ShowDialog()
    43. Spiel.lblScoreX.ForeColor = Me.ColorDialog1.Color
    44. Spiel.lblSpielerX.ForeColor = Me.ColorDialog1.Color
    45. Spiel.lblScoreAnzeigeX.ForeColor = Me.ColorDialog1.Color
    46. My.Settings.SpielerXFarbe = Me.ColorDialog1.Color
    47. My.Settings.Save()
    48. End Sub
    50. Private Sub pbUnentschiedenFarbe_Click(sender As Object, e As EventArgs) Handles pbUnentschiedenFarbe.Click
    51. ColorDialog1.ShowDialog()
    52. Spiel.lblUnentschiedenAnzeige.ForeColor = Me.ColorDialog1.Color
    53. Spiel.lblScoreUnentschieden.ForeColor = Me.ColorDialog1.Color
    54. My.Settings.UnentschiedenFarbe = Me.ColorDialog1.Color
    55. My.Settings.Save()
    56. End Sub
    58. Private Sub pbHintergrundFarbe_Click(sender As Object, e As EventArgs) Handles pbHintergrundFarbe.Click
    59. ColorDialog1.ShowDialog()
    60. Spiel.BackColor = My.Settings.Hintergrundfarbe
    61. My.Settings.Hintergrundfarbe = Me.ColorDialog1.Color
    62. End Sub
    64. Private Sub pbSpielrasterFarbe_Click(sender As Object, e As EventArgs) Handles pbSpielrasterFarbe.Click
    65. ColorDialog1.ShowDialog()
    66. Spiel.Panel2.BackColor = Me.ColorDialog1.Color
    67. Spiel.Panel3.BackColor = Me.ColorDialog1.Color
    68. Spiel.Panel4.BackColor = Me.ColorDialog1.Color
    69. Spiel.Panel5.BackColor = Me.ColorDialog1.Color
    70. My.Settings.Spielrasterfarbe = Me.ColorDialog1.Color
    71. End Sub
    73. Private Sub pbSpielerzugFarbe_Click(sender As Object, e As EventArgs) Handles pbSpielerzugFarbe.Click
    74. ColorDialog1.ShowDialog()
    75. Spiel.lblZugO.ForeColor = Me.ColorDialog1.Color
    76. Spiel.lblZugX.ForeColor = Me.ColorDialog1.Color
    77. My.Settings.Spielerzugfarbe = Me.ColorDialog1.Color
    78. End Sub
    80. End Class

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

    Habe auch gerade ein Tic Tac Toe gemacht ^^

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim turnofplayer As Boolean = True
    4. Dim gezeigt As Boolean = False
    6. Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
    7. If turnofplayer = False Then
    8. Button9.Text = "o"
    9. turnofplayer = True
    10. Button9.Enabled = False
    11. ElseIf turnofplayer = True Then
    12. Button9.Text = "x"
    13. turnofplayer = False
    14. Button9.Enabled = False
    15. End If
    16. End Sub
    18. Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
    19. If turnofplayer = False Then
    20. Button6.Text = "o"
    21. turnofplayer = True
    22. Button6.Enabled = False
    24. ElseIf turnofplayer = True Then
    25. Button6.Text = "x"
    26. turnofplayer = False
    27. Button6.Enabled = False
    29. End If
    30. End Sub
    32. Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    33. If turnofplayer = False Then
    34. Button5.Text = "o"
    35. turnofplayer = True
    36. Button5.Enabled = False
    38. ElseIf turnofplayer = True Then
    39. Button5.Text = "x"
    40. turnofplayer = False
    41. Button5.Enabled = False
    43. End If
    44. End Sub
    46. Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
    47. If turnofplayer = False Then
    48. Button8.Text = "o"
    49. turnofplayer = True
    50. Button8.Enabled = False
    52. ElseIf turnofplayer = True Then
    53. Button8.Text = "x"
    54. turnofplayer = False
    55. Button8.Enabled = False
    57. End If
    58. End Sub
    60. Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
    61. If turnofplayer = False Then
    62. Button7.Text = "o"
    63. turnofplayer = True
    64. Button7.Enabled = False
    66. ElseIf turnofplayer = True Then
    67. Button7.Text = "x"
    68. turnofplayer = False
    69. Button7.Enabled = False
    70. End If
    71. End Sub
    73. Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    74. If turnofplayer = False Then
    75. Button4.Text = "o"
    76. turnofplayer = True
    77. Button4.Enabled = False
    79. ElseIf turnofplayer = True Then
    80. Button4.Text = "x"
    81. turnofplayer = False
    82. Button4.Enabled = False
    84. End If
    85. End Sub
    87. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    88. If turnofplayer = False Then
    89. Button1.Text = "o"
    90. turnofplayer = True
    91. Button1.Enabled = False
    93. ElseIf turnofplayer = True Then
    94. Button1.Text = "x"
    95. turnofplayer = False
    96. Button1.Enabled = False
    98. End If
    99. End Sub
    101. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    102. If turnofplayer = False Then
    103. Button2.Text = "o"
    104. turnofplayer = True
    105. Button2.Enabled = False
    107. ElseIf turnofplayer = True Then
    108. Button2.Text = "x"
    109. turnofplayer = False
    110. Button2.Enabled = False
    112. End If
    113. End Sub
    115. Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    116. If turnofplayer = False Then
    117. Button3.Text = "o"
    118. turnofplayer = True
    119. Button3.Enabled = False
    121. ElseIf turnofplayer = True Then
    122. Button3.Text = "x"
    123. turnofplayer = False
    124. Button3.Enabled = False
    126. End If
    127. End Sub
    129. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    130. checkturn.Enabled = True
    132. End Sub
    134. Private Sub checkturn_Tick(sender As System.Object, e As System.EventArgs) Handles checkturn.Tick
    135. If turnofplayer = False Then
    136. Label2.Text = "Player 2"
    137. ElseIf turnofplayer =
    138. True Then
    139. Label2.Text = "Player 1"
    140. End If
    142. 'Win Check Player 2
    144. If Button1.Text = "x" And Button2.Text = "x" And Button3.Text = "x" Then
    145. If gezeigt = False Then
    146. gezeigt = True
    147. MsgBox("Player 2 wins!")
    148. End If
    149. End If
    151. If Button4.Text = "x" And Button5.Text = "x" And Button6.Text = "x" Then
    152. If gezeigt = False Then
    153. gezeigt = True
    154. MsgBox("Player 2 wins!")
    155. End If
    156. End If
    158. If Button7.Text = "x" And Button8.Text = "x" And Button9.Text = "x" Then
    159. If gezeigt = False Then
    160. gezeigt = True
    161. MsgBox("Player 2 wins!")
    162. End If
    163. End If
    165. If Button9.Text = "x" And Button6.Text = "x" And Button3.Text = "x" Then
    166. If gezeigt = False Then
    167. gezeigt = True
    168. MsgBox("Player 2 wins!")
    169. End If
    170. End If
    172. If Button8.Text = "x" And Button5.Text = "x" And Button2.Text = "x" Then
    173. If gezeigt = False Then
    174. gezeigt = True
    175. MsgBox("Player 2 wins!")
    176. End If
    177. End If
    179. If Button7.Text = "x" And Button4.Text = "x" And Button1.Text = "x" Then
    180. If gezeigt = False Then
    181. gezeigt = True
    182. MsgBox("Player 2 wins!")
    183. End If
    184. End If
    186. If Button1.Text = "x" And Button5.Text = "x" And Button9.Text = "x" Then
    187. If gezeigt = False Then
    188. gezeigt = True
    189. MsgBox("Player 2 wins!")
    190. End If
    191. End If
    193. If Button3.Text = "x" And Button5.Text = "x" And Button7.Text = "x" Then
    194. If gezeigt = False Then
    195. gezeigt = True
    196. MsgBox("Player 2 wins!")
    197. End If
    198. End If
    200. 'Win Check Player 1
    202. If Button1.Text = "o" And Button2.Text = "o" And Button3.Text = "o" Then
    203. If gezeigt = False Then
    204. gezeigt = True
    205. MsgBox("Player 1 wins!")
    206. End If
    207. End If
    209. If Button4.Text = "o" And Button5.Text = "o" And Button6.Text = "o" Then
    210. If gezeigt = False Then
    211. gezeigt = True
    212. MsgBox("Player 1 wins!")
    213. End If
    214. End If
    216. If Button7.Text = "o" And Button8.Text = "o" And Button9.Text = "o" Then
    217. If gezeigt = False Then
    218. gezeigt = True
    219. MsgBox("Player 1 wins!")
    220. End If
    221. End If
    223. If Button9.Text = "o" And Button6.Text = "o" And Button3.Text = "o" Then
    224. If gezeigt = False Then
    225. gezeigt = True

    Reboot schrieb:

    eine KI in drei Schwierigkeitsstufen
    Diese Frage zu stellen heißt es zunächst bei einer zu belassen und sich ein oder zwei Jahre mit Informatik zu befassen.
    Sorry. :/
    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!