From d6992862acfaec43956870ce092e812163374152 Mon Sep 17 00:00:00 2001 From: Ben Nicholson Date: Wed, 26 Jun 2024 23:35:38 +1000 Subject: [PATCH] Delete HelloWorld/Form1.vb --- HelloWorld/Form1.vb | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100644 HelloWorld/Form1.vb diff --git a/HelloWorld/Form1.vb b/HelloWorld/Form1.vb deleted file mode 100644 index 9c11ac3..0000000 --- a/HelloWorld/Form1.vb +++ /dev/null @@ -1,40 +0,0 @@ - -Imports System.Net -Imports System.Net.Http -Imports System.Security.Cryptography.X509Certificates -Imports System.Text - - -Public Class Form1 - Public Sub Button1_Click(sender As Object, e As EventArgs) Handles btnClickThis.Click - Dim rawRMA As String - Dim baseURL As String - rawRMA = txtRMA.Text - baseURL = txtBaseURL.Text - - Dim encodedRMA As String = Uri.EscapeDataString(rawRMA) - - txtFinalUrl.Text = baseURL & encodedRMA - - My.Computer.Clipboard.SetText(txtFinalUrl.Text) - End Sub - - - Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click - Dim box = New About() - box.Show() - End Sub - - Private Sub btnEditBaseUrl_Click(sender As Object, e As EventArgs) Handles btnEditBaseUrl.Click - txtBaseURL.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=ref&cons=" - End Sub - - Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click - txtBaseURL.Text = "https://www.tnt.com/express/en_au/site/shipping-tools/tracking.html?searchType=con&cons=" - End Sub - - Private Sub btnFedexShipping_Click(sender As Object, e As EventArgs) Handles btnFedexShipping.Click - txtBaseURL.Text = "https://www.fedex.com/fedextrack/?trknbr=" - End Sub -End Class -