ASP-VBCode.Com - ASP.Net, VB.Net, PayPal IPN Solution, Web Design

Visual Basic 6 Code Functions/Procedures

InQuotes Function

PauseTime Proc.

Remove Invld Chr Function

Database Insert Proc.

Database Select Function

Database Delete Proc.

Database Update Function

Make Enter key to act as TAB

Time calculation

Change 1st char to Ucase

Populate MSFlxGrid with db data

How to use CASE

Save file

Open file

Populate TreeView w/database

Catch RDO Error

How to use Case

'******************************************************************
'*      Value(s)passed:                             .....                                           
'*      Value(s)returned:                          .....                                          
'*      Date:                                            10-12-2002
'*      Author:                                          Ahmad E. Ashparie                               
'*      ___________________________________________      
'*                                  Modification Log                            
'*      Date            Author              Description                         
'*      ------            --------              -------------                        
'*                                                                             
'*******************************************************************


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
DoEvents

Select Case Button.Key
        
        '// main menu items ++++++++++++++++++++++++++++++++++++++++++++++
        Case "AddNewRecords"
            mnuAddNewRecords_Click
            
        Case "UpdateRecords"
                mnuUpdateRec_Click
        Case "SearchRecords"
                mnuSearchRecords_Click
        Case "DeleteRec"
                mnuDeleteFunction_Click
        Case "DBConnect"
                mnuDatabaseUtilities_Click
         Case "Admin"
                mnuAdministratorUtilities_Click
        Case "Reports"
                mnuReports_Click
        Case "ExitApp"
            mnuExit_Click
        
    
        
End Select
End Sub