Newsgroup: it.comp.lang.visual-basic
Titolo: Editor Html

Mi Scuso per questi 3 post. Chi volesse rispondermi in privato
sentine...@hotmail.com
--------------------------------------------------------------
Salve a tutti :)
Allura spero che mi potreste aiutare, praticamente
sto creando un editor html, com la possibilità di vedere in qualsiasi
momento l'anteprima della pagina che sto creando, in poche parole
nel form1 c'è il textbox in cui si scrive il codice cliccando poi sul
command1 appare il form2 con il browser1 all'interno la pagina visualizzata
(tipo il FP) fin qui tutto okappa ci son riuscito, il problema è sorto
quando ho messo "apri", praticamente il file visuallizzava l'anteprima
perchè creava nella stessa cartella del programma il file temp.html una
volta chiuso il form2 il file temp si cancellava, così facendo continuare il
lavoro sull'editor e quindi salvarlo come si vuole,quando ho messo Apri,
aprendo un qualsiasi file la cartella cambia e quindi il browser1 non riesce
+ a visualizzare l'anteprima.....Meglio se riporto il codice
--
=Omega=
"Hands On"

---Form1---
Private Sub apri_Click()
Wrap$ = Chr$(13) + Chr$(10)
    CommonDialog1.Filter = "Website Files (*.HTML)|*.HTML"
    CommonDialog1.ShowOpen
    CommonDialog1.InitDir = "\"
    If CommonDialog1.FileName <> "" Then
        Form1.MousePointer = 11
        Open CommonDialog1.FileName For Input As #1
        On Error GoTo Grande:
        Do Until EOF(1)
            Line Input #1, LineOfText$
            AllText$ = AllText$ & LineOfText$ & Wrap$
        Loop
        Text1.Text = AllText$
        Text1.Enabled = True
Pulisci:
        Form1.MousePointer = 0
        Close #1
    End If
    Exit Sub
Grande:
    MsgBox "Il file è troppo grande", vbExclamation, "Attenzione..."
    Resume Pulisci:
End Sub
'---------------------------------------------
'Command1 serve per visualizzare l'anteprima
'----------------------------------------------
'Crea il file Temp.html nella dir del programma
'e ci copia ciò che sta nel text1
'----------------------------------------------
Private Sub Command1_Click()
Open "Temp.html" For Output As #1
Print #1, Text1.Text
Close #1
Form2.Show
End Sub
====================================
Il codice ovviamente continua ma passiamo al form2
====================================
----Form2-----
'Al caricamento della finestra visualizza
'il contenuto del file temp.html nel
'webbrowser
Private Sub Form_Load()
WebBrowser1.Navigate App.Path & "Temp.html"
End Sub
'------------------------------------------
'Cliccando sul command 1 si esce dal programma
'e il file temp.html viene cancellato
'------------------------------------------
Private Sub quittizza_Click()
Kill App.Path & "Temp.html"
Unload Form2
End Sub

Scusate del super post!!!
Cmq il problema lo riscontro quando clicco su apri e apro un altro file
oltre a non visualizzare in anteprima il file aperto, alla creazione di un
altro file nuovo vuoto, manko quello + si visualizza, ciò succede perchè
aprendo il file cambia la path e il file temp viene creato in un altra
directory ad es. apro un file da documenti, il file temp si creerà quindi in
documenti!
Come posso fare a non fa cambiare di path tutto il processo? Ovvero
meglio se mi aiutate a capire come si può fare una bella anteprima... un pò
come quella del front page oppure come quella del dreamware :)
Grazie a tutti e scusate ancora PERDONO!
--
=Omega=
"Hands On"