shadowsky的专栏
登录
注册
全站
当前博客
空间
博客
好友
相册
留言
用户操作
[即时聊天]
[发私信]
[加为好友]
狗狗
ID:shadowsky
共
18500
次访问,排名
6455
好友
0
人,关注者
0
人
shadowsky的文章
原创 13 篇
翻译 0 篇
转载 0 篇
评论 5 篇
最近评论
kicck:
我晕。。怎么是个B啊。。。。。看不懂B,只会C的啊。。。有没有啊。。楼主
superdullwolf:
不错!
shadow:
不小心找到这里来,又是同名的.
老了:
就这点代码不写注释了,你一句一句调试才明白啊!这样才理解的彻底. 长篇的代码我就注释了 哈 (^_^)
baseyueliang:
应该是动态加载吧,但是已经加载过子的节点怎么没有标注啊
另外,请问TreeView1_TreeNodePopulate是什么事件啊//啥注释的没有,老了还这么懒:)
文章分类
ASP
(RSS)
ASP.net (2.0) For VB.net
(RSS)
MASM (汇编 32 bit )
(RSS)
VisualBasic 6.0
(RSS)
Winforms For VB.Net 2005
(RSS)
收藏
相册
帅是一种罪
存档
2007年06月(1)
2007年04月(3)
2006年11月(5)
2006年06月(3)
2005年03月(1)
软件项目交易
订阅我的博客
ASP.net 2.0 自定义控件的开发之数据分页 第三章
收藏
新一篇: ASP.net 2.0 自定义控件的开发之数据分页 第四章
|
旧一篇: ASP.net 2.0 自定义控件的开发之数据分页 第二章
控件的属性及事件定义
Private
Shared
ReadOnly
EventibGotoPageClick
As
New
Object
()
Private
Shared
ReadOnly
EventlbGotoPageClick
As
New
Object
()
Private
Conn
As
SqlConnection
Private
_StoredProcedureName
As
String
Private
_ControlToDataBind
As
String
Private
_GoToStyle
As
StyleGoTo
=
StyleGoTo.LinkButton
Private
intPageCount
As
Int32
=
0
Private
intRecordCount
As
Int32
=
0
Private
intPageSize
As
Int32
Private
_DefaultImageUrl
As
String
Private
_HoverImageUrl
As
String
Private
_PressedImageUrl
As
String
Private
_controlToPaginat
As
Control
Private
labPageInfo
As
Label
Private
labPageInfoText_01
As
Label
Private
labPageInfoText_02
As
Label
Private
labPageInfoText_03
As
Label
Private
labPageInfoText_04
As
Label
Private
txtPageSize
As
TextBox
Private
txtPageIndex
As
TextBox
Private
ibGotoPage
As
ImageButton
Private
lbGotoPage
As
LinkButton
Private
lbFirstPage
As
LinkButton
Private
lbPrevPage
As
LinkButton
Private
lbNextPage
As
LinkButton
Private
lbLastPage
As
LinkButton
属性定义
#Region
"属性定义"
'
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
<
_
Bindable(
True
), _
Category(
"
PageInfo
"
), _
DefaultValue(
""
), _
Description(
"
设置页的信息(例如:当前 100 条记录...).
"
) _
>
_
Public
Property PageInfoText()
Property
PageInfoText()
As
String
Get
EnsureChildControls()
Return
labPageInfo.Text
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
labPageInfo.Text
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
PageInfo
"
), _
DefaultValue(
""
), _
Description(
"
设置显示 每页 字符.
"
) _
>
_
Public
Property PageInfoText_01()
Property
PageInfoText_01()
As
String
Get
EnsureChildControls()
Return
labPageInfoText_01.Text
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
labPageInfoText_01.Text
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
PageInfo
"
), _
DefaultValue(
""
), _
Description(
"
设置显示 条记录 字符.
"
) _
>
_
Public
Property PageInfoText_02()
Property
PageInfoText_02()
As
String
Get
EnsureChildControls()
Return
labPageInfoText_02.Text
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
labPageInfoText_02.Text
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
PageInfo
"
), _
DefaultValue(
""
), _
Description(
"
设置显示 转到 字符.
"
) _
>
_
Public
Property PageInfoText_03()
Property
PageInfoText_03()
As
String
Get
EnsureChildControls()
Return
labPageInfoText_03.Text
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
labPageInfoText_03.Text
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
PageInfo
"
), _
DefaultValue(
""
), _
Description(
"
设置显示 页 字符.
"
) _
>
_
Public
Property PageInfoText_04()
Property
PageInfoText_04()
As
String
Get
EnsureChildControls()
Return
labPageInfoText_04.Text
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
labPageInfoText_04.Text
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Style
"
), _
DefaultValue(
""
), _
Description(
"
页大小 Textbox 边框的宽度.
"
) _
>
_
Public
Property TextboxBorderWidth()
Property
TextboxBorderWidth()
As
Unit
Get
EnsureChildControls()
Return
txtPageSize.BorderWidth
End
Get
Set
(
ByVal
value
As
Unit)
EnsureChildControls()
txtPageSize.BorderWidth
=
value
txtPageIndex.BorderWidth
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Style
"
), _
DefaultValue(
""
), _
Description(
"
页大小 Textbox 边框的颜色.
"
) _
>
_
Public
Property TextboxBorderColor()
Property
TextboxBorderColor()
As
System.Drawing.Color
Get
EnsureChildControls()
Return
txtPageSize.BorderColor
End
Get
Set
(
ByVal
value
As
System.Drawing.Color)
EnsureChildControls()
txtPageSize.BorderColor
=
value
txtPageIndex.BorderColor
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Style
"
), _
DefaultValue(
""
), _
Description(
"
页大小 Textbox 的SkinID.
"
) _
>
_
Public
Property TextboxSkinID()
Property
TextboxSkinID()
As
String
Get
EnsureChildControls()
Return
txtPageSize.SkinID
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
txtPageSize.SkinID
=
value
txtPageIndex.SkinID
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Style
"
), _
DefaultValue(
""
), _
Description(
"
设置转到的的风格.
"
) _
>
_
Public
Property GoToStyle()
Property
GoToStyle()
As
StyleGoTo
Get
EnsureChildControls()
Return
Me
._GoToStyle
End
Get
Set
(
ByVal
value
As
StyleGoTo)
EnsureChildControls()
Me
._GoToStyle
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Style
"
), _
DefaultValue(
""
), _
Description(
"
设置转到的按钮默认图片.
"
) _
>
_
Public
Property DefaultImageUrl()
Property
DefaultImageUrl()
As
String
Get
EnsureChildControls()
Return
ibGotoPage.ImageUrl
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
ibGotoPage.ImageUrl
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Style
"
), _
DefaultValue(
""
), _
Description(
"
设置当鼠标指针在按钮上时显示的图片.
"
) _
>
_
Public
Property HoverImageUrl()
Property
HoverImageUrl()
As
String
Get
EnsureChildControls()
Return
Me
._HoverImageUrl
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
Me
._HoverImageUrl
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Style
"
), _
DefaultValue(
""
), _
Description(
"
设置当鼠标按下时显示的图片.
"
) _
>
_
Public
Property PressedImageUrl()
Property
PressedImageUrl()
As
String
Get
EnsureChildControls()
Return
Me
._PressedImageUrl
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
Me
._PressedImageUrl
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Size
"
), _
DefaultValue(
""
), _
Description(
"
设置 PageSize 文本框宽度.
"
) _
>
_
Public
Property PageSizeWidth()
Property
PageSizeWidth()
As
Unit
Get
EnsureChildControls()
Return
txtPageSize.Width
End
Get
Set
(
ByVal
value
As
Unit)
EnsureChildControls()
txtPageSize.Width
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Size
"
), _
DefaultValue(
""
), _
Description(
"
设置 PageIndex 文本框宽度.
"
) _
>
_
Public
Property PageIndexWidth()
Property
PageIndexWidth()
As
Unit
Get
EnsureChildControls()
Return
txtPageIndex.Width
End
Get
Set
(
ByVal
value
As
Unit)
EnsureChildControls()
txtPageIndex.Width
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Size
"
), _
DefaultValue(
""
), _
Description(
"
设置 转到 按钮的宽度.
"
) _
>
_
Public
Property ibGotoPageWidth()
Property
ibGotoPageWidth()
As
Unit
Get
EnsureChildControls()
Return
ibGotoPage.Width
End
Get
Set
(
ByVal
value
As
Unit)
EnsureChildControls()
ibGotoPage.Width
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Size
"
), _
DefaultValue(
""
), _
Description(
"
设置 转到 按钮的高度.
"
) _
>
_
Public
Property ibGotoPageHeight()
Property
ibGotoPageHeight()
As
Unit
Get
EnsureChildControls()
Return
ibGotoPage.Height
End
Get
Set
(
ByVal
value
As
Unit)
EnsureChildControls()
ibGotoPage.Height
=
value
End
Set
End Property
<
_
Bindable(
True
), _
Category(
"
Text
"
), _
DefaultValue(
""
), _
Description(
"
设置 转到 链接按钮的文字.
"
) _
>
_
Public
Property lbGotoPageText()
Property
lbGotoPageText()
As
String
Get
EnsureChildControls()
Return
lbGotoPage.Text
End
Get
Set
(
ByVal
value
As
String
)
EnsureChildControls()
lbGotoPage.Text
=
value
End
Set
End Property
<
_
&