下記のようにKeyValuePairのリストや配列を指定するだけで、DataSource／DisplayMember／ValueMemberを設定することができるメソッドをComboBoxに追加します。 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles…

Imports System.Text ''' <summary> ''' 文字列からバイト数を指定して部分文字列を取得する。 ''' </summary> ''' <param name="value">対象文字列。</param> ''' <param name="startIndex">開始位置。（バイト数）</param> ''' <param name="length">長さ。（バイト数）</param> ''' <returns>部分文字列。</returns> ''' <remarks>文字列は <c>Shift_JIS</c> でエンコーディングして処理を行います。</remarks>

''' <summary> ''' 切り上げ。 ''' </summary> ''' <param name="value">対象の数値。</param> ''' <param name="decimalPlaces">有効小数桁数。</param> ''' <returns>切り上げした数値。</returns> Public Shared Function RoundUp(ByVal value As Decimal, ByVal decimalPlaces As UInt32) As Decimal Dim rate As Decimal = CDec(Math.Pow(10.0R, d…

Imports System.IO Imports System.Security.AccessControl ''' <summary> ''' ファイル・フォルダに対しフルアクセスを許可する。 ''' </summary> ''' <param name="path">パス。</param> Public Shared Sub AddFullAccessRule(ByVal path As String) Dim fileInfo As New FileInfo(path) Dim fileSec As F…

下記のようにすることで、コントロールを配置位置でソートできるようにします。 Dim controlList As New List(Of Control)() ... controlList.Sort(AddressOf CompareByPosition) 上記のソートを行うためのComparisonジェネリック デリゲートは下記の通りで…