La fonction infra fonctionne, mais je ne la trouve pas tres elegante.
Comment gerer proprement le passage de ces objets comme parametres optionnels?
Merci
'############################################################################################
Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As TextBox, Optional pic_XXX As PictureBox)
On Error Resume Next
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If (txt_XXX_Size.Name <> "") Then txt_XXX_Size.Text = myFileLen(txt_XXX.Text)
If (pic_XXX.Name <> "") Then SetPictureIcon pic_XXX, txt_XXX.Text
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
End Function
'############################################################################################
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
xx
"xx" a écrit dans le message de news:
Bonjour
La fonction infra fonctionne, mais je ne la trouve pas tres elegante. Comment gerer proprement le passage de ces objets comme parametres optionnels?
Merci
'############################################################################################ Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As TextBox, Optional pic_XXX As PictureBox) On Error Resume Next '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ If (txt_XXX_Size.Name <> "") Then txt_XXX_Size.Text = myFileLen(txt_XXX.Text) If (pic_XXX.Name <> "") Then SetPictureIcon pic_XXX, txt_XXX.Text '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ End Function '############################################################################################
news:#
"xx" <xx@nospam.net> a écrit dans le message de news:O4C1sQZlDHA.2616@TK2MSFTNGP11.phx.gbl...
Bonjour
La fonction infra fonctionne, mais je ne la trouve pas tres elegante.
Comment gerer proprement le passage de ces objets comme parametres optionnels?
Merci
'############################################################################################
Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As TextBox, Optional pic_XXX As PictureBox)
On Error Resume Next
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If (txt_XXX_Size.Name <> "") Then txt_XXX_Size.Text = myFileLen(txt_XXX.Text)
If (pic_XXX.Name <> "") Then SetPictureIcon pic_XXX, txt_XXX.Text
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
End Function
'############################################################################################
La fonction infra fonctionne, mais je ne la trouve pas tres elegante. Comment gerer proprement le passage de ces objets comme parametres optionnels?
Merci
'############################################################################################ Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As TextBox, Optional pic_XXX As PictureBox) On Error Resume Next '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ If (txt_XXX_Size.Name <> "") Then txt_XXX_Size.Text = myFileLen(txt_XXX.Text) If (pic_XXX.Name <> "") Then SetPictureIcon pic_XXX, txt_XXX.Text '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ End Function '############################################################################################
news:#
Olivier Besson
Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As TextBox = nothing, Optional pic_XXX As PictureBox = nothing) If not txt_XXX_Size.Name is nothing Then txt_XXX_Size.Text myFileLen(txt_XXX.Text) If not pic_XXX.Name is nothing Then SetPictureIcon pic_XXX, txt_XXX.Text
--
Olivier Besson Pour m'ecrire, remplacer le <xx >de mon adresse par <com>. (Je ne lis pas mes mails frequement) To write me, replace <xx> part of my address by <com> (i don't read my mails very frequently).
"xx" a écrit dans le message de news:
Bonjour
La fonction infra fonctionne, mais je ne la trouve pas tres elegante. Comment gerer proprement le passage de ces objets comme parametres
Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As
TextBox, Optional pic_XXX As PictureBox)
On Error Resume Next '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ If (txt_XXX_Size.Name <> "") Then txt_XXX_Size.Text myFileLen(txt_XXX.Text) If (pic_XXX.Name <> "") Then SetPictureIcon pic_XXX, txt_XXX.Text '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ End Function
Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As TextBox
= nothing, Optional pic_XXX As PictureBox = nothing)
If not txt_XXX_Size.Name is nothing Then txt_XXX_Size.Text myFileLen(txt_XXX.Text)
If not pic_XXX.Name is nothing Then SetPictureIcon pic_XXX, txt_XXX.Text
--
Olivier Besson
Pour m'ecrire, remplacer le <xx >de mon adresse par <com>.
(Je ne lis pas mes mails frequement)
To write me, replace <xx> part of my address by <com> (i don't read my mails
very frequently).
"xx" <xx@nospam.net> a écrit dans le message de news:
O4C1sQZlDHA.2616@TK2MSFTNGP11.phx.gbl...
Bonjour
La fonction infra fonctionne, mais je ne la trouve pas tres elegante.
Comment gerer proprement le passage de ces objets comme parametres
Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As
TextBox, Optional pic_XXX As PictureBox)
On Error Resume Next
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If (txt_XXX_Size.Name <> "") Then txt_XXX_Size.Text myFileLen(txt_XXX.Text)
If (pic_XXX.Name <> "") Then SetPictureIcon pic_XXX, txt_XXX.Text
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
End Function
Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As TextBox = nothing, Optional pic_XXX As PictureBox = nothing) If not txt_XXX_Size.Name is nothing Then txt_XXX_Size.Text myFileLen(txt_XXX.Text) If not pic_XXX.Name is nothing Then SetPictureIcon pic_XXX, txt_XXX.Text
--
Olivier Besson Pour m'ecrire, remplacer le <xx >de mon adresse par <com>. (Je ne lis pas mes mails frequement) To write me, replace <xx> part of my address by <com> (i don't read my mails very frequently).
"xx" a écrit dans le message de news:
Bonjour
La fonction infra fonctionne, mais je ne la trouve pas tres elegante. Comment gerer proprement le passage de ces objets comme parametres
Private Function EnhDsp(txt_XXX As TextBox, Optional txt_XXX_Size As
TextBox, Optional pic_XXX As PictureBox)
On Error Resume Next '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ If (txt_XXX_Size.Name <> "") Then txt_XXX_Size.Text myFileLen(txt_XXX.Text) If (pic_XXX.Name <> "") Then SetPictureIcon pic_XXX, txt_XXX.Text '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ End Function
