|
Imports System Imports System.IO Public Class Sorgenti Private Sub txtSource_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSource.TextChanged End Sub Private Sub Sorgenti_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtSource.Text = Form1.Navigator.DocumentText.ToString Me.Text = "Sorgenti del sito " + Form1.Site_label.Text End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Clipboard.SetText(txtSource.Text) End Sub End Class
|
|
