電話番号の文字列を正規表現で置換
Dim tmp As String = ""
tmp = System.Text.RegularExpressions.Regex.Replace("09012345678", _
"(?<first>[0-9]{3})(?<secound>[0-9]{4})(?<third>[0-9]{4})", "${first}-${secound}-${third}")
MsgBox(tmp)
フォームの×ボタンを無効にする
Protected Overrides ReadOnly Property CreateParams() As _
System.Windows.Forms.CreateParams
<System.Security.Permissions.SecurityPermission( _
System.Security.Permissions.SecurityAction.LinkDemand, _
Flags:=System.Security.Permissions.SecurityPermissionFlag.UnmanagedCode)> _
Get
Const CS_NOCLOSE As Integer = &H200
Dim cp As CreateParams = MyBase.CreateParams
cp.ClassStyle = cp.ClassStyle Or CS_NOCLOSE
Return cp
End Get
End Property
ドライブのタイプを取得する
'C:ドライブの情報を取得する
Dim drive As New System.IO.DriveInfo("C")
'ドライブタイプ
Dim typeDescription As String = ""
Select Case drive.DriveType
Case System.IO.DriveType.CDRom
typeDescription = "光ディスクドライブ(CD-ROM,DVD-ROMなど)"
Case System.IO.DriveType.Fixed
typeDescription = "固定ディスク"
Case System.IO.DriveType.Network
typeDescription = "ネットワークドライブ"
End Select
モーダレスでフォームを開く
'Form2クラスのインスタンスを作成する
Dim f As New Form2()
'Form2を表示する
'ここではモードレスフォームとして表示する
f.Show()
日付のフォーマットチェックの仕方
Dim result As DateTime
DateTime.TryParseExact(I_Date, "yyyy/MM/dd", _
Nothing, _
System.Globalization.DateTimeStyles.None, result)
第3引数:カルチャ固有の書式情報を提供するプロバイダ
(Nothingで現在のカルチャ(System.Globalization.CultureInfo.CurrentCulture)が選択される)
第4引数:使用可能な書式を選択(通常はSystem.Globalization.DateTimeStyles.Noneでおk?)
DataGridViewを選択した際に背景色を変更しない
DefaultCellStyleの
SelectionBackColorとSelectionForeColorの色を
BackColorとForeColorの色と同じにする
⇒選択しても色が変わらなくなる
VB.NetからExcelをプリンタ指定で印刷する
xlSheets.PrintOut(, , , , W_strPrinterName)
まいとーくFAXで複数ファイルを1セッションで送る
最終更新:2011年11月16日 17:50