darknice86 (Normal User)
Newbie
Messaggi: 9
Iscritto: 06/04/2008
|
salve a tutti sto crecando di realizzare un blocco note in visual basic 6.0 ma nel menu formato carattere ho messo il seguente codice:
Commondialog1.Flags = cdlCFScreenFonts
Commondialog11.ShowFont
Text1.FontBold = Commondialog11.FontBold
Text1.FontItalic = Commondialog11.FontItalic
Text1.FontName = Commondialog11.FontName
Text1.FontSize = Commondialog11.FontSize
Text1.FontStrikethru=Commondialog11.FontStrikethru
il comando commondialog.showfont fa comparire la finestra dei caratteri all'internosi trova il pulsante annulla talepulsante se viene premuto compare un errore qualcuo di voi gentilmente può spegarmi il perchè?
cosa ho sbagliato?
vorrei capire anche come faccio a salvare l'impostazione dei caratteri che l'utente ha impostato ogni volta che mi si apre il blocco note?
mi è gradita una risposta
vi ringrazio anticipatamente
|
|
M@d_Hacker (Ex-Member)
Expert
Messaggi: 254
Iscritto: 25/02/2008
|
Ecco il codice corretto...
Codice sorgente - presumibilmente VB.NET |
On Error Resume Next CommonDialog11.Flags = cdlCFScreenFonts CommonDialog11.ShowFont Text1.FontBold = CommonDialog11.FontBold Text1.FontItalic = CommonDialog11.FontItalic Text1.FontName = CommonDialog11.FontName Text1.FontSize = CommonDialog11.FontSize Text1.FontStrikethru = CommonDialog11.FontStrikethru
|
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
Postato originariamente da M@d_Hacker:
Ecco il codice corretto...
Codice sorgente - presumibilmente VB.NET |
On Error Resume Next CommonDialog11.Flags = cdlCFScreenFonts CommonDialog11.ShowFont Text1.FontBold = CommonDialog11.FontBold Text1.FontItalic = CommonDialog11.FontItalic Text1.FontName = CommonDialog11.FontName Text1.FontSize = CommonDialog11.FontSize Text1.FontStrikethru = CommonDialog11.FontStrikethru
|
|
non e` una gran risposta...
per il 2ndo prob.
o scrivi un file con dentro le impostaziono che vuoi salvare e lo riapri all'avvio oppure usi piu facilmente il savesettings e loadsettings(?) che ti memorizza e ti legge tutto nel registro di sistema. |
|
M@d_Hacker (Ex-Member)
Expert
Messaggi: 254
Iscritto: 25/02/2008
|
Postato originariamente da P4p3r0g4:
non e` una gran risposta...
per il 2ndo prob.
o scrivi un file con dentro le impostaziono che vuoi salvare e lo riapri all'avvio oppure usi piu facilmente il savesettings e loadsettings(?) che ti memorizza e ti legge tutto nel registro di sistema. |
Per il 1° problema devo spiegargli i problemi ke davano l'errore??
Per il 2° problema ti consiglio di salvare le impostazioni in un file .ini... |
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
direi di si.
e cmq creare un file .ini? perche` non ci mettiamo anche una musichetta di sottofondo!
Il savesetting per memorizzare UNA variabile direi che e` leggermente piu conveniente.
|
|
darknice86 (Normal User)
Newbie
Messaggi: 9
Iscritto: 06/04/2008
|
vi ringrazio ancora x la vostra risposta
il primo problema è stato risolto con la funzione on error resume next in un secondo momento ho pensato di scrivere il seguente codice per salvare l'impostazione dei caratteri onde evitare che l'utente deve reimpostarei i caratteri .:
dim x
private sub form_load
x = text1.FontBold and text1.FontItalic & Text1.FontName end Text1.FontSize
end sub
private sub salva_clik
If Commondialog1.FileName <> "" Then
Open Commondialog1.FileName For Append As #1
Print #1, Text1.Text & x
Close
End If
private sub apri_clik
Commondialog1.ShowOpen
If Commondialog1.FileName <> "" Then
Open Commondialog1.FileName For Input As #1
o = Input(LOF(1), 1) & x
Close #1
text1=o
tale codice non è funzionante per il salvataggio dei caratteri perchè?????
vorrei saperlo
c'è qualche funzione che si deve sapere?
qualcuno puo spiegarmi la soluzione x favore?
vi ringrazio tutti
uffi qualcuno puo rispondermi???
Ultima modifica effettuata da darknice86 il 07/04/2008 alle 23:33 |
|
Shutdown (Founder Member)
Guru
Messaggi: 1212
Iscritto: 10/09/2005
|
Occhio ragazzi a non litigare!
Grazie!
|
|
TSP (Ex-Member)
Pro
Messaggi: 99
Iscritto: 17/03/2008
|
ciao, ti proporrei una soluzione molto semplice,
intanto il font lo puoi salvare al massimo come default all'apertura del programma e non in un file di testo, per salvare le impostazioni crei un file di testo con i valori di (fontbold,fontitalic) separati da una virgola (es: true,false,false ecc..) poi quando apri il programma carichi come input il file con le impostazioni (true,false,false) e lo splitti
Codice sorgente - presumibilmente VB.NET |
On Error Resume Next Dim setting1 As Variant setting1 = Split(inputopzioni, ",") text1.fontbold = setting1(0)
|
e cosi via per le altre, in questo modo ogni indice avrà un valore (0=true 1=false 2=false)
(riferito all'es di prima
Ultima modifica effettuata da Shutdown il 12/04/2008 alle 0:29 |
|