There is no need to keep the Radiobutton selection status, I have time to add JS, so I will have a horse, it is very simple, of course, there will be a problem, if I find a problem, I will change, write problems, write questions Below, thank you, I haven't changed recently, I have to be a big project, I hope to understand! There is always someone to choose anything, now there is a multi-selection and radio, no problem, of course, you can take two to fight one, you can change it! Imports System.comPonentModelimports System.Web.uiImports System.drawingImports System.Webimports System.Web.ui.WebControls
")> _Public Class RadioBoxDataGrid Inherits System.Web.UI.WebControls.DataGrid # Region "Proton pa te" #Region "Pro" 亲 ラ ス から から 表示 "
_ Public Overrides Property AutoGenerateColumns () As Boolean Get Return MyBase.AutoGenerateColumns End Get Set (ByVal Value As Boolean) MyBase.AutoGenerateColumns = False End Set End Property
_ Public Shadows Property DataMember () As String Get Return MyBase.DataMember End Get Set (ByVal Value As String) MyBase.DataMember = Value End Set End Property
_ Public Overrides Property AllowCustomPaging () As Boolean Get Return MyBase.AllowCustomPaging End Get Set (ByVal Value As Boolean) MyBase.AllowCustomPaging = Value End Set End Property
_ Public Overrides Property AllowPaging () As Boolean Get Return MyBase.AllowPaging End Get Set (ByVal Value As Boolean) MyBase.AllowPaging = Value End Set End Property _ Public Overrides Property AllowSorting () As Boolean Get Return MyBase.AllowSorting End Get Set (ByVal Value As Boolean) MyBase.AllowSorting = Value End Set End Property
_ Public Overrides Readonly Property AlternatingItemStyle () AS TableItemStyle Get Return mybase.alternatingItemStyle End Get Property
_ Public Overrides Property BackColor () AS Color Get Return MyBase.backColor End Get Set (Byval Value As Color) MyBase.BackColor = Value End SET End Property
_ Public Overrides Property BackImageUrl () As String Get Return MyBase.BackImageUrl End Get Set (ByVal Value As String) MyBase.BackImageUrl = Value End Set End Property
_ Public Overrides Property BorderColor () AS Color Get Return MyBase.BorderColor End Get Set (Byval Value As Color) MyBase.BorderColor = Value End SET End Property
_ Public Overrides Property BorderStyle () As BorderStyle Get Return MyBase.BorderStyle End Get Set (ByVal Value As BorderStyle) MyBase.BorderStyle = Value End Set End Property _ Public Overrides Property BorderWidth ( ) As unit get return mybase.borderwidth end set (byval value as unit) mybase.borderwidth = value end vendy
_ Public overrides Property Cellpadding () AS Integer Get Return MyBase.cellpadding End Get Set (Byval Value As Integer) MyBase.cellpadding = Value End SET End Property
_ public overrides property cellspacing () AS integer Get return mybase.cellspacing end set (Byval value as integer) mybase.cellspacing = value End vendy
_ Public Overrides Readonly Property Column () AS DataGridColumnCollection Get Return MyBase.columns End Get Property
_ public overrides property edititemindex () AS integer get return mybase.edititemindex end set (byval value as integer) mybase.edititemindex = value end endprty
_ Public Overides Readonly Property EditItemStyle Get Return MyBase.editItemStyle End Get Property
_ Public Overrides Property Enabled () As Boolean Get Return MyBase.Enabled End Get Set (ByVal Value As Boolean) MyBase.Enabled = Value End Set End Property _ Public Overrides ReadOnly Property FooterStyle () AS TableItemStyle Get Return mybase.footerstyle End Get End Property
_ Public Overrides Property Forecolor () AS Color Get Return MyBase.ForeColor End Get Set (Byval Value As Color) MyBase.ForeColor = Value End End Property
_ public overrides property gridlines () AS GridLines Get Return mybase.gridlines end set (Byval value as gridlines) mybase.gridlines = value End set entry
_ Public Overrides Readonly Property Headerstyle () AS TableItemStyle Get Return MyBase.Headerstyle End Get Property
_ public overrides property height () as unit get return mybase.Height End get set (byval value as unit) mybase.height = value End set
_ Public Overrides Property HorizontalAlign () As HorizontalAlign Get Return MyBase.HorizontalAlign End Get Set (ByVal Value As HorizontalAlign) MyBase.HorizontalAlign = Value End Set End Property
_ Public Overrides ReadOnly Property ItemStyle () As TableItemStyle Get Return MyBase.ItemStyle End Get End Property _ Public Overrides ReadOnly Property PagerStyle () As DataGridPagerStyle Get Return MyBase.PagerStyle End Get End Property
_ public overrides prot _ () AS integer get return mybase.pageSize end set (byval value as integer) mybase.pageSize = value end vend
_ Public Overrides Property Showfooter () AS Boolean Get Return MyBase.ShowFooter End Get Set (Byval Value As Boolean) MyBase.ShowFooter = Value End Set End Property
_ Public Overrides Property Showheader () AS Boolean Get Return MyBase.Showheader End Get Set (Byval Value As Boolean) MyBase.ShowHeader = Value End End Property
_ public overrides property visible () as boolean get return mybase.visible end set (byval value as boolean) mybase.visible = value end vend @
_ public overrides protection width () as unit get return mybase.width end set (byval value as unit) mybase.width = value end vend w @ w
_ Public Overrides Property CssClass () As String Get Return MyBase.CssClass End Get Set (ByVal Value As String) MyBase.CssClass = Value End Set End Property # End Region _ Public ReadOnly Property SelectedItemRadio () As Integer Get If Not IsDesignMode () Then Return GetRdioBoxState () Else Return -1 End If End Get End Property _ Public Property HasCheckBox () As Boolean Get Return viewstate (" HasCheckBox ") End Get Set (ByVal Value As Boolean) viewstate (" HasCheckBox ") = Value End Set End Property # End Region
Private function isdesignmode () as boolean if (httpcontext.current is nothing) THEN RETURN TRUE ELSE RETURN FALSE END IF END FUNCTION
Protected Overrides Sub Render (Byval Writer As System.Web.ui.htmlTextwriter) DIM TCOLUMN As TemplateColumn Dim TmparrayList As Hashtable
If Me.Columns.Count = 0 Then tColumn = New TemplateColumn tColumn.HeaderText = "selected from Ze" tColumn.HeaderStyle.Wrap = False tColumn.HeaderStyle.Width = Unit.Pixel (35) tColumn.ItemStyle.Wrap = False tColumn.ItemStyle. Horizontalalign = horizontalalign.center me.columns.addat (0, tcolumn) Endiff
If me.hascheckbox = true kil qlumns (0) .visible = true else me.columns (0) .visible = false endiffle.Ist = new hashtable tmparrayList.add ("z-index", style.Item ("z -Index ")) TMPARRAYLIST.ADD (" Left "))) TMPARRAYLIST.ADD (" position ", style.Item (" position ") TMPARRAYLIST.ADD (" TOP ", style.Item ("TOP")) Me.Style.Remove ("z-index") me.style.remove ("left") me.style.remove ("top") me.style.remove ("TOP") Writer. Write ("") OutputLayout (Writer) Writer.write ("") End Subprivate Sub OutputLayout (Byval Output As System.Web.ui.htmlTextwri TER) DIM VisiableColumn () AS Boolean Redim VisiableColumn (Me.Columns.count - 1)
For i as integer = 0 to me.columns.count - 1 VisiableColumn (i) = me.columns (i) .visible next output.write ("
") Output.write ("
") Call showleft (" ", output) Output.write (" ") for i asse integer = 0 to me.columns.count - 1 me.columns. Item (i) .Visible = visiableColumn (i) Next output.Write ( "") End SubPrivate Sub ShowLeft (ByVal width As String, ByVal output As System.Web.UI.HtmlTextWriter) Dim divStyle As String output. Write ("
") DivStyle = "
" Output.write (DivStyle) for i as integer = 0 To Me.Items.count - 1 me.items (i) .attributes ("ID") = me.id & "trd" & i next me.style ("border-style") = "none" mybase.render (output) Output.write ("") Output.write ("") End Sub
Private sub xyscrollDataGrid_itemdatabase (_ byval sender as object, _ byval e as system.web.ui.webcontrols.dataGriditeMeventAndargs) _ handles mybase.itemdatabase
If e.Item.ItemType = ListItemType.AlternatingItem _ Or e.Item.ItemType = ListItemType.Item _ Or e.Item.ItemType = ListItemType.EditItem _ Or e.Item.ItemType = ListItemType.SelectedItem Then If e.Item.ItemIndex <> -1 Then E.Item.cells (0) .text = _ " "End if Endiff s.com" as integer limited
RetValue = -1 if not httpContext.current.Request (me.id & "_radio") is nothing kilUE = httpContext.current.Request (me.id & "_radio") End IF
