[VB] Sub che non funziona

[evil80]

Ciao a tutti,
ho scritto questa piccola sub per evitare di dover sempre riscrivere lo stesso codice (l'ho inserita in un modulo bus)

Public Sub SistemaForm(ByRef obj As Form)
    obj.Left = 0
    obj.Top = 0
    obj.Width = Principale.Width - 100
    obj.Height = Principale.Height
End Sub

la richiamo nell'evunto Form_load dei form ma ottengo l'errore 13 Type mismatch.....dove sbaglio ? Non capisco proprio perchè non vada

Private Sub Form_Load()
    SistemaForm (Me)
End Sub

Grazie...e ciao

[steno12]

sistemaform Me

Public Function sistemaform(ByRef obj As Form)
Stop
obj.Left = 0
obj.Top = 0
obj.Width = Principale.Width - 100
obj.Height = Principale.Height
End Function






link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2...78%2e%61%73%70
ProjectManager (area dei programmatori per lo sviluppo in comune di progetti)
http://%77%77%77%2e%74%77%6f%72%6b%2...ftp_online.asp
Crea il tuo spazio web gratis
http://%77%77%77%2e%74%77%6f%72%6b%2...mbri/index.asp
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[xegallo]

Originariamente inviato da evil80
Ciao a tutti,
ho scritto questa piccola sub per evitare di dover sempre riscrivere lo stesso codice (l'ho inserita in un modulo bus)

Public Sub SistemaForm(ByRef obj As Form)
    obj.Left = 0
    obj.Top = 0
    obj.Width = Principale.Width - 100
    obj.Height = Principale.Height
End Sub

la richiamo nell'evunto Form_load dei form ma ottengo l'errore 13 Type mismatch.....dove sbaglio ? Non capisco proprio perchè non vada

Private Sub Form_Load()
    SistemaForm (Me)
End Sub

Grazie...e ciao

SistemaForm (Me)
o togli le parentesi o metti call davanti

[evil80]

ok ora funziona ma mi spiegate il motivo delle parentesi ?

[xegallo]

Originariamente inviato da evil80
ok ora funziona ma mi spiegate il motivo delle parentesi ?

perchè la sintassi è quella
con una function

variabile = funzione(parametri)

con una sub

funzione parametri

oppure

Call funzione (parametri)

[evil80]

ok,questo dettaglio mi era sfuggito

thanks