Discussion :

[Gaetch]

Je sais que ça a l'aire bien bête mais je suis entrain de me prendre la tête avec ça : comment on ferme une form (pas la form actuelle, me) ?

Je sais que c'est pas form.hide : ça ne libère pas la mémoire allouée, je veux pas utiliser end parce aue je trouve ça un peu bourrin et enfin unload (form) ne fonctionne pas, ça me renvoie une erreur invalid property value.

J'ai essayé la chose suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim F As Form
For Each F In Forms
    Unload F
Next

Mais ça me ferme toutes les fenêtres, comment dire fermer la fenêtre untelle ça doit pourtant pas être si compliqué

[zazaraignée]

Tu étais pourtant si près du but.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Unload NomDeLaForm

[Gaetch]

Oo okay... alors unload (form) marche pas mais unload form ouais ! En plus quand t'écris unload, il t'affiche une petite infobulle avec la syntaxe et y'a des parenthèses. Merci quand même de m'avoir répondu

[Phifi]

Pas exactement, les 2 syntaxes marchent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Unload MaForm
 
OU
 
Call Unload(MaForm)

Idem pour toutes procédures/fonctions avec arguments

[Gaetch]

Ha bon okay je note, quelle syntaxe étrange, enfin c'est le temps de me remettre dedans ! Merci à vous !

[zazaraignée]

Call va fonctionner mais ce n'est plus nécessaire de le mettre (sauf dans quelques cas particuliers, mais ne me demandez pas lesquels... ma mémoire étant ce qu'elle est) car consitéré obsolète (dans la plupart des cas, je disais ?).

[Delbeke]

Je suis assez d'accord avec toi, la syntaxe est bizarre, il y en a d'autres comme çà dans vb.
Historiquement, il fallait passer par un call pour appeler une procèdure. Les gars de MicroSoft se sont dit, Vb : c'est pour les neuneu, on va leur simplifier la vie, alors il ont implaté l'autre syntaxe, qui, c'est vrai, est plus intuitive pour un débutant.

[Phifi]

Mouais, c'est une question point de vue...

J'ai appris VB en appelant les procédures par Call, ça permettait de les différencier des appels de fonctions qui devaient retourner quelque chose tandis qu'avec cette syntaxe "simplifiée", on ne sait pas d'un coup d'oeil à quoi on a affaire. On ne fait plus la différence entre procédures et fonctions, sachant en plus qu'on peut appeler une fonction sans utiliser la valeur quelle retourne. Ce genre de permissivité n'est pas compatible avec la rigueur que doit avoir un développeur à mon sens

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private UnMontant As Currency
 
UnMontant = 10.85
 
CalculKekchose UnMontant

CalculKekchose = procédure ou fonction ?

Enfin, on va pas lancer un débat non plus...

[Gaetch]

Ha ben moi je fais toujours tous mes appels de procédures avec Call je savais pas que c'était obsolète, en même temps je trouve VB6 un peu obsolète

[Vld44]

Personnellement, ne pas utiliser Call allège le code, et accélère le développement.

C'est le seul avantage de VB (coder vite) alors si on lui enlève ...

[LeForestier]

Mouais, c'est une question point de vue...

J'ai appris VB en appelant les procédures par Call, ça permettait de les différencier des appels de fonctions qui devaient retourner quelque chose tandis qu'avec cette syntaxe "simplifiée", on ne sait pas d'un coup d'oeil à quoi on a affaire. On ne fait plus la différence entre procédures et fonctions, sachant en plus qu'on peut appeler une fonction sans utiliser la valeur quelle retourne. Ce genre de permissivité n'est pas compatible avec la rigueur que doit avoir un développeur à mon sens

Pour ma part, je n'ai jamais employé Call , mais toutes les fonctions que j'emploi sont appelées avec une variable de retour, de cette façon je sais toujours si c'est une routine ou une fonction. A chacun sa rigeur

Et il me semble que le Call n'a jamais été nécessaire en VB mais que c'est un héritage du C .
A+

[zazaraignée]

La plupart du temps, si vous ne voulez pas recevoir la valeur de retour d'une fonction mais tout de même exécuter le code qui s'y trouve, il suffit de taper la commande et ses paramètres mais sans les parenthèses. Un exemple courant, le MsgBox. Si vous mettez les parenthèses sans mettre de variable pour recevoir la valeur de retour, ça provoque une erreur. Alors qu'on l'utilise courament pour afficher un simple message (sans les parenthèses).

Un autre truc bizarre avec VB. Les procédures qu'on appelle en passant les paramètres avec ou sans les parenthèses. Quand dans la définition de la procédures les paramètres ne sont pas explicitement déclarés ByVal ou ByRef, lors de l'appel de la procédure, si on met les parenthèses, les paramètres sont passés ByRef, et sans les parenthèses ils sont passés ByVal.

[Delbeke]

Je ne crois pas zaza , que l'utilisation des parentheses ou pas influe sur le type de passage de paramètre implicite. Pour moi c'est toujours du ByRef avec ou sans parenthese. En passant, c'est une des difficutés pour passer en Vb .Net qui lui est en ByVal par defaut.

[LeForestier]

bonjour,

Je ne crois pas zaza , que l'utilisation des parentheses ou pas influe sur le type de passage de paramètre implicite. Pour moi c'est toujours du ByRef avec ou sans parenthese. En passant, c'est une des difficutés pour passer en Vb .Net qui lui est en ByVal par defaut.

donc, si j'ai bien compris, le code suivant ne fonctionnerra pas en VB.Net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim Test1
 
incr test1
 
sub incr(T1)
T1=T1+1
end sub

test1 ne serra pas incrémenté ?
A+

[Vld44]

je crois oui.

Par contre zaza, je suis du même avis que Delbeke mais tu me fais douter. Je vais faire l'essai

[zazaraignée]

Non, non! La bizarrerie existe bel et bien mais c'est l'inverse de ce que j'avais dit au départ. Ma mémoire... je vieillis!

Petit test:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub procedI(i As Integer)
    i = i * 2
    MsgBox i
End Sub
 
Private Sub ProcedS(s As String)
    s = s & "toto"
    MsgBox s
End Sub
 
Private Sub cmdAvec_Click()
    Dim a As String, b As Integer, r
    a = Text1.Text
    b = Text2.Text
    ProcedS (a)
    procedI (b)
    Text1.Text = a
    Text2.Text = b
End Sub
 
Private Sub cmdSans_Click()
    Dim a As String, b As Integer
    a = Text1.Text
    b = Text2.Text
    ProcedS a
    procedI b
    Text1.Text = a
    Text2.Text = b
End Sub

Par contre, il sera impossible d'appeler une procédure (Sub) à plusieurs arguments avec les parenthèses. Ça provoque une erreur.

[Delbeke]

Arghh, la tu nous a bien eu, zaza
Quand je parlais de ave parenthèse ou sans, je parlais de la syntaxe avec un call ou sans , genre call proceds(X) ou proceds x

Ce dont tu parles est différent et nescessite de voir la chose du coté du compilateur. Quand tu mets un argument entre parenthes, le compilateur execute ce qui est entre parenthes, le pousse sur la pile, puis fait le call à la sub. Ce qui implique donc que la valeur passée à la sub ne peut que être by val, puisque c'est le résultat d'un calcul.

[zazaraignée]

Merci de l'explication Delbeke. Maintenant je ne considérerai plus la chose comme une bizarrerie.

[Vld44]

Arghh, la tu nous a bien eu, zaza
Quand je parlais de ave parenthèse ou sans, je parlais de la syntaxe avec un call ou sans , genre call proceds(X) ou proceds x

Ce dont tu parles est différent et nescessite de voir la chose du coté du compilateur. Quand tu mets un argument entre parenthes, le compilateur execute ce qui est entre parenthes, le pousse sur la pile, puis fait le call à la sub. Ce qui implique donc que la valeur passée à la sub ne peut que être by val, puisque c'est le résultat d'un calcul.

edit : et si je fais ça :
a = fonction(b), b est forcément byval ??

Tu peux développer stp ?

[zazaraignée]

Je n'ai pas testé avec les fonctions, mais pour être absolument certain de passer des paramètres ByVal, vaut mieux le spécifier dans la définition de la fonction. Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Function maFonction(ByVal monParam As String) as String