|
Forms |
| 3.16 Interfacciare i file help con le forms. |
| Calogero Di Lorenzo |
|
(D) E' possibile Interfacciare i file help, creati con HTML HELP Workshop, con le forms? (R) Introduzione: In considerazione che Microsoft Help WorkShop è troppo farraginoso per via dell'utilizzo obbligato di files .rtf e sue complicate note a pie di pagina ho pensato di costruire guide on line utilizzando HTML HELP Workshop di sicuro piu' intuitivo e perchè utilizza pagine Web invece dei .rtf e quindi perfette per gli ipertesti. Fino qui nulla di speciale, il problema consiste nell'interfacciare la guida così creata con le FORM di ACCESS in quanto questa supporta solo chiamate a MHW. Requisiti di funzionamento: nelle proprietà tag delle form inserire un valore stringa senza virgolette che indirizza al file .htm lincato nel progetto di Guida On Line; questo tag è opzionale, ma qualora si utilizza riusciamo ad ottenere una consultazione della guida sensibile al contesto. La funzione help() legata magari ad un evento della barra dei menù consentirà di richiamare la nostra guida aprendo tante finestre guida quante sono le form aperte che contengono un tag valido. Altrimenti apre la guida ponendosi alla pagina di default.
Function help()
' valuta e verifica le form aperte
Dim frm As Form
Dim n As Integer
For Each frm In Forms
'se la proprietà tag è stata implementata incrementa un contatore
If frm.Tag <> "" Then
n = n + 1
'apre la guida che si avrà cura di porrenella cartella
' di lavoro con il nome applic.chm ponendosi
'direttamente alla pagina .htm indicata nel Tag
Shell ("start hh.exe mk:@MSITStore:" & PathCorrente & "Applic.chm::/" & frm.Tag & ".htm")
End If
Next frm
'altrimenti apre la guida dalla pagina di Default
If n = 0 Then
Shell ("start " & PathCorrente & "Applic.chm")
End If
End Function
Nota: pathcorrente è una funzione presente sul sito comune.
|