What should be my code for EDIT, if my codes for ADD is just like this?

Question

Private Sub BT_ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_ADD.Click
If CB_link.Checked = True Then
Dim dt As New DataTable
dt.Columns.Add("Link", GetType(String))
dt.Columns.Add("Type", GetType(String))
dt.Columns.Add("Time/Duration", GetType(String))
dt.Columns.Add("Repetition", GetType(String))
Dim currentLink As String
Dim currentTime As String
Dim currentInterval As Integer
Dim currentRepetition As String
If RB_Time.Checked = True Then
Dim d1 As DateTime = DTP_Now.Value
Dim d2 As DateTime = DTP_Now1.Value
Dim result As TimeSpan = d1.Subtract(d2)
Dim days As Integer = result.TotalDays
currentLink = TB_link.Text
currentTime = days
currentRepetition = "Today"
If TimeOption(currentInterval) = True Then
dt.Rows.Add(currentLink, True, currentInterval, currentRepetition)
Else
dt.Rows.Add(currentLink, False, currentTime, currentRepetition)
End If
DGV_running.DataSource = dt
DGV_running.Columns(1).Visible = False
DGV_running.Columns(0).Width = 300
DGV_running.Columns(2).Width = 150
DGV_running.Columns(3).Width = 150
If RB_Daily.Checked = True Then
'Dim d1 As DateTime = DTP_Now.Value
'Dim d2 As DateTime = DTP_Now1.Value
'Dim result As TimeSpan = d1.Subtract(d2)
'Dim days As Integer = result.TotalDays
currentLink = TB_link.Text
currentTime = days
currentRepetition = "Daily"
If TimeOption(currentInterval) = True Then
dt.Rows.Add(currentLink, True, currentInterval, currentRepetition)
Else
dt.Rows.Add(currentLink, False, currentTime, currentRepetition)
End If
End If
If RB_Weekly.Checked = True Then
'Dim d1 As DateTime = DTP_Now.Value
'Dim d2 As DateTime = DTP_Now1.Value
'Dim result As TimeSpan = d1.Subtract(d2)
'Dim days As Integer = result.TotalDays
currentLink = TB_link.Text
currentTime = days
currentRepetition = "Weekly"
If TimeOption(currentInterval) = True Then
dt.Rows.Add(currentLink, True, currentInterval, currentRepetition)
Else
dt.Rows.Add(currentLink, False, currentTime, currentRepetition)
End If
End If
If RB_Monthly.Checked = True Then
'Dim d1 As DateTime = DTP_Now.Value
'Dim d2 As DateTime = DTP_Now1.Value
'Dim result As TimeSpan = d1.Subtract(d2)
'Dim days As Integer = result.TotalDays
currentLink = TB_link.Text
currentTime = days
currentRepetition = "Monthly"
If TimeOption(currentInterval) = True Then
dt.Rows.Add(currentLink, True, currentInterval, currentRepetition)
Else
dt.Rows.Add(currentLink, False, currentTime, currentRepetition)
End If
End If
ElseIf RB_Interval.Checked = True Then
currentLink = TB_link.Text
currentInterval = NUD_interval.Text
currentRepetition = "N/A"
If TimeOption(currentInterval) = True Then
dt.Rows.Add(currentLink, True, currentInterval, currentRepetition)
Else
dt.Rows.Add(currentLink, False, currentTime, currentRepetition)
End If
DGV_running.DataSource = dt
DGV_running.Columns(1).Visible = False
DGV_running.Columns(0).Width = 300
DGV_running.Columns(2).Width = 150
DGV_running.Columns(3).Width = 150
End If
End If
End Sub
Here's the GUI of my project.
This project will call a website to be loaded.

Answer 1

Imports System.IO
Imports System.Text
Public Class frm_main
Public currentRunningTime As Integer = 0
Private Sub BT_ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_ADD.Click
If CB_link.Checked = True Then
Dim dt As New DataTable
dt.Columns.Add("Link", GetType(String))
'dt.Columns.Add("Type", GetType(String))
dt.Columns.Add("Time/Duration", GetType(String))
dt.Columns.Add("Repetition", GetType(String))
Dim currentLink As String
Dim currentTime As String
Dim currentInterval As Integer
Dim currentRepetition As String
If RB_Time.Checked = True Then
Dim d1 As DateTime = DTP_Now.Value
Dim d2 As DateTime = DTP_Now1.Value
Dim result As TimeSpan = d1.Subtract(d2)
Dim days As Integer = result.TotalDays
currentLink = TB_link.Text
currentTime = days
currentRepetition = "Today"
'currentInterval = DTP_Now.Text
'If TimeOption(currentInterval) = True Then
' dt.Rows.Add(currentLink, True, currentInterval, currentRepetition)
'Else
dt.Rows.Add(currentLink, currentTime, currentRepetition)
'End If
DGV_running.DataSource = dt
'DGV_running.Columns(1).Visible = True
DGV_running.Columns(0).Width = 100
DGV_running.Columns(1).Width = 90
DGV_running.Columns(2).Width = 68
If RB_Daily.Checked = True Then
currentLink = TB_link.Text
currentTime = days
currentRepetition = "Daily"
'currentInterval = DTP_Now1.Text
'If TimeOption(currentInterval) = True Then
' dt.Rows.Add(currentLink, True, currentInterval, currentRepetition)
'Else
dt.Rows.Add(currentLink, currentTime, currentRepetition)
'End If
End If
If RB_Weekly.Checked = True Then
currentLink = TB_link.Text
currentTime = days
currentRepetition = "Weekly"
'currentInterval = DTP_Now1.Text
' If TimeOption(currentInterval) = True Then
' dt.Rows.Add(currentLink, True, currentInterval, currentRepetition)
' Else
dt.Rows.Add(currentLink, currentTime, currentRepetition)
' End If
End If
If RB_Monthly.Checked = True Then
currentLink = TB_link.Text
currentTime = days
currentRepetition = "Monthly"
'currentInterval = DTP_Now1.Text
'If TimeOption(currentInterval) = True Then
' dt.Rows.Add(currentLink, True, currentInterval, currentRepetition)
'Else
dt.Rows.Add(currentLink, currentTime, currentRepetition)
'End If
End If
ElseIf RB_Interval.Checked = True Then
currentLink = TB_link.Text
currentInterval = NUD_interval.Text
currentRepetition = "N/A"
'If TimeOption(currentInterval) = True Then
dt.Rows.Add(currentLink, currentInterval, currentRepetition)
'Else
' dt.Rows.Add(currentLink, False, currentTime, currentRepetition)
'End If
DGV_running.DataSource = dt
'DGV_running.Columns(1).Visible = True
DGV_running.Columns(0).Width = 100
DGV_running.Columns(1).Width = 90
DGV_running.Columns(2).Width = 68
End If
End If
TB_link.Clear()
CB_link.Checked = False
RB_Time.Checked = False
RB_Interval.Checked = False
RB_Daily.Checked = False
RB_Weekly.Checked = False
RB_Monthly.Checked = False
RB_Time.Enabled = False
RB_Interval.Enabled = False
RB_Daily.Enabled = False
RB_Weekly.Enabled = False
RB_Monthly.Enabled = False
NUD_interval.Value = 0
DTP_Now.Enabled = False
DTP_Now1.Enabled = False
End Sub
Private Sub BT_EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_EDIT.Click
'Dim dt As New DataTable
DGV_running.BeginEdit(selectAll:=True)
'TB_link.Text = dt.Rows(0)("Link").ToString()
TB_link.Text = DGV_running.Rows(0)("Link").ToString() 'Class "System.Windows.Forms.DAtaGridViewRow" cannot be indexed because it has no default property.
End Sub
Private Sub BT_DEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_DEL.Click
Dim dt As New DataTable
DGV_running.DataSource = dt
TB_link.Clear()
dt.Rows.Clear()
CB_link.Checked = False
RB_Time.Checked = False
RB_Interval.Checked = False
RB_Daily.Checked = False
RB_Weekly.Checked = False
RB_Monthly.Checked = False
RB_Time.Enabled = False
RB_Interval.Enabled = False
RB_Daily.Enabled = False
RB_Weekly.Enabled = False
RB_Monthly.Enabled = False
NUD_interval.Enabled = False
NUD_interval.Value = 0
Timer1.Stop()
End Sub
Function TimeOption(ByVal interval As Integer)
Dim result As Boolean = False
If interval > 0 Then
result = True
Else
result = False
End If
Return result
End Function
Sub CreateTimer(ByVal timerInterval As Integer)
Dim newTimer As New Timer
newTimer.Interval = timerInterval * 1000
newTimer.Tag = DateTime.Now
AddHandler newTimer.Tick, AddressOf TickHandler
End Sub
Sub TickHandler(ByVal sender As Object, ByVal e As EventArgs)
Dim currTimer As Timer = DirectCast(sender, Timer)
End Sub
Private Sub BT_Stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Stop.Click
Timer1.Stop()
Dim CloseApp As String
CloseApp = MsgBox("Do you want to EXIT this app?", MsgBoxStyle.YesNo, "Exiting")
If CloseApp = vbYes Then
Me.Close()
Application.Exit()
End
Else
Me.Refresh()
TB_link.Clear()
RB_Time.Checked = False
RB_Interval.Checked = False
RB_Daily.Checked = False
RB_Weekly.Checked = False
RB_Monthly.Checked = False
RB_Time.Enabled = False
RB_Interval.Enabled = False
RB_Daily.Enabled = False
RB_Weekly.Enabled = False
RB_Monthly.Enabled = False
NUD_interval.Value = 0
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not File.Exists("C:\phptrigger.txt") Then
File.Create("C:\phptrigger.txt")
End If
Timer2.Interval = 1000
Timer2.Enabled = True
RB_Time.Enabled = False
RB_Daily.Enabled = False
RB_Weekly.Enabled = False
RB_Monthly.Enabled = False
RB_Interval.Enabled = False
NUD_interval.Enabled = False
DTP_Now.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
currentRunningTime = currentRunningTime + 1
Dim currentTime As String = DateTime.Now.ToString("hh:mm:ss tt")
For Each row As DataGridViewRow In DGV_running.Rows
If row.Cells(1).Value = "False" Then
Dim sourcePath As String = row.Cells(0).Value
Dim runTime As String = row.Cells(2).Value
Dim dateRunTime As Date = CDate(runTime)
Dim dateCurrentTime As Date = CDate(currentTime)
If dateRunTime = dateCurrentTime Then
Try
My.Computer.Network.UploadFile("C:\phptrigger.txt", sourcePath & "/phptrigger.txt", "", "")
Catch ex As Exception
'MsgBox("Error: " & ex.ToString())
End Try
End If
End If
If row.Cells(1).Value = "True" Then
Dim sourcePath As String = row.Cells(0).Value
Dim intervalSeconds As Integer = row.Cells(2).Value
If (currentRunningTime Mod intervalSeconds) = 0 Then
Try
My.Computer.Network.UploadFile("C:\phptrigger.txt", sourcePath & "/phptrigger.txt", "", "")
Catch ex As Exception
'MsgBox("Error: " & ex.ToString())
End Try
End If
End If
Next
'MsgBox("The Link was SUCCESSFULLY loaded!")
End Sub
Private Sub BT_START_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_START.Click
Timer1.Start()
'Dim headers = (From header As DataGridViewColumn In DGV_running.Columns.Cast(Of DataGridViewColumn)() _
' Select header.HeaderText).ToArray
Dim rows = From row As DataGridViewRow In DGV_running.Rows.Cast(Of DataGridViewRow)() _
Where Not row.IsNewRow _
Select Array.ConvertAll(row.Cells.Cast(Of DataGridViewCell).ToArray, Function(c) If(c.Value IsNot Nothing, c.Value.ToString, ""))
Using sw As New IO.StreamWriter("c:\link.txt")
'sw.WriteLine(String.Join(",", headers))
For Each r In rows
sw.WriteLine(String.Join(",", r))
Next
End Using
Process.Start("c:\link.txt")
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer2.Interval = 1000
Timer2.Enabled = True
Label2.Text = Date.Now
End Sub
Private Sub RB_Time_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB_Time.CheckedChanged
RB_Daily.Enabled = True
RB_Weekly.Enabled = True
RB_Monthly.Enabled = True
NUD_interval.Enabled = False
DTP_Now.Enabled = True
End Sub
Private Sub RB_Interval_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB_Interval.CheckedChanged
NUD_interval.Enabled = True
RB_Daily.Enabled = False
RB_Weekly.Enabled = False
RB_Monthly.Enabled = False
End Sub
Private Sub CB_link_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_link.CheckedChanged
RB_Time.Enabled = True
RB_Interval.Enabled = True
End Sub
End Class
Here's my Full code for this project.
The aim of this project is to call a webpage or a website then a .txt will be created inside of it all the process that you made in this project.
Now if still you can't understand it, then try it to re-construct.