Il seguente frammento di codice, permette di rilevare alcune informazione relativo al sistema, in particolare Hard Disk.

Aggiungere il riferimento a Microsoft Scripting RunTime.

'caricare il file system object
Dim Fso As FileSystemObject
Dim ObjDrive As Drive
Set Fso = New FileSystemObject
Set ObjDrive = Fso.GetDrive("C:\")
MsgBox "Il numero seriale Hard Disk: " & ObjDrive.SerialNumber, vbInformation, "Drive"
MsgBox "Spazio libero: " & ObjDrive.FreeSpace, vbInformation, "Drive"
MsgBox "Sistema: " & ObjDrive.FileSystem, vbInformation, "Drive"
MsgBox "Quantità massima: " & ObjDrive.TotalSize, vbInformation, "Drive"
MsgBox "Nome Hard Disk " & ObjDrive.VolumeName, vbInformation, "Drive"

I file chm sono file utilizzati per fornire informazioni agli utenti,ossia delle guide, se vogliamo corredare il nostro programma, con una guida, possiamo crearli e poi richiamarli nelle nostre applicazioni.

Tramite le api di Windows, si può richiamare un file chm, in particolare tramite l'api HtmlHelpTopic  Di seguito si riporta un esempio di codice.

'dichiarazione api
Private Declare Function HtmlHelpTopic Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As String) As Long
 

Di seguito si riporta una funzione che può essere utilizzate nella varie parti del programma.

'funzione per avviare il file chm
Sub AvviaHtmlHelp(ByVal sHelpFile As String, ByVal sHelpPage As String)
Const HH_DISPLAY_TOPIC = &H0
On Error Resume Next
' apro il file chm nella pagina, passata tramite il parametro sHelpPage

HtmlHelpTopic 0, sHelpFile, HH_DISPLAY_TOPIC, sHelpPage
End Sub
 

Frammento di codice da utilizzare nell'evento click di un pulsante o menu:

Call AvviaHtmlHelp("c:\guida.chm", "pagina.htm")

Trucco: vba - Rilevare la lettera del cd-rom

Tramite l'api GetDriveType, possiamo ottenere la lettera che contraddistingue il cd-rom.

Di seguito si riporta un frammento di codice del suo utilizzo.

'Dichiarazione di api

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
 

'Funzione per ottenere il drive

Private Sub OttieniCDROM()
    Dim intDrive As Integer
    Dim StrMessaggio As String
    Const DRIVE_CDROM = 5
    StrMessaggio = "Nessun CD_ROM Installato"
    For intDrive = 65 To 90
        If GetDriveType(Chr(intDrive) & ":\") = DRIVE_CDROM Then
            StrMessaggio = "La lettera del cd-rom è:" & Chr(intDrive) & ":\"
            Exit For
        End If
    Next intDrive
MsgBox (StrMessaggio)

End Sub

Trucco: Word effettuare il download di un file.

Tramite l'api URLDownloadToFile della libreria urlmon possiamo effettuare il download di un file (qualsiasi tipo) situato su un sito. Tale trucco si può applicare in tutti gli applicativi Microsoft Office.

Utilizzeremo Word come esempio.

Avviate word, e nell'editor di vba (Strumenti->macro->editor di visual basic) inserite una form con un pulsante.

Andate in visualizzazione codice, ed inserire in alto sopra ad ogni parola la dichiarazione di api, come riportato qui di seguito.

 '*********api download
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Nell'evento click del pulsante il seguente codice:

Dim strUrl As String
strUrl = "http://www.sito.it/miofile.html"

Dim StrDestinazione As String
strDestinazione = "C:\miofiledestinazione.html"

'api passare come parametri, il sito e nome del file (orgine) e come destinazione, il percorso e nome del file.
errcode = URLDownloadToFile(0, strUrl, strDestinazione, 0, 0)
If errcode = 0 Then
    MsgBox "Download ok"
  
Else
    MsgBox "Errore"
End If

Trucco: Power point  - Elenco di tasti di scelta rapida

Di seguito si riportano alcuni tasti di scelta rapida da utilizzare nel programma Power Point.

Trucco: Tasti di scelta rapida per Power point

Qui di seguito si riporta un elenco di alcuni tasti di scelta rapida da utilizzare nel programma Microsoft Power Point.

La seguente riga di codice mostra come avviare una macro, dal linguaggio Visual Basic Application.

Il metodo Run dell'oggetto Application avvia una macro, passandogli come valore, il nome della macro da avviare:

Application.Run MacroName:="MiaMacro"