SETHA SITE INFORMATION

This sample show you how to write Visual Basic 6 (VB6) code to change screen resolution (example: change screen resolution to 1024x768). You will see the uses of API function as follow:

Public Declare Function GetSystemMetrics Lib "user32.dll" .................
Public Declare Function EnumDisplaySettings Lib "user32.dll" ................
Public Declare Function ChangeDisplaySettings Lib "user32.dll" ............
Public Declare Function ExitWindowsEx Lib "user32.dll" .........

• Create New Project in VB6: Project1
• Create New Form: Form1
• Draw Controls on Form as following:
  • One TextBox Control
  • One Image Control
  • Two Command Controls for Save and Close
  • Two Command Controls for Browse and Remove Image
  • One Command Control to Get data back from Database with the text enter TextBox Control
• Add Component: Microsoft Command Dialog Control 6.0
• See Image below
  
• Add Reference: Microsoft ActiveX Data Objects 2.1 Library (Project->References)
• Create Database in Microsoft Access (data.mdb) with the following table:
  • Table name: student
  • Fields
    

    Field	Data Type
    name	Text
    photo	OLE Object

• Coding (Download sample below)

Assume that we have an Excel file named Book3.xls locates in the same folder as the project folder which consists of data in four columns of the first sheet. We will import those data in Excel file into the ListView (have the same four columns as in Excel) in Visual Basic 6.

    Dim ExcelObj As Object
    Dim ExcelBook As Object
    Dim ExcelSheet As Object
    Dim i As Integer

    Set ExcelObj = CreateObject("Excel.Application")
    Set ExcelSheet = CreateObject("Excel.Sheet")
    
    ExcelObj.WorkBooks.Open App.Path & "\Book3.xls"
    
    Set ExcelBook = ExcelObj.WorkBooks(1)
    Set ExcelSheet = ExcelBook.WorkSheets(1)
    
    Dim l As ListItem
    lvwList.ListItems.Clear
    With ExcelSheet
    i = 1
    Do Until .cells(i, 1) & "" = ""
        Set l = lvwList.ListItems.Add(, , .cells(i, 1))
        l.SubItems(1) = .cells(i, 2)
        l.SubItems(2) = .cells(i, 3)
        l.SubItems(3) = .cells(i, 4)
        i = i + 1
    Loop

    End With
    
    ExcelObj.WorkBooks.Close
    
    Set ExcelSheet = Nothing
    Set ExcelBook = Nothing
    Set ExcelObj = Nothing

Assume that we have a ListView contains data in four columns. We want to export all data in ListView to a new sheet of Microsoft Excel. Below is a sample code in Visual Basic 6 use to export data from ListView to Microsoft Excel.

    Dim ExcelObj As Object
    Dim ExcelBook As Object
    Dim ExcelSheet As Object
    Dim i As Integer

    Set ExcelObj = CreateObject("Excel.Application")
    Set ExcelBook = ExcelObj.WorkBooks.Add
    Set ExcelSheet = ExcelBook.WorkSheets(1)

    With ExcelSheet
        For i = 1 To lvwList.ListItems.Count
            .cells(i, 1) = lvwList.ListItems(i).Text
            .cells(i, 2) = lvwList.ListItems(i).SubItems(1)
            .cells(i, 3) = lvwList.ListItems(i).SubItems(2)
            .cells(i, 4) = lvwList.ListItems(i).SubItems(3)
        Next
    End With
    
    ExcelObj.Visible = True
    
    Set ExcelSheet = Nothing
    Set ExcelBook = Nothing
    Set ExcelObj = Nothing