Imports System.IO Public Class ImageViewer Private imageFiles As String() = Nothing Private currentIndex As Integer = 0
Private Sub MakeMove(row As Integer, col As Integer, player As String) board(row, col) = player Dim btn As Button = GetButton(row, col) btn.Text = player btn.Enabled = False visual basic projects with source code
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click Dim cmd As New SQLiteCommand("INSERT INTO Students (Name, Grade) VALUES (@name, @grade)", conn) cmd.Parameters.AddWithValue("@name", txtName.Text) cmd.Parameters.AddWithValue("@grade", CInt(txtGrade.Text)) cmd.ExecuteNonQuery() LoadData() CalculateAverage() End Sub Imports System
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click If lstTasks.SelectedItem IsNot Nothing Then lstTasks.Items.Remove(lstTasks.SelectedItem) SaveTasks() End If End Sub col As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load conn = New SQLiteConnection(connectionString) conn.Open() ' Create table if not exists Dim cmd As New SQLiteCommand("CREATE TABLE IF NOT EXISTS Students (ID INTEGER PRIMARY KEY AUTOINCREMENT, Name TEXT, Grade INTEGER)", conn) cmd.ExecuteNonQuery() LoadData() End Sub