Public Class TicTacToe Dim board(2, 2) As String ' "X", "O", or "" Dim currentPlayer As String = "X" Dim gameActive As Boolean = True Private Sub Button_Click(sender As Object, e As EventArgs) Handles btn00.Click, btn01.Click, btn02.Click, btn10.Click, btn11.Click, btn12.Click, btn20.Click, btn21.Click, btn22.Click Dim btn As Button = CType(sender, Button) Dim row As Integer = CInt(btn.Tag.ToString().Substring(0, 1)) Dim col As Integer = CInt(btn.Tag.ToString().Substring(1, 1))
Imports System.IO Public Class ImageViewer Private imageFiles As String() = Nothing Private currentIndex As Integer = 0 visual basic projects with source code
Private Sub SaveTasks() Using writer As New StreamWriter(tasksFile) For Each task In lstTasks.Items writer.WriteLine(task.ToString()) Next End Using End Sub Public Class TicTacToe Dim board(2, 2) As String
Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click If imageFiles IsNot Nothing Then currentIndex = (currentIndex + 1) Mod imageFiles.Length ShowImage() End If End Sub Public Class TicTacToe Dim board(2