Darkprince97 |
|
| Della serie: Non prendermi a calciDarkprince97 presenta: Princenotepad v1.0.0 Allora , oggi ho reiniziato col vb.net e sono riuscito a sfornare (circa) questo notepad di cui vi posto il proggetto. Funzioni: CODICE +Bug Reporter con mail
+Taglia , copia , incolla ,annulla , seleziona tutto
+Salva , apri , Stampa
+Set del font e del colore Bugs: CODICE +La stampa non è funzionante Download Progetto:[ #] Download Exe:[ #] Source:Notepad: CODICE Public Class Form1
Dim open As New OpenFileDialog
Dim Streamreader As System.IO.StreamReader
Dim salva As New SaveFileDialog()
Dim StreamWriter As System.IO.StreamWriter
Private Sub ButtonItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem14.Click
open.Filter = "Text |*.txt"
open.CheckFileExists = True
open.Title = "Apri Files [Princenotepad v1.0.0]"
open.ShowDialog(Me)
Try
open.OpenFile()
Streamreader = System.IO.File.OpenText(open.FileName)
TextBoxX1.Text = Streamreader.ReadToEnd()
Catch ex As Exception
End Try
End Sub
Private Sub ButtonItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem15.Click
salva.Filter = "Text |*.txt"
salva.CheckPathExists = True
salva.Title = "Save Files [Princenotepad v1.0.0]"
salva.ShowDialog(Me)
Try
StreamWriter = System.IO.File.AppendText(salva.FileName)
StreamWriter.Write(TextBoxX1.Text)
StreamWriter.Flush()
Catch ex As Exception
End Try
End Sub
Private Sub ButtonItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem16.Click
End
End Sub
Private Sub ButtonItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem17.Click
TextBoxX1.Copy()
End Sub
Private Sub ButtonItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem18.Click
TextBoxX1.Cut()
End Sub
Private Sub ButtonItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem19.Click
TextBoxX1.Paste()
End Sub
Private Sub ButtonItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem20.Click
TextBoxX1.Undo()
End Sub
Private Sub ButtonItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem21.Click
TextBoxX1.SelectAll()
End Sub
Private Sub ButtonItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem22.Click
TextBoxX1.Font() = ChangeFont(FontDialog1)
End Sub
Public Function ChangeFont(ByVal FontWindow As FontDialog)
Dim DialogResult As DialogResult
Dim PreviousFont As Font = TextBoxX1.Font()
DialogResult = FontDialog1.ShowDialog()
If DialogResult = Windows.Forms.DialogResult.OK Then
Return FontDialog1.Font()
Else
Return PreviousFont
End If
End Function
Private Sub ButtonItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem23.Click
TextBoxX1.ForeColor() = ChangeColor(ColorDialog1)
End Sub
Public Function ChangeColor(ByVal ColorWindow As ColorDialog)
Dim DialogResult As DialogResult
Dim PreviousColor As Color = TextBoxX1.ForeColor
DialogResult = ColorDialog1.ShowDialog()
If DialogResult = Windows.Forms.DialogResult.OK Then
Return ColorDialog1.Color()
Else
Return PreviousColor
End If
End Function
Private Sub ButtonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem2.Click
TextBoxX1.Text = " "
End Sub
Private Sub ButtonItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem3.Click
open.CheckFileExists = True
open.Title = "Apri Files [Princenotepad v1.0.0]"
open.ShowDialog(Me)
Try
open.OpenFile()
Streamreader = System.IO.File.OpenText(open.FileName)
TextBoxX1.Text = Streamreader.ReadToEnd()
Catch ex As Exception
End Try
End Sub
Private Sub ButtonItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem4.Click
salva.Filter = "Text |*.txt"
salva.CheckPathExists = True
salva.Title = "Save Files [Princenotepad v1.0.0]"
salva.ShowDialog(Me)
Try
StreamWriter = System.IO.File.AppendText(salva.FileName)
StreamWriter.Write(TextBoxX1.Text)
StreamWriter.Flush()
Catch ex As Exception
End Try
End Sub
Private Sub ButtonItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem6.Click
TextBoxX1.ResumeLayout()
End Sub
Private Sub ButtonItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem7.Click
End
End Sub
Private Sub ButtonItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem13.Click
End
End Sub
Private Sub ButtonItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem1.Click
System.Diagnostics.Process.Start("http://www.unfair-gamers.com/forum/index.php")
End Sub
Private Sub ButtonItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem25.Click
Mail.Show()
End Sub Mailer: CODICE Imports System.Net
Imports System.Net.Mail
Public Class Mail
Dim client As SmtpClient
Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
Dim msg As MailMessage
Dim destAddress As MailAddress
Dim author As New MailAddress(TextBoxX1.Text, "")
destAddress = New MailAddress("****@yahoo.it", "")
msg = New MailMessage
msg.Subject = "Bug Report"
msg.Sender = author
msg.Body = TextBoxX2.Text
msg.From = author
msg.ReplyTo = author
msg.To.Add(destAddress)
client = New SmtpClient(ComboBox1.Text)
Try
client.Credentials = New System.Net.NetworkCredential("", "")
client.Send(msg)
MsgBox("E-Mail inviata correttamente!", MsgBoxStyle.Information)
Catch ex As InvalidOperationException
MsgBox("Impossibile connettersi all'host poichè non c'è nessun host per connettersi", MsgBoxStyle.Critical, ("HOST NON SPECIFICATO"))
Catch ex As SmtpFailedRecipientException
MsgBox("Tentativo di invio al server locale, ma non è presente una mailbox")
Catch ex As SmtpException
MsgBox("L'host potrebbe non essere stato trovato, o c'è un errore di invio")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class
|
| | |
