PDA

Visualizza versione completa : finestre di dialogo in Visual basic!!!


pina
28-06-2001, 15.51.05
Scusate le domande ke sicuramente x voi saranno stupide ma sono alle prime armi con il VISUAL BASIC:
Ho dei problemucci cone alcune finestre di dialogo:

ho creato una finestra di dialogo apri con il seguente codice:
Private Sub Apri_Click()
CommonDialog1.Filter = "file di testo (*.txt)"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
End Sub

Fin qua tutto ok.. desidero sapere qual'e' la differenza con il seguente codice:

Private Sub Apri_Click()
Dim NomeDelFile As String
CommonDialog1.Filter = "file di testo simo (*.txt)"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
NomeDelFile = CommonDialog1.FileName
End Sub

la stringa nomedelfile=commondialog.filename cosa significa???


poi vorrei visualizzare la finestra di dialogo carattere e con il
seguente codice non funziona:
Private Sub Command1_Click()
commondialog1.flags = cdlcfeffects Or cdlfboth
commondialog1.showfont
End Sub


x creare invece la finestra di dialogo carattere invece con il seguente codice:

Private Sub Command1_Click()
CommonDialog1.ShowFont
End Sub

mi dice nessun tipo di carattere installato per installarli aprire l'icona nel pannello
errore di runtime 24574

cosa c' di sbagliato?
Grazie

badmood
29-06-2001, 14.13.36
Mah, sono 100 anni che non smanetto in VB, ma penso che nel caso specifico nomedelfile = commondialog.filename ti restituisca il nome del file che hai selezionato nell'elenco della finestra 'open'.

Ciao

LeleB
29-06-2001, 15.09.14
Originally posted by pina
la stringa nomedelfile=commondialog.filename cosa significa???

Ci che ha detto badmood! :)


poi vorrei visualizzare la finestra di dialogo carattere e con il
seguente codice non funziona:
Private Sub Command1_Click()
commondialog1.flags = cdlcfeffects Or cdlfboth
commondialog1.showfont
End Sub


x creare invece la finestra di dialogo carattere invece con il seguente codice:

Private Sub Command1_Click()
CommonDialog1.ShowFont
End Sub

mi dice nessun tipo di carattere installato per installarli aprire l'icona nel pannello
errore di runtime 24574

cosa c' di sbagliato?
Grazie [/B]

Per visualizzare questa finestra prima devi indicare i flag (cdlCFBoth, cdlCFPrinterFonts o cdlCFScreenFonts):

CommonDialog1.Flags = cdlCFBoth

e poi la visualizzi...

CommonDialog1.ShowFont :):)