In A Funtion

[MRRX8]

Hi Everybody

 

Im fairly new to .net i am after some help with a function. I have put this code into a click procedure however what i want it to do is put it in a function or class so i can call it whenever i like. This is the code

 

   Dim Litem As New ListViewItem
       Dim totea As Integer
       Dim ctrl As Control
       Dim iCtrl, iChk, iTotalEA As Integer
       Dim bb() As BoxedBird

       For iCtrl = 0 To Panel1.Controls.Count - 1
           ctrl = Panel1.Controls(iCtrl)
           If ctrl.GetType Is GetType(System.Windows.Forms.TextBox) Then
               ReDim Preserve bb(iCtrl)
               bb(iCtrl).SIZE = ((CType(ctrl, TextBox).Tag))
               iChk = modFunctions.CheckTextBoxForString((CType(ctrl, TextBox).Text))
               bb(iCtrl).Boxed = iChk
               iTotalEA = modFunctions.CalculateTotalBirdEach(iChk, (CType(ctrl, TextBox).Tag))
               bb(iCtrl).bTotal = iTotalEA
               totea = totea + iTotalEA
           End If
       Next
       'Populate whats in the array iterate 
       Dim i As Integer
       Dim LItem1 As ListViewItem

       For i = 0 To bb.GetUpperBound(0)
           LItem1 = lvBoxed.Items.Add(bb(i).SIZE)
           LItem1.SubItems.Add(bb(i).Boxed)
           LItem1.SubItems.Add(bb(i).bTotal)
       Next


       Litem.ForeColor = (Color.Green)
       Litem.Text = UCase(dsf.sSize)
       Litem.SubItems.Add(dsf.dWeight)
       Litem.SubItems.Add(dsf.iCount)
       Litem.SubItems.Add(dsf.dAvSizeWeight)
       Litem.SubItems.Add(dsf.dBoxedWeight)
       Litem.SubItems.Add(dsf.dCutUpSizeTotalKg)
       Litem.SubItems.Add(dsf.dTotalSizeMaryland)
       Litem.SubItems.Add(dsf.dTotalSizeWholeBreast)
       Litem.SubItems.Add(dsf.dTotalSizeWings)
       Litem.SubItems.Add(dsf.dTotalSizeBRFillet)

       Litem.ImageIndex = 0
       lvStockDetails.Items.Add(Litem)

 

Only to put this code in a function i have no idea how to do it ive tried several ways unsuccessfully, not sure if i can have an array in a fucntion or not. I would like it if somebody could please help me writing this as a function

 

thank you

 

MRRX8

[mskeel]

You should be able to put the code in a sub in the same file as the click event.

 

private sub MeaningfulNameForWhatYourCodeDoes()
 ''Put your code here
End Sub
'
'
'You click event, in the same file, in the same class
Private Sub Click_method(e as event args, sender as Object)
  MeaningfulNameForWhatYourCodeDoes()
End Sub

 

Unless there is a catch that I missed, that should work just fine. Let me know if that works or not and what errors you get if it doesn't. As far as moving your code to a new class, that doesn't really make sense becuase you are accessing controls and you'll need to access them from within the class.

[MRRX8]

Thank you for your reply

 

What i dont really understand is the arguments that you are passing in the function. I thought that i would need to pass down all the controls and the array to the function this is what is confusining me. Hopefully that makes sense. I look forward to a response

[mskeel]

If the method you create is in the same class as the control you will not need to pass them as arguments to the method.

 

The controls are declared globally within the scope of the form class. That means any method in that class will have access to them. If you are using VS2003 the controls will be declared in the region that says windows form generated code. If you are using VS2005 they are in a seperate file and uses a new feature called partial classes to spread a class through multiple files. The concept is the same though.

 

The arguments in the function (such as the button click function) are scoped only to that function. That means that you can only see them while you are within that function.

 

This article discusses variable scope in Visual Basic. That should help clarify things for you I think.

[georgepatotk]

Public Class Form1

  Friend TextBox1 as New Textbox

  Private Sub Button1_Click.....
         ShowToHer("I love you")
  End Sub

  Private Function ShowToHer(inMessage as String) as Boolean
     Textbox1.Text = "Honey, " & inMessage
  End Function

End Class

 

is this able to gain ur understanding? hope it helps.