有人認為用寫的動態建立控制元件很高階,其實我更喜歡拖放控制元件進行各種屬性和事件設定很方便,而不是用寫的進行各種屬性和事件的設定，結合以前寫的例子，對各類設定做了歸類，比較方便集中寫作。

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

 

namespace 文字提取到資料檔案

{

    public partial class 文字提取到資料檔案 : Form

    {

        DataGridView 資料列表 = new DataGridView();

        TextBox 錄入框 = new TextBox();

        ToolTip 控制元件說明 = new ToolTip();

        TreeView 分類樹 = new TreeView();

        CheckBox 肝 = new CheckBox(), 心 = new CheckBox(), 脾 = new CheckBox(), 肺 = new CheckBox(), 腎 = new CheckBox(), 

            熱 = new CheckBox(), 溫 = new CheckBox(), 寒 = new CheckBox(), 涼 = new CheckBox(), 平 = new CheckBox();

 

        public 文字提取到資料檔案()

        {

            InitializeComponent();

        }

 

        private void Form1_Load(object sender, EventArgs e)

        {

            跟隨(); 停靠(); 尺寸(); 佈局(); 初值(); 註明();

            動態文字框();

            動態表格(new string[] { "名稱", "別名", "性味", "歸經", "主治" });

        }

        //private void 動態選項框()

        //{

        //    int i = 分類樹.Width + 5;

        //    string[] 五臟五味 = { "肝（酸）", "心（苦）", "脾（甘）", "肺（辛）", "腎（鹹）" };

        //    foreach (string 名 in 五臟五味)

        //    {

        //        CheckBox 選項框 = new CheckBox();

        //        選項框.Text = 名;

        //        選項框.Name = 名.Remove(1);

        //        選項框.Location = new Point(i, 17);

        //        選項框.Anchor = (AnchorStyles.Bottom | AnchorStyles.Right);

        //        選項框.Parent = this;

        //        this.Controls.Add(選項框);

        //        i += 105;

        //    };

        //}

        private void 動態文字框()

        {

            錄入框.Text = "";

            錄入框.Name = string.Format("文字框{0}", 1);

            錄入框.AllowDrop = true;

            錄入框.Multiline = true;

            //this.Controls.Add(錄入框);

        }

        private void 動態表格(string[] 資料格)

        {

            DataTable 資料表 = new DataTable("資料表");

            foreach (string 格 in 資料格)

                資料表.Columns.Add(格, typeof(string));

 

            資料列表.AllowUserToAddRows = false;

            資料列表.AllowUserToDeleteRows = false;

            資料列表.AllowUserToOrderColumns = false;

            資料列表.AllowUserToResizeColumns = false;

            資料列表.AllowUserToResizeRows = false;

            資料列表.ReadOnly = true;

            資料列表.RowHeadersVisible = false;

            資料列表.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill;

            資料列表.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;

            資料列表.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders;

            資料列表.RowsDefaultCellStyle.WrapMode = (DataGridViewTriState.True);

            資料列表.DefaultCellStyle.SelectionBackColor = Color.Transparent;

            資料列表.DefaultCellStyle.SelectionForeColor = Color.Red;/*.Blue.Gold*/

            資料列表.GridColor = Color.Lime;

            資料列表.DataSource = 資料表;

        }

 

        private void 文字提取到資料檔案_Resize(object sender, EventArgs e)

        {

            //MessageBox.Show("最大化！");

            //this.Invalidate();

            //this.Refresh();

            跟隨(); 停靠(); 尺寸(); 初值(); 佈局(); 註明();

 

            //System.IO.FileStream 開啟 = new System.IO.FileStream(Application.StartupPath + @"\新建文字文件.txt", System.IO.FileMode.Open);

            //System.IO.StreamReader 讀取 = new System.IO.StreamReader(開啟, Encoding.GetEncoding("GB2312"));

            //while (!讀取.EndOfStream)

            //    資料表.Rows.Add(讀取.ReadLine().Split(' '));

            //開啟.Close();

        }

        void 跟隨()

        {

            資料列表.Anchor =

                錄入框.Anchor =

                肝.Anchor = 心.Anchor = 脾.Anchor = 肺.Anchor = 腎.Anchor =

                熱.Anchor = 溫.Anchor = 寒.Anchor = 涼.Anchor = 平.Anchor =

                分類樹.Anchor = (AnchorStyles.Top | AnchorStyles.Left);

        }

        void 停靠()

        {

            資料列表.Parent =

                錄入框.Parent =

                肝.Parent = 心.Parent = 脾.Parent = 肺.Parent = 腎.Parent = 

                熱.Parent = 溫.Parent = 寒.Parent = 涼.Parent = 平.Parent =

                分類樹.Parent = this;

        }

        void 尺寸()

        {

            分類樹.Size = new Size(this.Width / 5, this.Height - 42);

            資料列表.Size = new Size(this.Width - 分類樹.Width - 24, this.Height / 2);

            錄入框.Size = new Size(this.Width - 分類樹.Width - 25, this.Height / 2 - 75);

        }

        void 佈局()

        {

            分類樹.Location = new Point(2, 2);

            資料列表.Location = new Point(分類樹.Width + 5, 2);

            錄入框.Location = new Point(分類樹.Width + 5, this.Height - 資料列表.Height + 5);

            肝.Location = new Point(分類樹.Width + 5, this.Height - 65);

            心.Location = new Point(肝.Location.X + 65, this.Height - 65);

            脾.Location = new Point(心.Location.X + 65, this.Height - 65);

            肺.Location = new Point(脾.Location.X + 65, this.Height - 65);

            腎.Location = new Point(肺.Location.X + 65, this.Height - 65);

            熱.Location = new Point(腎.Location.X + 65, this.Height - 65);

            溫.Location = new Point(熱.Location.X + 35, this.Height - 65);

            寒.Location = new Point(溫.Location.X + 35, this.Height - 65);

            涼.Location = new Point(寒.Location.X + 35, this.Height - 65);

            平.Location = new Point(涼.Location.X + 35, this.Height - 65);

        }

        void 初值()

        {

            this.BackColor = Color.Red;

            string[] 五臟五味 = { "肝（酸）", "心（苦）", "脾（甘）", "肺（辛）", "腎（鹹）", "熱", "溫", "寒", "涼", "平" };

            int 啊 = 五臟五味.Length;

            Control.ControlCollection 找選項 = this.Controls;

            foreach (Control 選項 in 找選項)

                if (選項 is CheckBox) 選項.Text = 五臟五味[--啊];

        }

        void 註明()

        {

            控制元件說明.SetToolTip(錄入框, "請輸入資料文字以便進行分割到資料檔案儲存。");

            控制元件說明.SetToolTip(分類樹, "顯示選擇的分類結構。");

        }

 

    }

}