C# と VB.NET の質問掲示板

蛇足ですが、データの容れ物としてはArrayList+string[]よりDataTableの方がオススメです。
前者だとインデクスでしかアクセスできないので、後で途中に列が追加になった時、
順番が全部ずれちゃいますが、DataTableだと名前でアクセスできますからね。

DataTable tbl = new DataTable();
tbl.Columns.Add("名前", typeof(string));
tbl.Columns.Add("所属", typeof(string));
tbl.Rows.Add(new string[] {"山本", "経理"});
tbl.Rows.Add(new string[] {"佐藤", "営業"});
tbl.Rows.Add(new string[] {"田中", "企画"});

> >ためしに今、なんとか作れるコードとして作成している最中です。
> 
> ﾁﾝﾁﾝ☆⌒ 凵＼(＼・∀・) まだぁ? 

とっくにTimeOverしてっだろからお披露目。

using System.Collections.Generic;

class Program {
  public static void Main() {
    // 単語表
    IEnumerable<string> keywords = new string[] { "うし","しか","かも","かもしか" };
    // 入力
    string input = "うしかもしかしかいないかも";
    // 分割文字列群 : 結果はココに。
    List<string> divided = new System.Collections.Generic.List<string>();

    // 入力がなくなるまで繰り返し
    while ( input.Length != 0 ) {
      // 入力文字列が単語表にある文字列から始まるかを調べ、
      // 切り出す文字数を設定
        int splitLength = 1;
        foreach (string keyword in keywords) {
        if ( input.StartsWith(keyword) ) {
          splitLength = keyword.Length;
          break;
        }
      }
      // 文字列を切り出して分割文字列群に追加し、入力文字列の頭を削る
      divided.Add(input.Substring(0,splitLength));
      input = input.Remove(0,splitLength);
    }
    // 結果確認
    string[] HAIRETU = divided.ToArray();
    foreach ( string word in HAIRETU ) {
      System.Console.WriteLine(word);
    }
  }
}

■No64910 (MP枯渇ウィザード さん) に返信

案１）ボタンだけのフォームを作りそこから派生させる。
案２）ボタン部分をユーザーコントロールにする
案３）制御用のコンポーネントを作成する。


案３のコンポーネントについて書きます。
新規追加でコンポーネントを追加します。
Designer.vbファイルはそのままで
vbファイルを例えば以下のように記述します。
Imports System.ComponentModel

<ProvideProperty("FuncNo", GetType(Windows.Forms.Control))> _
Public Class Component1
    Implements IExtenderProvider

    Friend ButtonNo As New Dictionary(Of Button, String)

    Public Function CanExtend(extendee As Object) As Boolean Implements System.ComponentModel.IExtenderProvider.CanExtend
        If TypeOf extendee Is Button Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function GetFuncNo(ByVal ctrl As Windows.Forms.Control) As String
        If Not TypeOf ctrl Is Button Then Return Nothing
        Dim btn = DirectCast(ctrl, Button)
        Dim ret As String = Nothing
        If ButtonNo.TryGetValue(btn, ret) Then
            Return ret
        Else
            Return Nothing
        End If
    End Function

    Public Sub SetFuncNo(ByVal ctrl As Windows.Forms.Control, ByVal value As String)
        If Not TypeOf ctrl Is Button Then Exit Sub
        Dim btn = DirectCast(ctrl, Button)
        If String.IsNullOrEmpty(value) Then
            If ButtonNo.ContainsKey(btn) Then
                ButtonNo.Remove(btn)
            End If
        Else
            ButtonNo(btn) = value
        End If
    End Sub

    Public Property Enabled As Boolean
        Get
            If ButtonNo.Count > 0 Then
                Return ButtonNo.Keys(0).Enabled
            Else
                Return False
            End If
        End Get
        Set(value As Boolean)
            For Each btnNo In ButtonNo
                btnNo.Key.Enabled = value
            Next
        End Set
    End Property
End Class

一度コンパイルします。
するとフォームデザイン状態でツールボックスから作成したComponent1を選ぶことが出来るようになります。
Component1をフォームに貼りつけると
各ButtonコントロールにToolTipのような拡張プロパティ『Component11のFuncNo』というのが表示されるので
そこに適当に文字を入力します。Func1Buttonなら1など。
後はコード上でComponent11.EnabledをTrue,Falseに変えるとFuncNoを設定したButtonのEnabledがすべて変わります。