電話番号の文字列を正規表現で置換

       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