1: Private Sub SendEMail(ByVal msg As String)
2: Const from As String = "system@piedey.co.jp"
3: Const mailto As String = "hitomi@piedey.co.jp"
4: Const subject As String = "Sample Mail"
5: System.Web.Mail.SmtpMail.Send(from, mailto, subject, msg)
6: End Sub
7:
8: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
9: SendEMail("Hello!")
10: End Sub
1: Imports System.Text
2: Imports System.Net
3:
4: Public Class Form1
5: Inherits System.Windows.Forms.Form
6:
7: …Windows フォーム デザイナで生成されたコード…
8:
9: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
10: Dim sb As StringBuilder
11: sb = New StringBuilder()
12: Dim i As Integer
13: For i = 0 To 1000
14: sb.Append(i.ToString())
15: sb.Append(" ")
16: Next
17: Trace.WriteLine(sb.ToString().Substring(0, 100))
18: Trace.WriteLine(Dns.GetHostName())
19: End Sub
20: End Class