知识大全 VB.NET实现DataList横向数据交替变色

Posted 2022-07-16 知

篇首语：业精于勤，荒于嬉。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 VB.NET实现DataList横向数据交替变色相关的知识，希望对你有一定的参考价值。

VB.NET实现DataList横向数据交替变色 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　昨天群里一个网友在说交替行变色的问题我一看这很简单啊不就是设置一下交替项的背景色不就行了吗?本身DataList他的样式也提供设置啊不会吗?但是他给我说了他数据是设置一行显示N条数据的所以如果说设置了那个交替项的背景色的话根本就没用这样设置了后变成对项起作用了就是说一行有N项然后那个交替色就变成在这N项当中交替了

　　啊!看来我把问题看简单了!当时我想好像很少遇到过要不自己试试! 倒因为最近心情很压抑心情不太好烦没多少心情认真去思考解决方式用常规自己能想到的几种解决都无法实现解决很晕然后逆就索性不去想了晚上听完广播后才又想起我要考虑这个问题呵呵只用了分钟时间就想到了这个解决方式然后逆又用了分钟时间去考证是否可行今天早上来一摆弄就可以起了呵呵!

　　废话就不多说了这个方法也是我唯一想到的方法如果您有什么更好的方法您也可以在这里给我提出非常感谢!

<%@ Page Language= vb AutoEventWireup= false Codebehind= WebForm aspx vb Inherits= WebApplication WebForm %><!DOCTYPE HTML PUBLIC //W C//DTD HTML Transitional//EN ><HTML><HEAD><title>WebForm </title><meta content= Microsoft Visual Studio NET name= GENERATOR ><meta content= Visual Basic NET name= CODE_LANGUAGE ><meta content= JavaScript name= vs_defaultClientScript ><meta content= //schemas microsoft /intellisense/ie name= vs_targetSchema ></HEAD><body MS_POSITIONING= GridLayout ><form id= Form method= post runat= server ><asp:datalist id= DataList style= Z INDEX: ; LEFT: px; POSITION: absolute; TOP: px runat= server RepeatDirection= Horizontal RepeatColumns= Width= px ><ItemTemplate><asp:Label ID= lblmsg Runat=server Text= <%# DataBinder Eval(Container DataItem id ) ToString() %> ></asp:Label></ItemTemplate><AlternatingItemTemplate><asp:Label ID= Label Runat=server Text= <%# DataBinder Eval(Container DataItem id ) ToString() %> ></asp:Label></AlternatingItemTemplate></asp:datalist></form></body></HTML>

Imports SystemImports System DataImports System Data oledb

Public Class WebForm Class WebForm Inherits System Web UI Page

Web 窗体设计器生成的代码#Region Web 窗体设计器生成的代码

该调用是 Web 窗体设计器所必需的 <System Diagnostics DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()

End SubProtected WithEvents DataList As System Web UI WebControls DataList

注意: 以下占位符声明是 Web 窗体设计器所必需的不要删除或移动它 Private designerPlaceholderDeclaration As System Object

Private Sub Page_Init()Sub Page_Init(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Init CODEGEN: 此方法调用是 Web 窗体设计器所必需的不要使用代码编辑器修改它 InitializeComponent()End Sub

#End RegionDim conn As OleDbConnectionDim i As Integer

Private Sub Page_Load()Sub Page_Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load 在此处放置初始化页的用户代码conn = New OleDbConnection( Provider=Microsoft Jet OLEDB ; & Data Source= & Server MapPath( data/link mdb ))Dim cmd As New OleDbDataAdapter( select top id jj from link conn)Dim ds As New DataSetcmd Fill(ds tab )

DataList DataSource = ds Tables( tab )DataList DataBind()End Sub

Private Sub DataList _ItemDataBound()Sub DataList _ItemDataBound(ByVal sender As Object ByVal e As System Web UI WebControls DataListItemEventArgs) Handles DataList ItemDataBoundi = i + If i > And i <= Thene Item BackColor = Color BlueEnd IfIf i >= Theni = End IfEnd SubEnd Class

　　再补充一下这里的i> and i<= 这个我刚才没讲清楚可能您有点困惑呢!

cha138/Article/program/net/201311/15144