Newsgroup: it.comp.lang.visual-basic
Titolo: Un aiuto please.

Scusate ragazzi,
ma sto letteralmente impazzendo.
A parte il fatto di aver maledetto il giorno che ho uiniziato a programmare
almeno mille volte, o stramaledetto il giorno in cui ho comprato VB Standard
edition e non la professional.
Sto cercando di integrare una guida in linea creata con Html Help workshop
in una applicazione VB6,
ma non c'e' verso di farla funzionare.
Prima cosa.
Nelle proprietą del progetto, anche avendo inserito manualmente il nome del
file della guida creato, non mi viene riconosciuto, e non mi permette di
usare il pulsante sfoglia (contrassegnato da tre puntini): dipende dalla mi
aversione di VB?
Secondo problema.
non riesco in nessun modo a far si che la guida si apra sulla pagina da me
voluta.
Es.
La pagina di inserimento nuovo cliente, ha come helpcontextid 100.
nella guida ho creato il context con la mia paginetta, ho creato il file di
index ma quando premo il Commandbutton della guida (ho creato un
commandbutton apposta) non mi si apre la guida, anzi mi dice che non la
trova nemmeno.
Se imposto il whatthishelp a true si apre la guida ma devo cliccare sia sul
command butto con helcontextid = 100 che sul tasto F1 altrimenti non succede
nulla.
Sapreste darmi qualche suggerimetno, anche in privato se questo argomento
non interessa al NG?
Grazie
Emanuele

 altrimenti non succede nulla.
'Funziona per Help WorkShop (HLP), non so per HTML (mai usato perchè la
conversione fa pena)
'Mettere sul Form un CommonDialog (CommonDialog1), e due TextBox (Text1 e
Text2)
'Assegnare eventualmente le proprietà HelpContextID <>0 al Form e a Text1
(=0 a Text2)
'La Form deve avere la proprietà KeyPreview=True, solo perchè viene usato il
Form_KeyDown,
'ma le istruzioni che seguono possono essere richiamate come si desidera.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF1 Then
        map = 0
'           Verifica se esporre argomento specifico
        If Screen.ActiveForm Is Nothing = 0 Then
            map = Screen.ActiveForm.HelpContextID                   'Form
            If Screen.ActiveControl Is Nothing = 0 Then
                If Screen.ActiveControl.HelpContextID Then
                    map = Screen.ActiveControl.HelpContextID        'Oggetto
                End If
            End If
        End If
        If map Then
'               Argomento specifico
            CommonDialog1.HelpCommand = cdlHelpContext
            CommonDialog1.HelpContext = map
        Else
'               Sommario
            'cdl_dialogo.HelpCommand = cdlHelpContents  'Errato!!!
            CommonDialog1.HelpCommand = &HB     'HelpFinder per sommario
        End If
        CommonDialog1.HelpFile = "Percorso_e_nome_del_file.HLP"    '<<<
ADATTARE
        CommonDialog1.ShowHelp                  'Espone l'Help
    End If
End Sub

 Nelle proprietà del progetto, anche avendo inserito manualmente il nome


VI ringrazio per l'aiuto....
e scusatemi per lo sfogo
Emanuele

 almeno mille volte,
CUT
Mi permetto di darti un consiglio, se pensi davvero questo e meglio che
cambi strada, altrimenti più vai avanti e più ti sarà di peso...


Quando cado nello sconforto penso questo e anche peggio:
tutto è dovuto alla mancanza di contatti con altre persone capaci (e anche
fornite di voglia) di collaborare senza paura di essere derubati di chissa
qual "teSSoro"..ovviamente mi riferisco a persone reali, ..in internet ,
attraverso forum chat siti si trova sempre qualcosa o qualcuno che ti
aiuta...ma il dialogo reale spesso e' molto piu' semplice e molto piu'
appagante di quello scritto.
Comunque, (almeno per me) questo è davvero un periodo nero, in tutti i
sensi....
Vi ringrazio per l'aiuto che mi avete dato ogni volta che ho postato qui.
Emanuele