[سعود]

!!!لا تنسخ الاكواد التالية مطلقا و انما اقراها فقط!!!

PHP كود :

Public Class Form1
    Private Function GetLine(txt As String)
        Dim cindex As Integer = txtlines.GetFirstCharIndexOfCurrentLine
        Dim line As Integer = txtlines.GetLineFromCharIndex(cindex)
        Return line
    End Function
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        Dim line As String = InputBox("Type any thing")
        If line.Trim = "" Then Exit Sub
        txtlines.AppendText(line & vbNewLine)
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lblcount.Text = "Lines Count: " & txtlines.Lines.Count
    End Sub
    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
        Dim word As String = txtlines.Lines(GetLine(txtlines.Text))
        Dim lines() As String = txtlines.Lines
        txtlines.Clear()
        For Each h As String In lines
            If h <> word Then
                txtlines.AppendText(h & vbNewLine)
            End If
        Next
        lines = Nothing
    End Sub
    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
        Dim a As String = InputBox("type a thing")
        If a.Trim <> "" Then
            Dim word As String = txtlines.Lines(GetLine(txtlines.Text))
            Dim lines() As String = txtlines.Lines
            txtlines.Clear()
            For Each h As String In lines
                If h = word Then
                    txtlines.AppendText(a & vbNewLine)
                Else
                    txtlines.AppendText(h & vbNewLine)
                End If
            Next
            lines = Nothing
        End If
    End Sub
End Class