1 Imports System
 2 Imports System.Collections.Generic
 3 Imports System.ComponentModel
 4 Imports System.Text
 5 Imports System.Web
 6 Imports System.Web.UI
 7 Imports System.Web.UI.WebControls
 8 
 9 
10 Public Class TBCommandField
11     Inherits CommandField
12 
13     Private FDeleteConfirmMessage As String = String.Empty
14 
15     ''' <summary>
16     ''' 刪除詢問訊息。
17     ''' </summary>
18     Public Property DeleteConfirmMessage() As String
19         Get
20             Return FDeleteConfirmMessage
21         End Get
22         Set(ByVal value As String)
23             FDeleteConfirmMessage = value
24         End Set
25     End Property
26 
27     ''' <summary>
28     ''' 初始化儲存格。
29     ''' </summary>
30     ''' <param name="cell">儲存格。</param>
31     ''' <param name="cellType"></param>
32     ''' <param name="rowState"></param>
33     ''' <param name="rowIndex"></param>
34     ''' <remarks></remarks>
35     Public Overrides Sub InitializeCell(ByVal cell As DataControlFieldCell, ByVal cellType As DataControlCellType,
              ByVal rowState As DataControlRowState, ByVal rowIndex As Integer)
36         MyBase.InitializeCell(cell, cellType, rowState, rowIndex)
37         If Me.ShowDeleteButton AndAlso Me.Visible AndAlso Me.DeleteConfirmMessage <> String.Empty Then
38             SetButtonDeleteConfirm(cell)
39         End If
40     End Sub
41 
42     ''' <summary>
43     ''' 設定刪除鈕的刪除訊息。
44     ''' </summary>
45     ''' <param name="Cell">儲存格。</param>
46     Private Sub SetButtonDeleteConfirm(ByVal Cell As DataControlFieldCell)
47         Dim oControl As Control
48         Dim sScript As String
49 
50         sScript = "if (confirm('" & Me.DeleteConfirmMessage & "')==false) {return false;}"
51 
52         For Each oControl In Cell.Controls
53             If TypeOf (oControl) Is IButtonControl Then
54                 If DirectCast(oControl, IButtonControl).CommandName = "Delete" Then
55                     DirectCast(oControl, WebControl).Attributes("onclick") = sScript
56                     Exit Sub
57                 End If
58             End If
59         Next
60     End Sub
61 End Class
62 

<bee:TBCommandField ShowDeleteButton="True" ShowEditButton="True" DeleteConfirmMessage="確定刪除嗎?" ButtonType="Button" />