Private Sub SaveTasks() Using writer As New StreamWriter(tasksFile) For Each task In lstTasks.Items writer.WriteLine(task.ToString()) Next End Using End Sub
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
Imports System.IO Public Class TodoApp Private tasksFile As String = "tasks.txt"
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)) visual basic projects with source code
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
Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click Using folderDialog As New FolderBrowserDialog() If folderDialog.ShowDialog() = DialogResult.OK Then imageFiles = Directory.GetFiles(folderDialog.SelectedPath, "*.*") .Where(Function(f) f.ToLower().EndsWith(".jpg") OrElse f.ToLower().EndsWith(".png") OrElse f.ToLower().EndsWith(".bmp")) .ToArray() currentIndex = 0 ShowImage() End If End Using End Sub
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 etc Dim btn As Button = CType(sender, Button)
Let me know in the comments which project you plan to build first, or share your own VB project ideas below! Happy coding! 🚀
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
txtDisplay.Text = result.ToString() currentInput = result.ToString() End Sub Grade) VALUES (@name
Imports System.IO Public Class ImageViewer Private imageFiles As String() = Nothing Private currentIndex As Integer = 0
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
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click If txtTask.Text.Trim() <> "" Then lstTasks.Items.Add(txtTask.Text) txtTask.Clear() SaveTasks() End If End Sub
