FEEL FREE TO CONTACT US click on me

DONT FORGET TO
SUBSCRIBE YOUR MAIL ID ----->>>TO GET DAILY PROJECTS IN YOUR INBOX
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

SEE RIGHT SIDE CORNER
Simple way to browse this site use search option on right side

Mar 31, 2012

latest vb.net mini project sourcecode with documentation free download 2012

latest mini project on Image viewer  concept in VB.NET
 | 
http://freeminiproject.blogspot.com/2012/08/latest-vbnet-projects-free-downlaod.html
  1. Imports System.IO
  2. Public Class Form1
  3. Dim index As Integer
  4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  5. If bdialog.ShowDialog = Windows.Forms.DialogResult.OK Then
  6. TextBox1.Text = bdialog.SelectedPath
  7. index = 0
  8. Me.listbox1.Items.Clear()
  9. For Each Image As String In My.Computer.FileSystem.GetFiles(TextBox1.Text, FileIO.SearchOption.SearchTopLevelOnly) ', "*.gif*", "*.jpg*", "*.bmp*", "*.png*")
  10. Me.listbox1.Items.Add(Image)
  11. index += 1
  12. Next
  13. Button4.Enabled = True
  14. Button5.Enabled = True
  15. Button8.Enabled = True
  16. Button9.Enabled = True
  17. Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
  18. End If
  19. If index > 0 Then
  20. listbox1.SelectedIndex = 0
  21. Else
  22. Me.listbox1.Items.Add("folder is empty")
  23. End If
  24. label2.Text = "total number files in this folder are" & index
  25. End Sub
  26. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  27. Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
  28. Try
  29. PictureBox1.Load(TextBox1.Text)
  30. Catch ex As Exception
  31. MsgBox("preview not available", MsgBoxStyle.OkOnly)
  32. End Try
  33. End Sub
  34. Private Sub listbox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listbox1.SelectedIndexChanged
  35. TextBox1.Text = listbox1.SelectedItem
  36. End Sub
  37. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  38. Me.Close()
  39. End Sub
  40. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  41. If Me.ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
  42. PictureBox1.BackColor = Me.ColorDialog1.Color
  43. End If
  44. End Sub
  45. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  46. PictureBox1.BackColor = Color.Transparent()
  47. End Sub
  48. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  49. Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
  50. Try
  51. If listbox1.SelectedIndex < index Then
  52. listbox1.SelectedIndex += 1
  53. PictureBox1.Load(listbox1.SelectedItem)
  54. Else
  55. MsgBox("this is the last image", MsgBoxStyle.OkOnly)
  56. End If
  57. Catch ex As Exception
  58. MsgBox("file cannot be diplayed", MsgBoxStyle.OkOnly)
  59. End Try
  60. End Sub
  61. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  62. Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
  63. If listbox1.SelectedIndex > 0 Then
  64. Try
  65. listbox1.SelectedIndex -= 1
  66. PictureBox1.Load(listbox1.SelectedItem)
  67. Catch ex As Exception
  68. MsgBox("file cannot be diplayed", MsgBoxStyle.OkOnly)
  69. End Try
  70. Else
  71. MsgBox("this is the first image", MsgBoxStyle.OkOnly)
  72. End If
  73. End Sub
  74. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  75. End Sub
  76. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
  77. Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
  78. End Sub
  79. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
  80. Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Normal
  81. End Sub
  82. End Class
latest vb.net mini project sourcecode with documentation free download 2012


output




click here to download


Reactions:

6 comments :

Chat