Hi,
Thankyou reply, here i've listed my code
Imports System.ComponentModel
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Drawing
Imports System.Drawing.Color
Imports System.Collections.Specialized
Namespace GraphicalUtility
<DefaultProperty("PageUrl"), ToolboxData("<{0}:PageLinkNavigation
runat=server></{0}:PageLinkNavigation>")> Public Class PageLinkNavigation
Inherits Control
Implements INamingContainer
Private _PageUrl As String
Private _BackPageUrl As String
Private _PrintPageUrl As String
Private _PageCount As Integer
<Bindable(True), Category("Data"), DefaultValue(0)> Property [PageCount]()
As Integer
Get
Return _PageCount
End Get
Set(ByVal Value As Integer)
_PageCount = Value
End Set
End Property
<Bindable(True), Category("Data"), DefaultValue(1)> Property [PageNo]() As
Integer
Get
Dim o As Object = ViewState("_PageNo")
If o Is Nothing Then
Return 1
Else
Return CInt(ViewState("_PageNo"))
End If
End Get
Set(ByVal strValue As String)
ViewState("_PageNo") = strValue
End Set
End Property
<Bindable(True), Category("UrlList"), DefaultValue("")> Property
[PageUrl]() As String
Get
Return _PageUrl
End Get
Set(ByVal Value As String)
_PageUrl = Value
End Set
End Property
<Bindable(True), Category("UrlList"), DefaultValue("")> Property
[BackPageUrl]() As String
Get
Return _BackPageUrl
End Get
Set(ByVal Value As String)
_BackPageUrl = Value
End Set
End Property
<Bindable(True), Category("UrlList"), DefaultValue("")> Property
[PrintPageUrl]() As String
Get
Return _PrintPageUrl
End Get
Set(ByVal Value As String)
_PrintPageUrl = Value
End Set
End Property
Protected Overrides Sub OnPreRender(ByVal e As EventArgs)
End Sub
Public Event PageChanged As EventHandler
Protected Sub OnFirst(ByVal sender As Object, ByVal e As EventArgs)
PageNo = 1
RaiseEvent PageChanged(sender, e)
End Sub
Protected Sub OnNext(ByVal sender As Object, ByVal e As EventArgs)
If PageNo < PageCount Then
PageNo = PageNo + 1
End If
RaiseEvent PageChanged(sender, e)
End Sub
Protected Sub OnPrev(ByVal sender As Object, ByVal e As EventArgs)
If PageNo > 1 Then
PageNo = PageNo - 1
End If
RaiseEvent PageChanged(sender, e)
End Sub
Protected Sub OnLast(ByVal sender As Object, ByVal e As EventArgs)
Page.Response.Redirect(_PageUrl)
End Sub
Protected Sub OnBack(ByVal sender As Object, ByVal e As EventArgs)
Page.Response.Redirect(_BackPageUrl)
End Sub
Protected Sub OnPrint(ByVal sender As Object, ByVal e As EventArgs)
Page.Response.Redirect(_PrintPageUrl)
End Sub
Protected Sub OnGo(ByVal sender As Object, ByVal e As EventArgs)
Page.Response.Redirect(_PageUrl)
End Sub
Protected Sub OnRefresh(ByVal sender As Object, ByVal e As EventArgs)
Page.Response.Redirect(_PageUrl)
End Sub
Protected Overrides Sub CreateChildControls()
Dim lbtnFirst As LinkButton
Dim lbtnNext As LinkButton
Dim lbtnPrev As LinkButton
Dim lbtnLast As LinkButton
Dim lbtnPrint As LinkButton
Dim lbtnBack As LinkButton
Dim lbtnGo As LinkButton
Dim lbtnRefresh As LinkButton
Dim lblPageNo As Label
Dim lblRpp As Label
Dim txtPageNo As TextBox
Dim txtRpp As TextBox
Controls.Add(New LiteralControl("<TABLE id='Table1' cellSpacing='0'
cellPadding='0' width='640' border='0' height='1'>"))
Controls.Add(New LiteralControl("<TR>"))
Controls.Add(New LiteralControl("<TD WIDTH= '40'>"))
lbtnFirst = New LinkButton()
lbtnFirst.Text = "First"
AddHandler lbtnFirst.Click, AddressOf Me.OnFirst
Controls.Add(lbtnFirst)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl("<TD WIDTH='40'>"))
lbtnNext = New LinkButton()
lbtnNext.Text = "Next"
AddHandler lbtnNext.Click, AddressOf Me.OnNext
Controls.Add(lbtnNext)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl("<TD WIDTH=' 40'>"))
lbtnPrev = New LinkButton()
lbtnPrev.Text = "Prev"
AddHandler lbtnPrev.Click, AddressOf Me.OnPrev
Controls.Add(lbtnPrev)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl(" <TD WIDTH=' 40'>"))
lbtnLast = New LinkButton()
lbtnLast.Text = "Last"
AddHandler lbtnLast.Click, AddressOf Me.OnLast
Controls.Add(lbtnLast)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl("<TD WIDTH=' 40'>"))
lbtnPrint = New LinkButton()
lbtnPrint.Text = "Print"
AddHandler lbtnPrint.Click, AddressOf Me.OnPrint
Controls.Add(lbtnPrint)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl("<TD WIDTH=' 70'>"))
lbtnBack = New LinkButton()
lbtnBack.Text = "Back"
AddHandler lbtnBack.Click, AddressOf Me.OnBack
Controls.Add(lbtnBack)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl("<TD WIDTH= '60' align='right'>"))
lblPageNo = New Label()
lblPageNo.Text = "Page No"
Controls.Add(lblPageNo)
Controls.Add(New LiteralControl(" </TD>"))
Controls.Add(New LiteralControl("<TD WIDTH=' 39'>"))
txtPageNo = New TextBox()
txtPageNo.Width = New Unit(40)
Controls.Add(txtPageNo)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl(" <TD WIDTH='54'> "))
lbtnGo = New LinkButton()
lbtnGo.Text = "Go"
AddHandler lbtnGo.Click, AddressOf Me.OnGo
Controls.Add(lbtnGo)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl("<TD WIDTH='113'>"))
lblRpp = New Label()
lblRpp.Text = "Records Per Page"
Controls.Add(lblRpp)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl(" <TD WIDTH='37'>"))
txtRpp = New TextBox()
txtRpp.Width = New Unit(40)
Controls.Add(txtRpp)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl(" <TD> "))
lbtnRefresh = New LinkButton()
lbtnRefresh.Text = "Refresh"
AddHandler lbtnRefresh.Click, AddressOf Me.OnRefresh
Controls.Add(lbtnRefresh)
Controls.Add(New LiteralControl("</TD>"))
Controls.Add(New LiteralControl(" </TR>"))
Controls.Add(New LiteralControl("</TABLE>"))
End Sub
End Class
End Namespace
regards,
kumar
BobFilipiak <[EMAIL PROTECTED]> wrote:
Without seeing your code my guest is that you need to rebind on postback.
Suggest joining [EMAIL PROTECTED]
Bob Filipiak
A question not asked
is a lost opportunity to learn.
----- Original Message -----
From: "kumar velan" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Friday, January 21, 2005 8:21 AM
Subject: [AspClassicAnyQuestionIsOk] Problem in ASP.Net web custom control
>
> Hi guys,
> I have designed an PageLinkNavigation. This controls has four Linkbuttons
> like that First,Next,Prev, and Last. Which is used to get current page
> number and refresh that page.
> Here my problem is i got that page number but that page has not being to
> refresh.
> Please let me clarify as early as possible.
> Thanking you,
> kumar
>
>
>
> ---------------------------------
> Do you Yahoo!?
> Yahoo! Mail - You care about security. So do we.
>
> [Non-text portions of this message have been removed]
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
>
---------------------------------
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
