Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Sep 2004
    Messaggi
    85

    [vb6]errore in finestra di dialogo

    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
    E SE TUTTO FOSSE SOLO UN RIFLESSO?

  2. #2
    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...

  3. #3
    Utente di HTML.it L'avatar di LMondi
    Registrato dal
    Sep 2004
    Messaggi
    1,291
    Perchè non fai riferimento, invece, al nome della form, ad esempio così:
    code:
    If ActiveForm Is FrmCashFlow1 Then

    saluti.
    LM

  4. #4
    forse perchè non esiste nessun oggetto activeform

    hai provato Screen.ActiveForm
    Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.