generic function containing a textbox

[vb_student]

Hello

I have got about 14 textboxes which use similar routines, the routines read and write to the textboxes the same way, the only difference is these routines is the name of the textbox.

is it possible for me to create a generic routine which will manipulate the textboxes in the same way.

e.g i have 5 textboxes,

footext1, footext2, footext3, footext4 & footext5

now the routine is say

footext1_change()
 
      uppervalue = 100
       lowervalue = footext2.text
       if ((footext1.text<uppervalue ) and (footext1.text>lowervalue)) then
              error_flag=true
       else
               footext1 = 30
                error_flag = false
       end if
 
end sub

and for text2 it is

footext2_change()
 
      uppervalue = 100
lowerrvalue = footext3.text
       if ((footext2.text<uppervalue ) and (footext2.text>lowervalue)) then
              error_flag=true
       else
               footext2 = 30
                error_flag = false
       end if
 
end sub

with 15 textboxes i would have to repeat the code 15 times
now if i had some sort of textbox i could have one routine and call it from every textboxes change method

something like

private function call_common_routine(uppervalue,lowervalue,currenttextbox)
       if ((currenttextbox<uppervalue) and (currenttextbox>lowervalue)) then
              error_flag=true
       else
               currenttextbox = 30
                error_flag = false
       end if
end function

footext2_change()

uppervalue = 100
lowerrvalue = footext3.text
currenttextbox = footext2.text
call_common_routine(uppervalue,lowervalue,currenttextbox)
end sub
[/Highlight]


is such a routine possible, passing textboxes, the way i do it it just copies the textbox contents to variable and passes it, i wanted to pass the current textbox "handle(?)" to the common routine.

[Pradeep1210]

It's better you make them a control array so that only one functio will work for all of them.

Pradeep

[Static]

or create a sub

Private Sub SetErrorFlag(lwrtxt As TextBox, txt As TextBox)
    uppervalue = 100
       lowervalue = lwrtxt.Text
       If ((txt.Text < uppervalue) And (txt.Text > lowervalue)) Then
              error_flag = True
       Else
               txt = 30
                error_flag = False
       End If
End Sub

then in footext1_change

SetErrorFlag footext2,footext1

[Pradeep1210]

If yoou make them a control array, this is how it would work:

Private Sub footext1_Change(Index As Integer)
      uppervalue = 100
       lowervalue = footext2.Text
       If ((footext1(Index).Text < uppervalue) And (footext1(Index).Text > lowervalue)) Then
              error_flag = True
       Else
               footext1(Index) = 30
                error_flag = False
       End If
 
End Sub

Pradeep

[vb_student]

thanks for the replies, i should have used the control arrays

i have got lots of code and i think i need to stick with the non control array

i liked statics method.

so i can pass textboxes like so

Private Sub SetErrorFlag(lwrtxt As TextBox, txt As TextBox)
    uppervalue = 100
       lowervalue = lwrtxt.Text
       If ((txt.Text < uppervalue) And (txt.Text > lowervalue)) Then
              error_flag = True
       Else
               txt = 30
                error_flag = False
       End If
End Sub

i guess then i can call the function like so

seterrorflag(footext1.text,footext2.text)

why do i need to create a sub, would not a function do the same thing?

i mean what is wrong with
[Highlight=VB]

Private function SetErrorFlag(lwrtxt As TextBox, txt As TextBox)
    uppervalue = 100
       lowervalue = lwrtxt.Text
       If ((txt.Text < uppervalue) And (txt.Text > lowervalue)) Then
              error_flag = True
       Else
               txt = 30
                error_flag = False
       End If
End function

[Pradeep1210]

When a function is not returning anything it is equivalent to a Sub.

[vb_student]

so the only difference between a function and a sub is that a function can return a value whereas a sub cannot.

and i could do

Private function SetErrorFlag(lwrtxt As TextBox, txt As TextBox)

or

Private sub SetErrorFlag(lwrtxt As TextBox, txt As TextBox)

[Static]

correct both will work.. but if you need to return a value, you would use function

[penagate]

vb_student, didn't you start a couple of threads a while back on the difference between subs and functions?

Anyway, a sub IS a function, but the result is handled internally by VB.

[vb_student]

thanks for the replies penagate

i think i did, i had forgotten the difference for a while