F as form

di Anonimizzato14715 il
5 risposte
/
Anonimizzato14715
Utente anonimizzato
Perché non mi funziona questa:
Private Sub Command1_Click()
Dim frm As Form
Set frm = Me
DisplayName (frm) oppure direttamente "Me"
End Sub

Private Function DisplayName(ByRef f As Form)
MsgBox f.Name
End Function

Saluti

5 Risposte

  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    DisplayName frm

    oppure

    DisplayName Me

    senza parentesi
  • /
    Anonimizzato14715
    Utente anonimizzato
    No si blocca alla chiamata della function con errore 13
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    A me no ... parliamo di VB6 giusto? Il codice e' tutto quello che hai mostrato o c'e' altro?
  • /
    Anonimizzato11767
    Utente anonimizzato

    Nous ha scritto:

    No si blocca alla chiamata della function con errore 13
    L'errore è causato dal fatto che tu hai scritto:
    DisplayName (frm)
    ed è sbagliato l'uso delle parentesi. Devi scrivere: 
    DisplayName frm
    oppure, per usare le parentesi, devi scrivere: 
    Call DisplayName(frm)
    Inoltre, non ha senso usare una Function, dato che non fai restituire alcun risultato, in questi caso si usa una Sub.
  • /
    Anonimizzato14715
    Utente anonimizzato
    Grazie tante, a volte stupidaggini ti fanno perdere molto tempo, quello che mi confondeva era errore 13 invece era banalissima sintassi.
    Per la function, pardon ho scritto le 4 righe in fretta per far capire, ma nel progetto serve la function che restituisce codice di errore.

    Saluti.
Devi accedere o registrarti per scrivere nel forum
5 risposte