VB.NET覚書

VB.NETの覚書
[個人メモ] [仕事メモ] [アイデア] [Ruby]
[TIPS] [対応表] [コメント書き方] [.NET Tips] [VB中学校] [VB.NET の入門サイト] [VB.NET コーディング標準 ] [VBレスキュー] [NonSoft]

2009-04-08

ビープ音

Imports System

Private Sub buttonPCBeep_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonBeep.Click

Console.Beep(262, 400) ' ド

Console.Beep(294, 400) ' レ

Console.Beep(330, 400) ' ミ

Console.Beep(349, 400) ' ファ

Console.Beep(392, 400) ' ソ

Console.Beep(440, 400) ' ラ

Console.Beep(494, 400) ' シ

Console.Beep(523, 400) ' ド

End Sub

ビープ音などのシステム・サウンドを鳴らすには?[2.0のみ、C#、VB] - @IT

システム

Imports System.Media

Private Sub buttonBeep_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonBeep.Click

SystemSounds.Beep.Play()

End Sub

Private Sub buttonExclamation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonExclamation.Click

SystemSounds.Exclamation.Play()

End Sub

Private Sub buttonAsterisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonAsterisk.Click

SystemSounds.Asterisk.Play()

End Sub

Private Sub buttonQuestion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonQuestion.Click

SystemSounds.Question.Play()

End Sub

Private Sub buttonHand_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonHand.Click

SystemSounds.Hand.Play()

End Sub

ビープ音などのシステム・サウンドを鳴らすには?[2.0のみ、C#、VB] - @IT

ネットからファイルダウンロード

Dim Internet As Net.WebClient = New Net.WebClient()
Dim URL As String = "http://www.sangiin.go.jp/japanese/taiken/gijidou/images/01.jpg"
Dim FileName As String = "C:\Download.jpg"

Internet.DownloadFile(URL, FileName)

FTP upload

Imports System.Net

Class WebClientFtpPut

Shared Sub Main()

Dim wc As New WebClient()

wc.Credentials = New NetworkCredential("user01", "mypassword")

wc.UploadFile("ftp://servername/upload/secret.png", "tmp.png")

End Sub

End Class

WebClientクラスでFTPによりファイル転送を行うには?[2.0のみ、C#、VB] - @IT
トラックバック - http://sub.g.hatena.ne.jp/garyo/20090408