AlphaNavigator?

分享于 

3分钟阅读

Web开发

  繁體

Sample Image - AlphaNavigator.png

介绍

在浏览代码项目时,我通过( 提供了alphanavigation控件的控件) 在文章中运行。 我觉得这太棒了 ! 一个客户请求了一个类似这样的功能。 我最初的想法是使用一个简单的DataGrid,并自己处理一切。 但是拖放这个控制音太好,不能用 true。 我下载了控件,并尝试创建一个演示项目来使用它。 很快,我看到控件似乎需要打开一个连接,然后它没有关闭。 我试着关闭它,它。 我在控件后面读了一些消息,并决定它可以能是一个好机会来学习自己的自定义控件。 waaalaa。"。"。这是我的创作,真的没有多少micahbowerbank的创作。"。 也许这里还有小参考。 还有许多功能,你可以决定添加到控件中。"。"。然后我说明了控件的基本部分。 请在你的评论中,因为这是我的第一个控制 !

使用代码

下面是使用控件所需的代码示例。 首先引用 AlphaNavigator.dll,,然后将它的添加到你的工具箱中。 接下来将新实例拖到页上,并在 properties/events panel中设置 ItemCommand 事件的NAME。

PrivateSub Page_Load(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) HandlesMyBase.Load
 'Put user code to initialize the page hereIfNot IsPostBack Then anUserBind()
 EndIfEndSubPrivateSub anUserBind()
 Dim SQL_COMMAND AsString SQL_COMMAND = "SELECT DISTINCT SUBSTRING(UserName,1,1)" SQL_COMMAND += "FROM USERS ORDER BY SUBSTRING(UserName,1,1)"Dim myConnection AsNew OleDbConnection("SQL CONNECTION STRING HERE")
 Dim myCommand AsNew OleDbCommand(SQL_COMMAND, myConnection)
 Dim myAdapter AsNew OleDbDataAdapter(myCommand)
 Dim myDS AsNew DataSet
 myAdapter.Fill(myDS)
 AlphaNavigator1.DataSource = myDS.Tables(0).DefaultView
 AlphaNavigator1.DataBind()EndSubPrivateSub anClick(ByVal sender As System.Object, ByVal e As _
 System.Web.UI.WebControls.CommandEventArgs) _
 Handles AlphaNavigator1.ItemCommand
 Dim Letter AsString = e.CommandArgumentEndSub

控件本身

控件本身最终要比原始版本复杂得多。 如果你知道制作控制,我做了什么,我应该做些什么,我希望? 如果你发现我做了错误,我真的很感谢你可以发邮件给我,我知道这个控件是一个学习体验。

我难以使用控件中的链接按钮来使用相同的字体,但是我觉得这可以使用继承。

另一件事,现在它的工作方式,你不能设置每个字母之间空间的大小。 我考虑添加这个特性,但现在这将会。 祝你好运


MAKE  Alpha  
相关文章