PGDCA and DCA -Text Book ലെ Chater 5 Visual Basic 6.0 ൻറെ Registration,File viewer programs complete source codes

PGDCA and DCA  -Text Book  ലെ Chater 5 Visual Basic 6.0 ൻറെ Registration,File viewer programs  complete source codes  

ആദ്യം ഇതിൽ കാണുന്നപോലെ  form ഡിസൈൻ ചെയ്യണം .
text3 യുടെ properties ൽ  set ചെയ്യുക .
    MultiLine =true
   ScrollBars =2-vertical

1 form Source code


Option Explicit

Private Sub Form_Load()
    'When the form loads, the first thing
    'we do is to assign the names to the
    'list of teams
    lstTeam.AddItem "Giants"
    lstTeam.AddItem "Redskins"
    lstTeam.AddItem "Cowboys"
    lstTeam.AddItem "Bears"
    lstTeam.AddItem "Jets"
   
    'Next, Load the combo for Position
    cboPosition.AddItem "Guard"
    cboPosition.AddItem "Tackle"
    cboPosition.AddItem "Quarterback"
    cboPosition.AddItem "Receiver"
    cboPosition.AddItem "Center"
    cboPosition.AddItem "Running back"
End Sub

Private Sub cmdGo_Click()
    Label3.Caption = cboPosition.Text _
            & ", " & lstTeam.Text
    If txtName.Text = "" Then
        mnuViewer.Enabled = False
        cmdViewer.Enabled = False
        txtName.SetFocus
    Else
        mnuViewer.Enabled = True
        cmdViewer.Enabled = True
    End If
End Sub

Private Sub cmdViewer_Click()
    Load frmDirList
    frmDirList.Show vbModeless
End Sub

Private Sub cmdExit_Click()
    Unload Me
    End
End Sub




'Click on menu Exit same as click on button Exit
Private Sub mnuExit_Click()
    cmdExit_Click
End Sub
'Invoke Move method for this form (Me)
'Look at Form object --> Methods in Help
Private Sub mnuMove_Click()
    Me.Move 0, 0
End Sub

'Invoke PrintForm method for this form (Me)
'Sends image of form to printer - useful for hardcopy
Private Sub mnuPrint_Click()
    Me.PrintForm
End Sub
'Parameters of Move are: left edge, top edge, width, height
'Measurements in twips (see Lesson 7)
Private Sub mnuResize_Click()
    Me.Move 3000, 3000, 6000, 5000
End Sub
'Load and Show form DirList
Private Sub mnuViewer_Click()
    Load frmDirList
    frmDirList.Show vbModeless
End Sub

Private Sub mnuCut_Click()
    'Make sure clipboard is empty
    Clipboard.Clear
    'Copy selected text to Clipboard
    Clipboard.SetText Screen.ActiveControl.SelText
    'Delete selected text
    Screen.ActiveControl.SelText = ""
End Sub

Private Sub mnuCopy_Click()
    'Make sure clipboard is empty
    Clipboard.Clear
    'Copy selected text to Clipboard
    Clipboard.SetText Screen.ActiveControl.SelText
    'Selected text is not deleted - stays in Control
End Sub

Private Sub mnuPaste_Click()
    'Place text from clipboard into active control
    Screen.ActiveControl.SelText = Clipboard.GetText
End Sub

Private Sub mnuDelete_Click()
    'Delete selected text
    Screen.ActiveControl.SelText = ""
End Sub

2 form ലെ  source Code

Option Explicit
    Dim FileSelected As String
    Dim RunProgram As String
    Dim Result
   
Private Sub Form_Load()
    lst_types.AddItem "Programs (EXE, COM, BAT)"
    lst_types.AddItem "Text files (DOC, TXT, WRI)"
    lst_types.AddItem "Graphics (GIF, JPEG)"
    lst_types.ListIndex = 0
    If lst_types.ListIndex = 0 Then
        File1.Pattern = "*.EXE; *.COM; *.BAT"
    ElseIf lst_types.ListIndex = 1 Then
        File1.Pattern = "*.DOC; *.TXT; *.WRI"
    Else
        File1.Pattern = "*.GIF; *.JPEG"
    End If
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
    File1.FileName = Dir1.Path
End Sub

Private Sub cb_start_Click()
    If File1.FileName = "" Then
        MsgBox ("Select a file to run")
        Exit Sub
    End If
    FileSelected = File1.Path
    If Right(FileSelected, 1) = "\" Then
        FileSelected = FileSelected & File1.FileName
    Else
        FileSelected = FileSelected & "\" & File1.FileName
    End If
   
    Select Case lst_types.ListIndex
    Case 0
        Result = Shell(FileSelected, vbNormalFocus)
    Case 1
        RunProgram = "C:\Program Files\Accessories\Wordpad.exe"
        Result = Shell(RunProgram & " " & FileSelected, vbNormalFocus)
    Case 2
        RunProgram = "D:\Viewer\lviewpro.exe"
        Result = Shell(RunProgram & " " & FileSelected, vbNormalFocus)
    End Select
End Sub

Private Sub lst_types_Click()
    If lst_types.ListIndex = 0 Then
        File1.Pattern = "*.EXE; *.COM; *.BAT"
    ElseIf lst_types.ListIndex = 1 Then
        File1.Pattern = "*.DOC; *.TXT; *.WRI"
    Else
        File1.Pattern = "*.GIF; *.JPEG"
    End If
End Sub

Private Sub File1_DblClick()
    cb_start_Click
End Sub

Private Sub cb_exit_Click()
    Unload Me
End Sub