Fotos of my new Application Software...

 

Start page

Folder Viewer, you can also manipulate folders a usual in the folder browser 

 Text files viewer

Few Codings :)

It have built-in tabbed browser like Chrome

It has address book, like normal address book.

 When the form is loading, it is a rising form.

How to copy and save all images displaying in a picture box, from a listbox (Using For...Loop)

    Dim Fold As New DirectoryInfo(C:\Users\User\Desktop\OldFotos)

            Dim strNewLoc As New DirectoryInfo(C:\Users\User\Desktop\NewFotos)

            For Each newImg As String In Me.lstImages.SelectedItem.ToString
                Dim strName As String = Me.lstImages.SelectedItem.ToString
                Dim strImg As Bitmap = Me.PbxImages.BackgroundImage

                Dim intImg As Integer = Math.Abs(Me.lstImages.SelectedIndex + 1)

                'Imports the image displayed
                strImg.Save(strNewLoc.ToString & "\" & strName & ".jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)

                'Selects the next image to be displayed
                Dim strNxtImg As String = Me.lstImages.Items.Item(intImg).ToString

                'Me.PbxImages.BackgroundImage = Nothing
                Me.PbxImages.BackgroundImage = Image.FromFile(Fold.ToString & "\" & strNxtImg)
                Me.lstImages.SelectedIndex = intImg


                If Me.lstImages.Items.Count = Me.lstImages.SelectedIndex + 1 Then
                    Exit For
                End If
            Next

Creating Login in VB.NET

If Me.TxbxUserName.Text = My.Settings.UserName And Me.TxbxUserPassword.Text = My.Settings.UserId Then
                My.Forms.frmMain.Show()
                Me.Close()
            End If

            If Me.TxbxUserName.Text <> My.Settings.UserName Then
                Me.ErrorProvider1.SetError(Me.TxbxUserName, "Invalid Username")
            ElseIf Me.TxbxUserName.Text = "" Then
                Me.ErrorProvider1.Clear()
            End If

            If Me.TxbxUserPassword.Text <> My.Settings.UserId Then
                Me.ErrorProvider1.SetError(Me.TxbxUserPassword, "invalid User ID")
                Me.ErrorProvider1.Clear()
            End If

            If Me.TxbxUserPassword.Text <> My.Settings.UserId And Me.TxbxUserName.Text <> My.Settings.UserName Then
                Me.LblCounter.Text -= 1
            End If

            If Me.LblCounter.Text = 0 Then
                My.Settings.CloseTime = TimeHolder
                My.Settings.Save()
                End
            End If