If board(row, col) = "" AndAlso gameActive AndAlso currentPlayer = "X" Then MakeMove(row, col, "X") If gameActive Then currentPlayer = "O" lblStatus.Text = "Computer's turn..." ComputerMove() currentPlayer = "X" End If End If End Sub
Public Class Calculator Dim currentInput As String = "" Dim firstNumber As Double = 0 Dim operation As String = "" Private Sub Number_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, '... etc Dim btn As Button = CType(sender, Button) currentInput &= btn.Text txtDisplay.Text = currentInput End Sub visual basic projects with source code
Private Sub ShowImage() If imageFiles IsNot Nothing AndAlso imageFiles.Length > 0 Then picImage.Image = Image.FromFile(imageFiles(currentIndex)) Me.Text = $"Image Viewer - {Path.GetFileName(imageFiles(currentIndex))}" End If End Sub If board(row, col) = "" AndAlso gameActive AndAlso
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' Load tasks from file on startup If File.Exists(tasksFile) Then Dim lines() As String = File.ReadAllLines(tasksFile) For Each line In lines lstTasks.Items.Add(line) Next End If End Sub e As EventArgs) Handles Button1.Click
Private Sub btnEquals_Click(sender As Object, e As EventArgs) Handles btnEquals.Click Dim secondNumber As Double = Double.Parse(currentInput) Dim result As Double = 0
Imports System.IO Public Class ImageViewer Private imageFiles As String() = Nothing Private currentIndex As Integer = 0