正規表現

' 文字列の間の空白をカンマで置き換える
Function ReplaceSpaceToComma(ByVal strText As String) As String
Return Regex.Replace(strText, "[ ]{1,}", ",")
End Function

ランダムパス生成

        Dim wk_buf As String = ""
        Dim wk_num As Single

        Do Until Len(wk_buf) = 8
            Randomize()
            wk_num = Int((122 * Rnd()) + 1)
            Select Case wk_num
                '記号等の排除
                Case Is < 49
                Case 58, 59, 60, 61, 62, 63, 64
                Case 91, 92, 93, 94, 95, 96
                    '誤認候補の排除
                Case 48, 49, 79, 108
                Case Else
                    wk_buf = wk_buf & Chr(wk_num)
            End Select
        Loop

        passwd.Text = wk_buf

発生したイベントを取得する

Private Sub cld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cld1.ValueChanged, cld2.ValueChanged, cld3.ValueChanged, cld4.ValueChanged
        Dim cld As DateTimePicker = CType(sender, DateTimePicker)

        Select Case cld.Name
            Case "cld1"
                first_transaction.Text = Format(cld1.Value, "yyyy/MM/dd")
            Case "cld2"
                contracted.Text = Format(cld2.Value, "yyyy/MM/dd")
        End Select

    End Sub

エントリポイント作成のリンク

http://dobon.net/vb/dotnet/programing/makeentrypoint.html
http://dobon.net/vb/dotnet/programing/startupobject.html

走らせ方
http://blog.livedoor.jp/akf0/archives/51340773.html

宣言の範囲

　 適用範囲 寿命 宣言できる場所
Public すべて クラスが消滅するまで クラス直下
Protected Friend プロジェクト内・派生クラス内 クラスが消滅するまで クラス直下
Protected 派生クラス内 クラスが消滅するまで クラス直下
Friend プロジェクト内 クラスが消滅するまで クラス直下
Private 宣言したクラス内 クラスが消滅するまで クラス直下
クラス(構造体)直下のDim 宣言したクラス内 クラスが消滅するまで クラス直下
プロシージャ内のDim プロシージャ内 プロシージャが実行されている間 プロシージャ内
プロシージャ内のStatic プロシージャ内 クラスが消滅するまで プロシージャ内
ブロック内のDim ブロック内 ブロックを実行されている間 ブロック内
ブロック内のStatic ブロック内 クラスが消滅するまで ブロック内
クラス直下のShared(単体) 宣言したクラス内 不死 クラス直下
構造体直下のShared(単体) すべて 不死 構造体直下

md5変換

    Public Function get_md5string(ByVal base)
        Dim str As Byte() = System.Text.Encoding.ASCII.GetBytes(base)
        Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
        Dim hash As Byte() = md5.ComputeHash(str)

        'hexa変換
        Dim res As String = BitConverter.ToString(hash).ToLower.Replace("-", "")

        Return res
    End Function

カタカナチェック

If Regex.IsMatch(TextBox1.Text, "^[ア-ン]*$") = FALSE Then 
MessageBox.Show("カタカナじゃない") 
End If

comboboxをdatasetでなんとかする

'connect to db
Dim db As MySqlConnection = db_connect()
Dim adp As New MySqlDataAdapter()
adp.SelectCommand = New MySqlCommand(SQL_STRING, db)
Dim ds As DataSet = New DataSet

adp.Fill(ds)

mem_id.DataSource = ds.Tables(0) 'set table, not item
mem_id.ValueMember = "id"
mem_id.DisplayMember = "name"

'access to value
val = combobox.SelectedValue