[vb6]errore in finestra di dialogo

[apatico]

Private Sub mnuFileSave_Click()
Dim sFile As String
If Left$(ActiveForm.Caption, 8) = "Document" Then
With dlgCommonDialog
.DialogTitle = "Save"
.CancelError = False
'ToDo: set the flags and attributes of the common dialog control
.Filter = "All Files (*.*)|*.*"
.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
ActiveForm.rtfText.SaveFile sFile
Else
sFile = ActiveForm.Caption
ActiveForm.rtfText.SaveFile sFile
End If



If Left$(ActiveForm.Caption, 8) = "Document" Then
Questa è la dove mi segnala l'errore.cosa cè che non va?



End Sub

[SimoneVB]

Ciao,
dipende dal numero dell'errore !
Comunque credo di sapere di cosa si tratta: è possibile che la Caption del form sia lunga
meno di 8 caratteri ?
In questo caso infatti Left$ darebbe errore tentando di estrarre 8 caratteri da una stringa che ne ha meno...

[LMondi]

Perchè non fai riferimento, invece, al nome della form, ad esempio così:
code:
If ActiveForm Is FrmCashFlow1 Then

saluti.

[xegallo]

forse perchè non esiste nessun oggetto activeform

hai provato Screen.ActiveForm