Visual Basic

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br />
<br />
    End Sub

Regards,

Chatura Dilan

If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.

<br />
Option Strict Off<br />
Option Explicit On <br />
<br />
Imports System<br />
Imports System.ComponentModel<br />
Imports System.Drawing<br />
Imports System.Windows.Forms<br />
<br />
Public Class DataGridButtonColumn<br />
    Inherits DataGridTextBoxColumn<br />
    Public Event ButtonClicked(ByVal rowNumber As Integer)<br />
    Public WithEvents btn As New Button<br />
    Dim xReadOnly As Boolean = False<br />
    Public Property _ReadOnly() As Boolean<br />
        Get<br />
            Return xReadOnly<br />
        End Get<br />
        Set(ByVal Value As Boolean)<br />
            xReadOnly = Value<br />
        End Set<br />
    End Property<br />
    Public Sub New()<br />
        Me.TextBox.Visible = False<br />
        Me.TextBox.Cursor = Cursors.Hand<br />
        btn.FlatStyle = FlatStyle.System<br />
        btn.ForeColor = Color.Red<br />
        btn.Cursor = Cursors.Hand<br />
        btn.Text = "SİL"<br />
    End Sub 'New<br />
    Dim _rowNum As Integer<br />
<br />
    Protected Overloads Overrides Sub Edit(ByVal [source] As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText As String, ByVal cellIsVisible As Boolean)<br />
        Try<br />
            MyBase.Edit([source], rowNum, bounds, [readOnly], instantText, cellIsVisible)<br />
            _rowNum = rowNum<br />
            btn.Parent = Me.TextBox.Parent<br />
            btn.Location = Me.TextBox.Location<br />
            btn.Size = New Size(Me.TextBox.Size.Width, TextBox.Size.Height)<br />
            btn.Text = "SİL"<br />
            btn.Visible = True<br />
            btn.BringToFront()<br />
            btn.Focus()<br />
        Catch ex As Exception<br />
            Throw ex<br />
        End Try<br />
    End Sub 'Edit<br />
    Protected Overrides Function Commit(ByVal dataSource As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Boolean<br />
        'btn.Visible = False<br />
        Return True<br />
    End Function 'Commit<br />
    Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn.Click<br />
        If Not xReadOnly Then<br />
            RaiseEvent ButtonClicked(_rowNum)<br />
        End If<br />
    End Sub<br />
<br />
End Class<br />
<br />

Regards,

Chatura Dilan

If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.

Regards,

Chatura Dilan

If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.