パソいろ パソコンやIT関連、周辺機器や開発のことなど

パソコンや開発、Linuxやデータベースのことなど

VB2005 数字、アルファベット、一部記号を半角変換
カタカナはそのままで、数字、アルファベット、一部記号を半角変換。

Public Function abc123ToHankaku(ByVal s As String) As String

Dim re As Regex = New Regex("[０-９Ａ-Ｚａ-ｚ（）：，－　]+")
Dim output As String = re.Replace(s, AddressOf myReplacer)

Return output
End Function

Private Function myReplacer(ByVal m As Match) As String
Return Strings.StrConv(m.Value, VbStrConv.Narrow, 0)
End Function

VB2005 全角を半角に変換
Dim str As String

str = StrConv("アイウＡＢＣ", VbStrConv.Narrow)

MsgBox(str)

結果はｱｲｳABCになる。

VB2005のフォームイベント推移
Showメソッドを実行するとLoad発生。
表示直前に処理が必要な場合はLoadイベントに記述。

Activateイベントも発生するが、このイベントは2つのフォームが表示されているときに片方のフォームがアクティブになったとき発生するのでShow以外でも発生する可能性あり。

Activateイベントにはアクティブになる時に必要な処理を記述
表示直後にShownイベントも発生