Creating Function in classes

Question

1.00/5 (1 vote)

See more:

Hi I have created a navigation method on form. It is simply fetch the data from SqlDb and shows in textboxes on form.It is working fine for code behind form..

I want to create a different class for this function and want to call that function from class.
My issues is ...How write a Function in class which can be used in my form , how it is goin to work for textboxes on my form for the same..

Function is as below:----

VB

Private Sub Nav()
        t1.Text = ds.Tables("Customer").Rows(i).Item(0)
        t2.Text = ds.Tables("Customer").Rows(i).Item(1)
        t3.Text = ds.Tables("Customer").Rows(i).Item(2)
End Sub

This is when I write it for my form class....how to write it in class. how to define it for texboxes on form...????

Plz help.....

Posted 27-May-13 1:12am

Aman.Jen

Updated 27-May-13 1:28am

v3

Add a Solution

Comments

[no name] 27-May-13 7:27am

You would create an interface, pass the form instance to your other class or pass the controls to your other class.

Aman.Jen 27-May-13 7:33am

Thnx for replying ....Its a single form application

3 solutions

Solution 1

Below is the sample code for your reference. You need to pass textbox control as parameter.

Imports System.Data
Imports System.Configuration
Imports System.Linq
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Xml.Linq

Namespace WebApplication3
Public Class Class1
Public Sub Nav(t1 As TextBox, t2 As TextBox, t3 As TextBox, ds As DataSet)
t1.Text = ds.Tables("Customer").Rows(0).ItemArray(0)
t2.Text = ds.Tables("Customer").Rows(0).ItemArray(1)
t3.Text = ds.Tables("Customer").Rows(0).ItemArray(2)
End Sub
End Class
End Namespace

Let me know if you need any further assistance.

Posted 27-May-13 1:32am

Mahesh Bailwal

Comments

Aman.Jen 27-May-13 8:03am

Thanx for replying ...but how wud i write like show next record on button click event..how will call that fuction and wat argument shud be passed then to that function..same for showing previous record

Solution 2

SQL

You need to keep index of current record in ViewState.
To show next record increment this index by one and for privious decrease by one.
Whenever you call function  defined in class file you need to pass index along with other parameters.

If you are facing any problem with syntax then let me know.

Posted 27-May-13 2:18am

Mahesh Bailwal

Comments

Aman.Jen 27-May-13 8:32am

I am stuck here ....:( this woking fine i define funtion in same form class but not working with class
i = 0
nv.Nav()
MessageBox.Show("First Record")

-------------------------------------
If i = len - 1 Then
MessageBox.Show("This ia a Last Record")

Else
i = i + 1
nv.Nav()
End If

Mahesh Bailwal 27-May-13 8:44am

Is it web application or windows application as your using MessageBox.Show, which only works for windows application

Aman.Jen 27-May-13 9:04am

Windows......

Mahesh Bailwal 27-May-13 9:46am

are you getting some error? what exactly happening?

Aman.Jen 28-May-13 1:22am

I have written on Btn click event as below...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If i = 0 Then
nv.Nav(t1.Text, t2.Text, t3.Text, t4.Text, t5.Text, t6.Text, t7.Text, t8.Text, t9.Text, t10.Text, ds)
End If
End Sub

-------its shwoing error:--value type cannot be converted to string

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Mahesh Bailwal · Accepted Answer · 2013-05-27T19:45:00

Solution 3

update your function test it.

VB

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If i = 0 Then
            nv.Nav(t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, ds)
        End If
    End Sub

Posted 27-May-13 19:45pm

Mahesh Bailwal

Comments

Aman.Jen 28-May-13 2:09am

yups..its working for first record....but for next record showing same record

here's the code..
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If i = len - 1 Then
MessageBox.Show("This ia a Last Record")
Else
i = i + 1
nv.Nav(t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, ds)
End If
End Sub

Mahesh Bailwal 28-May-13 2:15am

You need pass index which is i as parameter to the function. Then use it inside function to fetch vaues like below

ds.Tables("Customer").Rows(i).ItemArray(0)

Please also mark this question resolved if it works for you.

Aman.Jen 28-May-13 2:24am

Still showing just one record......
Public Sub Nav(ByVal t1 As TextBox, ByVal t2 As TextBox, ByVal t3 As TextBox, ByVal t4 As TextBox, ByVal t5 As TextBox, ByVal t6 As TextBox, ByVal t7 As TextBox, ByVal t8 As TextBox, ByVal t9 As TextBox, ByVal t10 As TextBox, ByVal ds As DataSet) Implements MyInterface.Nav

t1.Text = ds.Tables("Customer").Rows(i).Item(0)
t2.Text = ds.Tables("Customer").Rows(i).Item(1)
t3.Text = ds.Tables("Customer").Rows(i).Item(2)
t4.Text = ds.Tables("Customer").Rows(i).Item(3)
t5.Text = ds.Tables("Customer").Rows(i).Item(4)
t6.Text = ds.Tables("Customer").Rows(i).Item(5)
t7.Text = ds.Tables("Customer").Rows(i).Item(6)
t8.Text = ds.Tables("Customer").Rows(i).Item(7)
t9.Text = ds.Tables("Customer").Rows(i).Item(8)
t10.Text = ds.Tables("Customer").Rows(i).Item(9)

End Sub

Mahesh Bailwal 28-May-13 2:28am

You need pass i as parameter like below

nv.Nav(t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, ds,i)

Aman.Jen 28-May-13 2:39am

Thank you SOOOOOOOOOOOOOOOOOOOOOOO much Bro....:)............Done!!!!!!!!!!!!!

Aman.Jen 28-May-13 2:41am

can we extend it to Insert Update and delete....

Aman.Jen 28-May-13 2:43am

here's my code..... on form

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd.Connection = cn
cn.Open()
'cmd.CommandText = "Select * From Customer"
cmd.CommandText = "Insert into Customer(Cust_Num,Cust_Name,Cust_Add,City,State,Pincode,Country,Ph_Res,Mob,email) Values('" & t1.Text & "' , '" & t2.Text & "' , '" & t3.Text & "','" & t4.Text & "','" & t5.Text & "','" & t6.Text & "','" & t7.Text & "','" & t8.Text & "','" & t9.Text & "','" & t10.Text & "')"
cmd.ExecuteNonQuery()
cn.Close()
t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = ""
t5.Text = ""
t6.Text = ""
t7.Text = ""
t8.Text = ""
t9.Text = ""
t10.Text = ""
MessageBox.Show("Data Entered", "Customer Detail")

End Sub