Steps to perform File System Control 1. Open VB application 2.To drag and drop the Directorylistbox,Drivelistbox,Filelistbox tools to our form 3.Add two button control and image controls. 4.image control used to display the user select images. 5.Run the application PROGRAM: Private Sub Drive1_Change() Dir1.Path = Drive1.Drive File1.Path = Dir1.Path End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub OK_Click() On Error Resume Next Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName) Label1.Caption = Drive1.Drive + Dir1.Path + "\" + File1.FileName End Sub Private Sub EXIT_Click() End End Sub OUTPUT:
Public curval As Double Public preval As Double Public choice As String Public result As Double Private Sub cmd_Click(Index As Integer) Text1.Text = Text1.Text &cmd(Index).Caption curval = Val(Text1.Text) End Sub Private Sub cmdac_Click() curval = preval = 0 Text1.Text = "" End Sub Private Sub cmddiv_Click() Text1.Text = "" preval = curval curval = 0 choice = "/" End Sub Private Sub cmdequal_Click() Select Case choice Case "+" result = preval + curval Text1.Text = Str(result) Case "-" result = preval - curval Text1.Text = Str(result) Case "*" result = preval * curval Text1.Text = Str(result) Case "/" result = preval / curval Text1.Text = Str(result) End Select curval = result End Sub Private Sub CMDEXIT_Click() End End Sub Private Sub cmdminus_Click() Text1.Text = "" preval = curval curval = 0 choice = "-" End Sub Private Sub cmdmul_Click() Text1.Text = "