Imports System.IO Public Class ImageViewer Private imageFiles As String() = Nothing Private currentIndex As Integer = 0
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
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 visual basic projects with source code
Let me know in the comments which project you plan to build first, or share your own VB project ideas below! Happy coding! 🚀
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 Imports System
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
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 etc Dim btn As Button = CType(sender, Button)
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 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
Imports System.IO Public Class TodoApp Private tasksFile As String = "tasks.txt"
If CheckWin(player) Then lblStatus.Text = $"{player} wins!" gameActive = False ElseIf IsDraw() Then lblStatus.Text = "Draw!" gameActive = False End If End Sub