Advanced Image Viewer in VB.Net

-

Advanced Image Viewer with source code:

                               (Screen Shot)
*****************************************
'Code from here
Public Class Form1
    Dim filepath As String
    Dim filename As String
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        stopSlideShow = True
        Application.Exit()
    End Sub

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String
        OpenFileDialog1.Filter = "Image Files (*.jpg, *.jpeg, *.png, *bmp, *.gif|*.jpg; *.jpeg; *.png; *bmp; *.gif"
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            For Each path In OpenFileDialog1.FileNames
                If My.Computer.FileSystem.GetFileInfo(path).Extension.ToLower = ".jpg" Or _
                   My.Computer.FileSystem.GetFileInfo(path).Extension.ToLower = ".jpeg" Or _
                   My.Computer.FileSystem.GetFileInfo(path).Extension.ToLower = ".png" Or _
                       My.Computer.FileSystem.GetFileInfo(path).Extension.ToLower = ".bmp" Or _
                           My.Computer.FileSystem.GetFileInfo(path).Extension.ToLower = ".gif" Then
                    filename = My.Computer.FileSystem.GetName(path)
                    ListBox1.Items.Add(path)
                    ListBox1.SelectedIndex = 0
                    TextBox1.Text = ListBox1.SelectedItem
                End If
            Next
        End If
    End Sub

    Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        PictureBox1.Height *= 1.5
        PictureBox1.Width *= 1.5
    End Sub

    Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        PictureBox1.Height *= 0.5
        PictureBox1.Width *= 0.5
    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If ListBox1.SelectedIndex <= 0 Then
            Button2.Enabled = False
        Else
            ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
            Button3.Enabled = True
        End If
    End Sub

    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
            Button3.Enabled = False
        Else
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
            Button2.Enabled = True
        End If

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox1.Text = ListBox1.SelectedItem
        PictureBox1.Load(TextBox1.Text)
    End Sub

    Private Sub btnRorateL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim rotateImage As Image = New Bitmap(PictureBox1.Image)
        rotateImage.RotateFlip(RotateFlipType.Rotate90FlipX)
        PictureBox1.Image = rotateImage
    End Sub

    Private Sub btnRotateR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim rotateImage As Image = New Bitmap(PictureBox1.Image)
        rotateImage.RotateFlip(RotateFlipType.Rotate270FlipY)
        PictureBox1.Image = rotateImage
    End Sub
    Dim slideDelay As Integer = 2000
    Dim stopSlideShow As Boolean = False
    Private Sub btnSlideShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim count As Integer = ListBox1.Items.Count
        If count <= 0 Then Exit Sub
        Dim start As Integer = ListBox1.SelectedIndex
        Do
            ListBox1.SelectedIndex = start
            pause(slideDelay)
            start += 1
            If start >= count Then
                start = 0
            End If
        Loop Until stopSlideShow
    End Sub
    Private Sub pause(ByVal delay As Integer)
        Dim s As Integer = Environment.TickCount
        Dim e As Integer = 0
        Do : My.Application.DoEvents()
            Threading.Thread.Sleep(1)
            e = Environment.TickCount
        Loop Until (e - s) >= delay
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        stopSlideShow = True
    End Sub
End Class
********************* END Project *****************************

Comments

Post a Comment

Popular posts from this blog

Complete Python Database Project with sqlite3

-
Image
Here You can learn how to load sqlite3 data into datagrid using Python . * How to Insert *How to Delete *How to Save *How to Load *Exit button code and *How to search (Screen Shot) **************************************** import os import wx import wx.xrc import wx.grid import sqlite3 import re import string import gettext cwd = os.path.abspath(os.curdir) def connect():         con_str = cwd + '/folder/Test.db'         cnn = sqlite3.connect(con_str)         return cnn         cnn.close() def data_rows():         con = connect()         cur = con.cursor()         cur.execute("SELECT * FROM DATA")         rows = cur.fetchall()         i = 0         for r in rows:                 i+= 1         return i def single_quote_remover(text):     return text.replace ("'","/") class Database ( wx.Frame ):         def __init__( self, parent ):         wx.Frame.__init__ ( self, parent, id = wx.ID_ANY, title =
Read more

Complete StopWatch in Java with source code

-
Image
Complete StopWatch in Java with source code :     (Screen Shot) **************************************** Code Start from Here: package stopwatch; /**  *  * @author Md. Khafi Hossain  */ public class Main extends javax.swing.JFrame {    static int milliseconds = 0; static int seconds = 0; static int minutes = 0; static int hours = 0; static boolean state = true;     /**      * Creates new form Main      */     public Main() {         initComponents();     }     /**      * This method is called from within the constructor to initialize the form.      * WARNING: Do NOT modify this code. The content of this method is always      * regenerated by the Form Editor.      */     @SuppressWarnings("unchecked")     // <editor-fold defaultstate="collapsed" desc="Generated Code">                            private void initComponents() {         jLabel1 = new javax.swing.JLabel();         jButton1 = n
Read more

System sound recorder using NAudio dll with complete code

-
Image
System sound recorder including microphone with vb.net complete code   Please Like & Share code from here  ************************ Imports System Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Linq Imports System.Text Imports System.Windows.Forms Imports NAudio.Wave Imports NAudio.CoreAudioApi Imports System.IO Imports System.Diagnostics Imports System.ComponentModel.Composition Public Class Form1     Dim Time As New DateTime     Private waveIn As IWaveIn     Private writer As WaveFileWriter     Private outputFilename As String     Private outputFolder As String     Public Sub New()         InitializeComponent()         If Environment.OSVersion.Version.Major >= 6 Then             LoadWasapiDevicesCombo()         Else             ComboBox1.Enabled = False             radioButtonWasapiLoopback.Enabled = False         End If         outputFolder = Application.StartupPath & "\Temp"
Read more