C#/.NET – ページ 14 – テックメモ

2017-01-272017-02-03

C# アクセシビティなど実験色々

┗ グローバル名前空間
┗ 名前空間(namespace)
┗ 型(クラス)空間

5つのアクセシビティ

PUBLIC：　制限されない
PROTECTED：　クラス内部から　＋　派生クラス内部から
INTERNAL：　同一プログラムから可
PROTECTED INTERNAL：　
PRIVATE：　クラス内部から

デフォルトのアクセシビティ

型(クラス)：　INTERNAL
型のメンバ：　PRIVATE

付けることのできるアクセシビティ

型(クラス)：　public、internal
┃
┣ 型のメンバ：　public、protected、internal、protected internal、private
┃　┃
┃　┣ インターフェースのメソッド：　定義側は表記不要。実装側はpublicのみ
┃　┃
┃　┗ 抽象メソッド：　private以外は大丈夫 (継承元、継承先で同じアクセシビティにする必要がある)
┃　　　┗ 実装側でoverrideする必要あり。
┃
┗ 構造体の子メンバ：　public、internal、private

アクセシビティについて実験

private・protectedはクラス内部からしかアクセスできない。インスタンス生成して class.method()などの様に直接使えない。protectedは派生クラスの内部からもアクセスできる。

    class Program
    {
        static void Main(string[] args)
        {
            BaseAction b = new BaseAction();
            Console.Write(b.age.ToString());// 20
            // 基底クラスのメンバ変数。

            Taro t = new Taro();
            Console.Write(t.age.ToString());// 20
            // サブクラスで同じメンバ変数を参照。

            t.sum();
            // サブクラスのメソッドでメンバ変数の値を変更。

            Console.Write(b.age.ToString());// 20
            // サブクラスでの変更は基底クラスに影響していない。

            Console.Write(t.age.ToString());// 21
            Console.ReadKey();
        }
    }
    class BaseAction
    {
        internal int age = 20;
    }
    class Taro: BaseAction
    {
        internal void sum()
        {
            this.age = 21;
        }
    }

class Program

{

static void Main(string[] args)

{

BaseAction b = new BaseAction();

Console.Write(b.age.ToString());// 20

// 基底クラスのメンバ変数。

Taro t = new Taro();

Console.Write(t.age.ToString());// 20

// サブクラスで同じメンバ変数を参照。

t.sum();

// サブクラスのメソッドでメンバ変数の値を変更。

Console.Write(b.age.ToString());// 20

// サブクラスでの変更は基底クラスに影響していない。

Console.Write(t.age.ToString());// 21

Console.ReadKey();

}

class BaseAction

{

internal int age = 20;

}

class Taro: BaseAction

{

internal void sum()

{

this.age = 21;

}

継承はあくまでもクラス(ひな形の)コピーであってインスンタス生成後にお互いに影響を与えない。

    class Program
    {
        static void Main(string[] args)
        {
            dog d = new dog();
            d.bow();
            // d.jamp(); ここはエラー。
            // 基底クラスでprivateなメソッドはサブクラスで呼び出せない。
            // 継承や実装でアクセシビティは引き継がない。
        }
    }
    class animal
    {
        public void bow()
        {
            Console.Write("bow bow");
            Console.ReadKey();
        }
        private void jamp()
        {
        }
    }
    class dog : animal
    {
    }

class Program

{

static void Main(string[] args)

{

dog d = new dog();

d.bow();

// d.jamp(); ここはエラー。

// 基底クラスでprivateなメソッドはサブクラスで呼び出せない。

// 継承や実装でアクセシビティは引き継がない。

}

class animal

{

public void bow()

{

Console.Write("bow bow");

Console.ReadKey();

}

private void jamp()

{

}

class dog : animal

{

}

     class Program
    {
        static void Main(string[] args)
        {
            Human h = new Human();
            // Taro t = new Taro(); ここはエラー。

            Human.Taro t = new Human.Taro();
            t.SayHello();
            // 入れ子のクラスのインスタンス生成。
        }
    }
    internal class Human
    {
　　　　　// クラスは入れ子にできる。
        internal class Taro
        {
            public void SayHello()
            {
                Console.Write("Hello");
                Console.ReadKey();
            }
        }
    }

class Program

{

static void Main(string[] args)

{

Human h = new Human();

// Taro t = new Taro(); ここはエラー。

Human.Taro t = new Human.Taro();

t.SayHello();

// 入れ子のクラスのインスタンス生成。

}

internal class Human

{

　　　　　// クラスは入れ子にできる。

internal class Taro

{

public void SayHello()

{

Console.Write("Hello");

Console.ReadKey();

}

    class Program
    {
        static void Main(string[] args)
        {
            int age = 20;
            if (true)
            {
                Console.Write(age.ToString());
                Console.ReadKey();
                // ローカル変数の場合、下位から上位のスコープを参照することができる。
            }
        }
    }

    public class Human
    {
        private string FirstName = "taro";

        private class Taro // クラスが入れ子になっている。
        {
            // FirstName = "hanako"; ここはエラー。
            // クラスの入れ子のスコープの関係はローカル変数とは違う。
            // クラスのメンバーのスコープはクラス内に限られる。
            // publicやprivateなどのアクセシビティはスコープではなく
            // そのクラスのメンバーが、他のクラスからどう見えるかを定義するもの。
        }
    }

class Program

{

static void Main(string[] args)

{

int age = 20;

if (true)

{

Console.Write(age.ToString());

Console.ReadKey();

// ローカル変数の場合、下位から上位のスコープを参照することができる。

}

public class Human

{

private string FirstName = "taro";

private class Taro // クラスが入れ子になっている。

{

// FirstName = "hanako"; ここはエラー。

// クラスの入れ子のスコープの関係はローカル変数とは違う。

// クラスのメンバーのスコープはクラス内に限られる。

// publicやprivateなどのアクセシビティはスコープではなく

// そのクラスのメンバーが、他のクラスからどう見えるかを定義するもの。

}

通常、クラスを入れ子にはしないが、クラスのスコープは越えられない。アクセシビティは誰に見せるかを定義するもので、メンバは、アクセシビティで許可した範囲からメッセージを受け付ける。

    class Program
    {
        static void Main(string[] args)
        {
            Taro t = new Taro();
            t.say();

            Console.ReadKey();
        }
    }
    static class TestClass
    {
        static internal int prev = 1;
        static internal int next = 2;
        static internal int home = prev * next;
    }
    class BaseAction
    {
        protected int Age = 20;
    }
    class Taro : BaseAction
    {
        internal int prev = 1;
        internal int next = 2;

        // internal int home = prev * next; ここはエラー。
        // 同一のクラスでメンバ変数同士で演算できない。
        // staticなクラスなら可能。TestClass参照。

        // 同じ理由によりメンバ変数に継承元のメンバ変数も代入はできない。
        // internal int Birth = this.Age; ここはエラー。
        
        internal void say()
        {
            // これは継承元のprotectedフィールドを出力している。
            Console.Write(Age.ToString());

            int answer = this.prev * this.next;
            // メンバ変数もメソッドの中での演算なら可能。
        }
    }

class Program

{

static void Main(string[] args)

{

Taro t = new Taro();

t.say();

Console.ReadKey();

}

static class TestClass

{

static internal int prev = 1;

static internal int next = 2;

static internal int home = prev * next;

}

class BaseAction

{

protected int Age = 20;

}

class Taro : BaseAction

{

internal int prev = 1;

internal int next = 2;

// internal int home = prev * next; ここはエラー。

// 同一のクラスでメンバ変数同士で演算できない。

// staticなクラスなら可能。TestClass参照。

// 同じ理由によりメンバ変数に継承元のメンバ変数も代入はできない。

// internal int Birth = this.Age; ここはエラー。

internal void say()

{

// これは継承元のprotectedフィールドを出力している。

Console.Write(Age.ToString());

int answer = this.prev * this.next;

// メンバ変数もメソッドの中での演算なら可能。

}

クラス定義領域では、メンバ変数同士での演算はできない。staticなクラスなら可能。クラス定義領域はインスタンス生成に評価されるため。

    class Program
    {
        static void Main(string[] args)
        {
            Status.age = "20";
            Console.Write(Status.age); // 20

            Test t = new Test();

            Console.Write(Status.age); // 22
            // staticなクラスのためtestクラスのコンストラクタの影響を受けている。

            Console.ReadKey();
        }

        static class Status
        {
            internal static string age = "0";
        }
        //通常のクラスはインスタンス生成後にインスタンスとクラスお互いに影響しない。
        
        class Test: BaseClass
        {
            public Test() 
            {
                Status.age = "22";
            }
        }

        class BaseClass
        {
            public BaseClass()
            {
                Console.Write("This is BaseClass");
            }
        }
    }

class Program

{

static void Main(string[] args)

{

Status.age = "20";

Console.Write(Status.age); // 20

Test t = new Test();

Console.Write(Status.age); // 22

// staticなクラスのためtestクラスのコンストラクタの影響を受けている。

Console.ReadKey();

}

static class Status

{

internal static string age = "0";

}

//通常のクラスはインスタンス生成後にインスタンスとクラスお互いに影響しない。

class Test: BaseClass

{

public Test()

{

Status.age = "22";

}

class BaseClass

{

public BaseClass()

{

Console.Write("This is BaseClass");

}

コンストラクタをprivateにするとインスタンス生成できないクラスになる。
基底クラスのコンストラクが実行され、次にサブクラスのコンストラクタが実行される。
上の例では、”20″のあと”This is BaseClass”と表示される。

2017-01-172017-01-17

C# VBA タイムカードアプリ

以前作ったタイムカードアプリ。氏名などはフォームに直接。

Form1.cs

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;
using System.Collections;
using System.Data.OleDb;
using System.Drawing.Text;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            this.WindowState = FormWindowState.Maximized;
            this.label2.Font = new System.Drawing.Font("7barP",110);
            this.label1.Text = DateTime.Now.ToString("yyyy/MM/dd dddd");
            this.label2.Text = DateTime.Now.ToString("HH:mm:ss");
            attach_function();
            this.timer1.Start();
        }
        private void timer1_Tick(object sender, EventArgs e)
        {
            this.label1.Text = DateTime.Now.ToString("yyyy/MM/dd dddd");
            this.label2.Text = DateTime.Now.ToString("HH:mm:ss");
        }
        private Control[] get_controls(Control control_top)
        {
            ArrayList tmp = new ArrayList();
            foreach(Control ctrl in control_top.Controls)
            {
                tmp.Add(ctrl);
                if (ctrl is TabControl)
                {
                    foreach (Control tb in ctrl.Controls)
                    {
                        foreach (Control btn in tb.Controls) tmp.Add(btn);
                    } 
                }
            }
            return (Control[])tmp.ToArray(typeof(Control));
        }
        public void attach_function()
        {
            Control[] controls = get_controls(this);
            foreach (Control ctrl in controls)
            {
                if (ctrl is Button) ((Button)ctrl).Click += new EventHandler(click_button);
                if (ctrl is RadioButton) ((RadioButton)ctrl).CheckedChanged += new EventHandler(clear_labels);
            }
        }
        public void click_button(object sender, EventArgs e)
        {
            clear_labels();
            if (((Button)sender).Text == "リセット") return;
            if (get_check_state() != null)
            {
                connction_database(get_check_state().Text, ((Button)sender).Text);
            }
            else
            {
                connction_database("", ((Button)sender).Text);
            }
        }
        public void clear_labels(object sender = null, EventArgs e = null)
        {
            this.label3.Text = "00/00 00:00:00";
            this.label4.Text = "00/00 00:00:00";
            this.label5.Text = "00/00 00:00:00";
            this.label6.Text = "00/00 00:00:00";
        }
        public void clear_check_state()
        {
            this.radioButton1.Checked = false;
            this.radioButton2.Checked = false;
            this.radioButton3.Checked = false;
            this.radioButton4.Checked = false;
            this.checkBox1.Checked = false;
        }
        public void save_log(string check_text, string user)
        {
            using (System.IO.StreamWriter s = new System.IO.StreamWriter(System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\log.txt", true, System.Text.Encoding.GetEncoding("shift_jis")))
            {
                s.Write(user + "," + check_text + "," + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "\r\n");
            }
        }
        public RadioButton get_check_state()
        {
            Control[] controls = get_controls(this);
            foreach (Control ctrl in controls)
            {
                if (ctrl is RadioButton)
                {
                    if (((RadioButton)ctrl).Checked) return (RadioButton)ctrl;
                }
            }
            return null;
        }
        public void connction_database(String checked_text, String button_text)
        {
            String start_day = DateTime.Now.ToString("yyyy/MM/dd 00:00:01");
            if (this.checkBox1.Checked == true) start_day = DateTime.Now.AddDays(-1).ToString("yyyy/MM/dd 00:00:01");
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\Tc_Db.mdb;"))
            {
                OleDbTransaction transaction = null;
                try
                {
                    cn.Open();
                    if (checked_text != "")
                    {
                        OleDbCommand cmd_main = new OleDbCommand("SELECT 出社,退社,外出,帰社 FROM Tc_Tbl WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);
                        using (OleDbDataReader dr_main = cmd_main.ExecuteReader())
                        {
                            if (dr_main.Read())
                            {
                                if (dr_main[checked_text].ToString() == "")
                                {
                                    transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                                    OleDbCommand cmd = new OleDbCommand("UPDATE Tc_Tbl SET " + checked_text + " = '" + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "' WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);
                                    cmd.Transaction = transaction;
                                    cmd.ExecuteNonQuery();
                                    transaction.Commit();
                                    save_log(checked_text, button_text);
                                    //MessageBox.Show(checked_text + "を登録しました。");
                                }
                                else if (dr_main[checked_text].ToString() != "")
                                {
                                    MessageBox.Show("既に" + checked_text + "は登録されています。");
                                }
                                if (dr_main.Read()) MessageBox.Show(DateTime.Now.ToString("yyyy/MM/dd") + "が複数行あります。編集より削除してください。");
                            }
                            else
                            {
                                transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                                OleDbCommand cmd = new OleDbCommand("INSERT INTO Tc_Tbl (日付," + checked_text + ",氏名) VALUES ('" + start_day + "', '" + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "', '" + button_text + "')", cn);
                                cmd.Transaction = transaction;
                                cmd.ExecuteNonQuery();
                                transaction.Commit();
                                save_log(checked_text, button_text);
                                //MessageBox.Show(checked_text + "を登録しました。");
                            }
                        }
                        clear_check_state();
                    }
                    OleDbCommand cmd_to_labels = new OleDbCommand("SELECT 出社,退社,外出,帰社 FROM Tc_Tbl WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);
                    using(OleDbDataReader dr_to_labels = cmd_to_labels.ExecuteReader())
                    {
                        if (dr_to_labels.Read())
                        {
                            if (dr_to_labels["出社"].ToString() != "") label3.Text = DateTime.Parse(dr_to_labels["出社"].ToString()).ToString("MM/dd HH:mm:ss");
                            if (dr_to_labels["退社"].ToString() != "") label4.Text = DateTime.Parse(dr_to_labels["退社"].ToString()).ToString("MM/dd HH:mm:ss");
                            if (dr_to_labels["外出"].ToString() != "") label5.Text = DateTime.Parse(dr_to_labels["外出"].ToString()).ToString("MM/dd HH:mm:ss");
                            if (dr_to_labels["帰社"].ToString() != "") label6.Text = DateTime.Parse(dr_to_labels["帰社"].ToString()).ToString("MM/dd HH:mm:ss");
                        }
                        if (dr_to_labels.Read()) MessageBox.Show(DateTime.Now.ToString("yyyy/MM/dd") + "が複数行あります。編集より削除してください。");
                    }
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    try
                    {
                        transaction.Rollback();
                        return;
                    }
                    catch
                    {
                        return;
                    }
                }
                finally
                {
                    cn.Close();
                }
            }
        }
        private void button3_Click(object sender, EventArgs e)
        {
            clear_labels();
            clear_check_state();
        }
        private void 編集ToolStripMenuItem1_Click(object sender, EventArgs e)
        {
            Form2 f = new Form2(get_controls(this));
            f.ShowDialog();
        }
        private void tabControl1_SelectedIndexChanged(object sender, EventArgs e)
        {
            //button3.PerformClick();
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

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;

using System.Collections;

using System.Data.OleDb;

using System.Drawing.Text;

namespace WindowsFormsApplication1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

this.WindowState = FormWindowState.Maximized;

this.label2.Font = new System.Drawing.Font("7barP",110);

this.label1.Text = DateTime.Now.ToString("yyyy/MM/dd dddd");

this.label2.Text = DateTime.Now.ToString("HH:mm:ss");

attach_function();

this.timer1.Start();

}

private void timer1_Tick(object sender, EventArgs e)

{

this.label1.Text = DateTime.Now.ToString("yyyy/MM/dd dddd");

this.label2.Text = DateTime.Now.ToString("HH:mm:ss");

}

private Control[] get_controls(Control control_top)

{

ArrayList tmp = new ArrayList();

foreach(Control ctrl in control_top.Controls)

{

tmp.Add(ctrl);

if (ctrl is TabControl)

{

foreach (Control tb in ctrl.Controls)

{

foreach (Control btn in tb.Controls) tmp.Add(btn);

}

return (Control[])tmp.ToArray(typeof(Control));

}

public void attach_function()

{

Control[] controls = get_controls(this);

foreach (Control ctrl in controls)

{

if (ctrl is Button) ((Button)ctrl).Click += new EventHandler(click_button);

if (ctrl is RadioButton) ((RadioButton)ctrl).CheckedChanged += new EventHandler(clear_labels);

}

public void click_button(object sender, EventArgs e)

{

clear_labels();

if (((Button)sender).Text == "リセット") return;

if (get_check_state() != null)

{

connction_database(get_check_state().Text, ((Button)sender).Text);

}

else

{

connction_database("", ((Button)sender).Text);

}

public void clear_labels(object sender = null, EventArgs e = null)

{

this.label3.Text = "00/00 00:00:00";

this.label4.Text = "00/00 00:00:00";

this.label5.Text = "00/00 00:00:00";

this.label6.Text = "00/00 00:00:00";

}

public void clear_check_state()

{

this.radioButton1.Checked = false;

this.radioButton2.Checked = false;

this.radioButton3.Checked = false;

this.radioButton4.Checked = false;

this.checkBox1.Checked = false;

}

public void save_log(string check_text, string user)

{

using (System.IO.StreamWriter s = new System.IO.StreamWriter(System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\log.txt", true, System.Text.Encoding.GetEncoding("shift_jis")))

{

s.Write(user + "," + check_text + "," + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "\r\n");

}

public RadioButton get_check_state()

{

Control[] controls = get_controls(this);

foreach (Control ctrl in controls)

{

if (ctrl is RadioButton)

{

if (((RadioButton)ctrl).Checked) return (RadioButton)ctrl;

}

return null;

}

public void connction_database(String checked_text, String button_text)

{

String start_day = DateTime.Now.ToString("yyyy/MM/dd 00:00:01");

if (this.checkBox1.Checked == true) start_day = DateTime.Now.AddDays(-1).ToString("yyyy/MM/dd 00:00:01");

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\Tc_Db.mdb;"))

{

OleDbTransaction transaction = null;

try

{

cn.Open();

if (checked_text != "")

{

OleDbCommand cmd_main = new OleDbCommand("SELECT 出社,退社,外出,帰社 FROM Tc_Tbl WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);

using (OleDbDataReader dr_main = cmd_main.ExecuteReader())

{

if (dr_main.Read())

{

if (dr_main[checked_text].ToString() == "")

{

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand("UPDATE Tc_Tbl SET " + checked_text + " = '" + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "' WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

save_log(checked_text, button_text);

//MessageBox.Show(checked_text + "を登録しました。");

}

else if (dr_main[checked_text].ToString() != "")

{

MessageBox.Show("既に" + checked_text + "は登録されています。");

}

if (dr_main.Read()) MessageBox.Show(DateTime.Now.ToString("yyyy/MM/dd") + "が複数行あります。編集より削除してください。");

}

else

{

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand("INSERT INTO Tc_Tbl (日付," + checked_text + ",氏名) VALUES ('" + start_day + "', '" + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "', '" + button_text + "')", cn);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

save_log(checked_text, button_text);

//MessageBox.Show(checked_text + "を登録しました。");

}

clear_check_state();

}

OleDbCommand cmd_to_labels = new OleDbCommand("SELECT 出社,退社,外出,帰社 FROM Tc_Tbl WHERE 日付 = #" + start_day + "# AND 氏名 = '" + button_text + "'", cn);

using(OleDbDataReader dr_to_labels = cmd_to_labels.ExecuteReader())

{

if (dr_to_labels.Read())

{

if (dr_to_labels["出社"].ToString() != "") label3.Text = DateTime.Parse(dr_to_labels["出社"].ToString()).ToString("MM/dd HH:mm:ss");

if (dr_to_labels["退社"].ToString() != "") label4.Text = DateTime.Parse(dr_to_labels["退社"].ToString()).ToString("MM/dd HH:mm:ss");

if (dr_to_labels["外出"].ToString() != "") label5.Text = DateTime.Parse(dr_to_labels["外出"].ToString()).ToString("MM/dd HH:mm:ss");

if (dr_to_labels["帰社"].ToString() != "") label6.Text = DateTime.Parse(dr_to_labels["帰社"].ToString()).ToString("MM/dd HH:mm:ss");

}

if (dr_to_labels.Read()) MessageBox.Show(DateTime.Now.ToString("yyyy/MM/dd") + "が複数行あります。編集より削除してください。");

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

try

{

transaction.Rollback();

return;

}

catch

{

return;

}

finally

{

cn.Close();

}

private void button3_Click(object sender, EventArgs e)

{

clear_labels();

clear_check_state();

}

private void 編集ToolStripMenuItem1_Click(object sender, EventArgs e)

{

Form2 f = new Form2(get_controls(this));

f.ShowDialog();

}

private void tabControl1_SelectedIndexChanged(object sender, EventArgs e)

{

//button3.PerformClick();

}

Form2.cs

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;
using System.Collections;
using System.Data.OleDb;

namespace WindowsFormsApplication1
{
    public partial class Form2 : Form
    {
        private String database_path = System.IO.Path.GetDirectoryName(Application.ExecutablePath);

        public Form2(Control[] parent_contorls)
        {
            InitializeComponent();
            foreach (Control ctrl in parent_contorls) if (ctrl is Button && ctrl.Text != "リセット") this.comboBox1.Items.Add(ctrl.Text);
            for (int i = -2; i <= 2; i++) this.comboBox2.Items.Add(DateTime.Now.Year + i);
            for (int i = 1; i <= 12; i++) this.comboBox3.Items.Add(i.ToString().PadLeft(2, '0'));
            for (int i = 1; i <= 31; i++) this.comboBox4.Items.Add(i.ToString().PadLeft(2, '0'));
            this.comboBox2.Text = DateTime.Now.ToString("yyyy");
            this.comboBox3.Text = DateTime.Now.ToString("MM");
            this.comboBox4.Text = DateTime.Now.ToString("dd");
            this.WindowState = FormWindowState.Maximized;
            //this.dataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;
            //this.dataGridView1.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;
        }
        private void button2_Click(object sender, EventArgs e)
        {
            if (this.textBox1.Text != "1234") return;
            if (this.comboBox1.Text == "")
            {
                MessageBox.Show("名前を選択してください。");
                return;
            }
            DateTime dt;
            string[] check_date = new string[2];
            if (DateTime.TryParse(this.comboBox2.Text + "/" + this.comboBox3.Text + "/" + this.comboBox4.Text, out dt))
            {
                check_date[0] = dt.ToString("yyyy/MM/dd 00:00:01");
                check_date[1] = dt.ToString("yyyy/MM/dd 08:25:00");
            }
            else
            {
                MessageBox.Show("日付が適切ではありません。");
                return;
            }
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))
            {
                OleDbTransaction transaction = null;
                try
                {
                    cn.Open();
                    transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                    OleDbCommand cmd = new OleDbCommand("INSERT INTO Tc_Tbl (氏名,日付) VALUES ('" + this.comboBox1.Text + "','" + check_date[0] + "')", cn);
                    cmd.Transaction = transaction;
                    cmd.ExecuteNonQuery();
                    transaction.Commit();
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    try
                    {
                        transaction.Rollback();
                        return;
                    }
                    catch
                    {
                        return;
                    }
                }
                finally
                {
                    cn.Close();
                }
            }
            button1.PerformClick();
        }
        private void button1_Click(object sender, EventArgs e)
        {
            if(this.comboBox1.Text == "")
            {
                MessageBox.Show("名前を選択してください。");
                return;
            }
            this.dataGridView1.Rows.Clear();
            DateTime tmp;
            DateTime[] chk_date = new DateTime[2];
            if (DateTime.TryParse(this.comboBox2.Text + "/" + this.comboBox3.Text + "/1", out tmp))
            {
                chk_date[0] = new DateTime(int.Parse(this.comboBox2.Text), int.Parse(this.comboBox3.Text), 1, 00, 00, 01);
                chk_date[1] = new DateTime(int.Parse(this.comboBox2.Text), int.Parse(this.comboBox3.Text),DateTime.DaysInMonth(int.Parse(this.comboBox2.Text),int.Parse(this.comboBox3.Text)), 00, 00, 01);
            }
            else
            {
                MessageBox.Show("日付が適切ではありません。");
                return;
            }
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))
            {
                try
                {
                    cn.Open();
                    for (DateTime i = chk_date[0]; i <= chk_date[1]; i = i.AddDays(1))
                    {
                        OleDbCommand cmd = new OleDbCommand("SELECT ID,氏名,日付,出社,退社,外出,帰社,早出申請,残業申請,休出申請,有給申請,無給（遅・早・欠）申請,代休申請,備考 FROM Tc_Tbl WHERE" + " 日付 = #" + i.ToString("yyyy/MM/dd 00:00:01") + "# AND 氏名 = '" + this.comboBox1.Text + "'", cn);
                        using(OleDbDataReader dr = cmd.ExecuteReader())
                        {
                            if (!dr.Read())
                            {
                                this.dataGridView1.Rows.Add(
                                    "", //Button
                                    "", //ID
                                    "", //氏名
                                    i.ToString("yyyy/MM/dd 00:00:01"),
                                    "", //出社
                                    "", //退社
                                    "", //外出
                                    "", //帰社
                                    "", //早出申請
                                    "", //残業申請
                                    "", //休出申請
                                    "", //有給申請
                                    "", //無給（遅・早・欠）申請
                                    "", //代休申請
                                    "", //備考
                                    "", //内容不備(NoDb)
                                    "" //Button
                                    );

                                // 2016/04/21 追加
                                if (6 == (int)i.DayOfWeek)
                                {
                                    this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(220,220,255);
                                }
                                else if (0 == (int)i.DayOfWeek)
                                {
                                    this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(255, 220, 220);
                                }
                                
                            }
                            else
                            {
                                int j = 0;
                                do
                                {
                                    if (j != 0) MessageBox.Show(i.ToString("yyyy/MM/dd") + "が重複しています。");
                                    this.dataGridView1.Rows.Add(
                                        "更新", //Button
                                        dr[0], //ID
                                        dr[1], //氏名
                                        DateTime.Parse(dr[2].ToString()).ToString("yyyy/MM/dd 00:00:01"),
                                        dr[3], //出社
                                        dr[4], //退社
                                        dr[5], //外出
                                        dr[6], //帰社
                                        dr[7], //早出申請
                                        dr[8], //残業申請
                                        dr[9], //休出申請
                                        dr[10], //有給申請
                                        dr[11], //無給（遅・早・欠）申請
                                        dr[12], //代休申請
                                        dr[13], //備考
                                        DateCheck.Do(new string[] { dr[2].ToString(), dr[3].ToString(), dr[4].ToString(), dr[5].ToString(), dr[6].ToString() }),
                                        "削除" //Button
                                        );

                                    // 2016/04/21 追加
                                    if (6 == (int)DateTime.Parse(dr[2].ToString()).DayOfWeek)
                                    {
                                        this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(220, 220, 255);
                                    }
                                    else if (0 == (int)DateTime.Parse(dr[2].ToString()).DayOfWeek)
                                    {
                                        this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(255, 220, 220);
                                    }

                                    j++;
                                }
                                while (dr.Read());
                            }
                        }
                    }
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    return;
                }
                finally
                {
                    cn.Close();
                }
            }
            MessageBox.Show("取得しました。");
        }
        private void DataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e)
        {
            if (e.ColumnIndex == 0 && dataGridView1.Rows[e.RowIndex].Cells[0].Value.ToString() == "更新")
            {
                if (this.textBox1.Text != "1234") return;
                DialogResult YesNo = MessageBox.Show("更新しますか？", "確認", MessageBoxButtons.YesNo);
                if (YesNo == DialogResult.Yes) data_update(e);
            }
            else if (e.ColumnIndex == 16 && dataGridView1.Rows[e.RowIndex].Cells[16].Value.ToString() == "削除")
            {
                if (this.textBox1.Text != "1234") return;
                DialogResult YesNo = MessageBox.Show("削除しますか？","確認", MessageBoxButtons.YesNo);
                if(YesNo == DialogResult.Yes) data_delete(e);
            }
        }
        private void data_delete(DataGridViewCellEventArgs e)
        {
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))
            {
                OleDbTransaction transaction = null;
                try
                {
                    cn.Open();
                    transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                    OleDbCommand cmd = new OleDbCommand("DELETE FROM Tc_Tbl WHERE ID = " + dataGridView1.Rows[e.RowIndex].Cells[1].Value.ToString() + "", cn);
                    cmd.Transaction = transaction;
                    cmd.ExecuteNonQuery();
                    transaction.Commit();
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    try
                    {
                        transaction.Rollback();
                        return;
                    }
                    catch
                    {
                        return;
                    }
                }
                finally
                {
                    cn.Close();
                }
                button1.PerformClick();
            }
        }
        private void data_update(DataGridViewCellEventArgs e)
        {
            string[] row_val = new string[12];
            for (int i = 0; i < 12; i++)
            {
                row_val[i] = "null";
                if (i < 4)
                {
                    DateTime dt;
                    if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "" && DateTime.TryParse(dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString(), out dt))
                    {
                        row_val[i] = "'" + dt.ToString("yyyy/MM/dd HH:mm:ss") + "'";
                    }
                    else if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "")
                    {
                        MessageBox.Show(i + 4 + "列目が不正な文字列です。");
                        return;
                    }
                }
                else if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "")
                {
                    row_val[i] = "'" + dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() + "'";
                }
            }
            using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))
            {
                OleDbTransaction transaction = null;
                try
                {
                    cn.Open();
                    transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);
                    OleDbCommand cmd = new OleDbCommand(
                        "UPDATE Tc_Tbl SET" + 
                        " 出社 = " + row_val[0] +"," + 
                        " 退社 = " + row_val[1] + "," + 
                        " 外出 = " + row_val[2] + "," + 
                        " 帰社 = " + row_val[3] + "," + 
                        " 早出申請 = " + row_val[4] + "," + 
                        " 残業申請 = " + row_val[5] + "," + 
                        " 休出申請 = " + row_val[6] + "," + 
                        " 有給申請 = " + row_val[7] + "," +
                        " 無給（遅・早・欠）申請 = " + row_val[8] + "," +
                        " 代休申請 = " + row_val[9] + "," + 
                        " 備考 = " + row_val[10] + 
                        " WHERE ID = " + dataGridView1.Rows[e.RowIndex].Cells[1].Value.ToString() + "", cn
                        );
                    cmd.Transaction = transaction;
                    cmd.ExecuteNonQuery();
                    transaction.Commit();
                }
                catch
                {
                    MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");
                    try
                    {
                        transaction.Rollback();
                        return;
                    }
                    catch
                    {
                        return;
                    }
                }
                finally
                {
                    cn.Close();
                }
                button1.PerformClick();
            }
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

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;

using System.Collections;

using System.Data.OleDb;

namespace WindowsFormsApplication1

{

public partial class Form2 : Form

{

private String database_path = System.IO.Path.GetDirectoryName(Application.ExecutablePath);

public Form2(Control[] parent_contorls)

{

InitializeComponent();

foreach (Control ctrl in parent_contorls) if (ctrl is Button && ctrl.Text != "リセット") this.comboBox1.Items.Add(ctrl.Text);

for (int i = -2; i <= 2; i++) this.comboBox2.Items.Add(DateTime.Now.Year + i);

for (int i = 1; i <= 12; i++) this.comboBox3.Items.Add(i.ToString().PadLeft(2, '0'));

for (int i = 1; i <= 31; i++) this.comboBox4.Items.Add(i.ToString().PadLeft(2, '0'));

this.comboBox2.Text = DateTime.Now.ToString("yyyy");

this.comboBox3.Text = DateTime.Now.ToString("MM");

this.comboBox4.Text = DateTime.Now.ToString("dd");

this.WindowState = FormWindowState.Maximized;

//this.dataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter;

//this.dataGridView1.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

}

private void button2_Click(object sender, EventArgs e)

{

if (this.textBox1.Text != "1234") return;

if (this.comboBox1.Text == "")

{

MessageBox.Show("名前を選択してください。");

return;

}

DateTime dt;

string[] check_date = new string[2];

if (DateTime.TryParse(this.comboBox2.Text + "/" + this.comboBox3.Text + "/" + this.comboBox4.Text, out dt))

{

check_date[0] = dt.ToString("yyyy/MM/dd 00:00:01");

check_date[1] = dt.ToString("yyyy/MM/dd 08:25:00");

}

else

{

MessageBox.Show("日付が適切ではありません。");

return;

}

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))

{

OleDbTransaction transaction = null;

try

{

cn.Open();

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand("INSERT INTO Tc_Tbl (氏名,日付) VALUES ('" + this.comboBox1.Text + "','" + check_date[0] + "')", cn);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

try

{

transaction.Rollback();

return;

}

catch

{

return;

}

finally

{

cn.Close();

}

button1.PerformClick();

}

private void button1_Click(object sender, EventArgs e)

{

if(this.comboBox1.Text == "")

{

MessageBox.Show("名前を選択してください。");

return;

}

this.dataGridView1.Rows.Clear();

DateTime tmp;

DateTime[] chk_date = new DateTime[2];

if (DateTime.TryParse(this.comboBox2.Text + "/" + this.comboBox3.Text + "/1", out tmp))

{

chk_date[0] = new DateTime(int.Parse(this.comboBox2.Text), int.Parse(this.comboBox3.Text), 1, 00, 00, 01);

chk_date[1] = new DateTime(int.Parse(this.comboBox2.Text), int.Parse(this.comboBox3.Text),DateTime.DaysInMonth(int.Parse(this.comboBox2.Text),int.Parse(this.comboBox3.Text)), 00, 00, 01);

}

else

{

MessageBox.Show("日付が適切ではありません。");

return;

}

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))

{

try

{

cn.Open();

for (DateTime i = chk_date[0]; i <= chk_date[1]; i = i.AddDays(1))

{

OleDbCommand cmd = new OleDbCommand("SELECT ID,氏名,日付,出社,退社,外出,帰社,早出申請,残業申請,休出申請,有給申請,無給（遅・早・欠）申請,代休申請,備考 FROM Tc_Tbl WHERE" + " 日付 = #" + i.ToString("yyyy/MM/dd 00:00:01") + "# AND 氏名 = '" + this.comboBox1.Text + "'", cn);

using(OleDbDataReader dr = cmd.ExecuteReader())

{

if (!dr.Read())

{

this.dataGridView1.Rows.Add(

"", //Button

"", //ID

"", //氏名

i.ToString("yyyy/MM/dd 00:00:01"),

"", //出社

"", //退社

"", //外出

"", //帰社

"", //早出申請

"", //残業申請

"", //休出申請

"", //有給申請

"", //無給（遅・早・欠）申請

"", //代休申請

"", //備考

"", //内容不備(NoDb)

"" //Button

);

// 2016/04/21 追加

if (6 == (int)i.DayOfWeek)

{

this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(220,220,255);

}

else if (0 == (int)i.DayOfWeek)

{

this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(255, 220, 220);

}

else

{

int j = 0;

{

if (j != 0) MessageBox.Show(i.ToString("yyyy/MM/dd") + "が重複しています。");

this.dataGridView1.Rows.Add(

"更新", //Button

dr[0], //ID

dr[1], //氏名

DateTime.Parse(dr[2].ToString()).ToString("yyyy/MM/dd 00:00:01"),

dr[3], //出社

dr[4], //退社

dr[5], //外出

dr[6], //帰社

dr[7], //早出申請

dr[8], //残業申請

dr[9], //休出申請

dr[10], //有給申請

dr[11], //無給（遅・早・欠）申請

dr[12], //代休申請

dr[13], //備考

DateCheck.Do(new string[] { dr[2].ToString(), dr[3].ToString(), dr[4].ToString(), dr[5].ToString(), dr[6].ToString() }),

"削除" //Button

);

// 2016/04/21 追加

if (6 == (int)DateTime.Parse(dr[2].ToString()).DayOfWeek)

{

this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(220, 220, 255);

}

else if (0 == (int)DateTime.Parse(dr[2].ToString()).DayOfWeek)

{

this.dataGridView1.Rows[dataGridView1.Rows.Count - 1].DefaultCellStyle.BackColor = Color.FromArgb(255, 220, 220);

}

j++;

}

while (dr.Read());

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

return;

}

finally

{

cn.Close();

}

MessageBox.Show("取得しました。");

}

private void DataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e)

{

if (e.ColumnIndex == 0 && dataGridView1.Rows[e.RowIndex].Cells[0].Value.ToString() == "更新")

{

if (this.textBox1.Text != "1234") return;

DialogResult YesNo = MessageBox.Show("更新しますか？", "確認", MessageBoxButtons.YesNo);

if (YesNo == DialogResult.Yes) data_update(e);

}

else if (e.ColumnIndex == 16 && dataGridView1.Rows[e.RowIndex].Cells[16].Value.ToString() == "削除")

{

if (this.textBox1.Text != "1234") return;

DialogResult YesNo = MessageBox.Show("削除しますか？","確認", MessageBoxButtons.YesNo);

if(YesNo == DialogResult.Yes) data_delete(e);

}

private void data_delete(DataGridViewCellEventArgs e)

{

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))

{

OleDbTransaction transaction = null;

try

{

cn.Open();

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand("DELETE FROM Tc_Tbl WHERE ID = " + dataGridView1.Rows[e.RowIndex].Cells[1].Value.ToString() + "", cn);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

try

{

transaction.Rollback();

return;

}

catch

{

return;

}

finally

{

cn.Close();

}

button1.PerformClick();

}

private void data_update(DataGridViewCellEventArgs e)

{

string[] row_val = new string[12];

for (int i = 0; i < 12; i++)

{

row_val[i] = "null";

if (i < 4)

{

DateTime dt;

if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "" && DateTime.TryParse(dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString(), out dt))

{

row_val[i] = "'" + dt.ToString("yyyy/MM/dd HH:mm:ss") + "'";

}

else if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "")

{

MessageBox.Show(i + 4 + "列目が不正な文字列です。");

return;

}

else if (dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value != null && dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() != "")

{

row_val[i] = "'" + dataGridView1.Rows[e.RowIndex].Cells[i + 4].Value.ToString() + "'";

}

using (OleDbConnection cn = new OleDbConnection(@"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" + database_path + @"\Tc_Db.mdb;"))

{

OleDbTransaction transaction = null;

try

{

cn.Open();

transaction = cn.BeginTransaction(IsolationLevel.ReadCommitted);

OleDbCommand cmd = new OleDbCommand(

"UPDATE Tc_Tbl SET" +

" 出社 = " + row_val[0] +"," +

" 退社 = " + row_val[1] + "," +

" 外出 = " + row_val[2] + "," +

" 帰社 = " + row_val[3] + "," +

" 早出申請 = " + row_val[4] + "," +

" 残業申請 = " + row_val[5] + "," +

" 休出申請 = " + row_val[6] + "," +

" 有給申請 = " + row_val[7] + "," +

" 無給（遅・早・欠）申請 = " + row_val[8] + "," +

" 代休申請 = " + row_val[9] + "," +

" 備考 = " + row_val[10] +

" WHERE ID = " + dataGridView1.Rows[e.RowIndex].Cells[1].Value.ToString() + "", cn

);

cmd.Transaction = transaction;

cmd.ExecuteNonQuery();

transaction.Commit();

}

catch

{

MessageBox.Show("データベースに接続できませんでした。管理者に連絡してください。");

try

{

transaction.Rollback();

return;

}

catch

{

return;

}

finally

{

cn.Close();

}

button1.PerformClick();

}

DataCheck.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace WindowsFormsApplication1
{
    class DateCheck
    {
        static public string Do(string[] tmp)
        {
            //出社がない
            if (tmp[1] == "") return "NG";

            //出社が日付と同日か
            if(tmp[0] != "" && tmp[1] != "")
            {
                if (DateTime.Parse(tmp[0]).Date != DateTime.Parse(tmp[1]).Date) return "NG";
            }

            //出社したら退社しているか
            if (tmp[1] != "" && tmp[2] == "") return "NG";

            //退社してて出社がない
            if (tmp[1] == "" && tmp[2] != "") return "NG";

            //退社が出社と同日あるいは翌日か、退社が出社より前ではないか
            if (tmp[1] != "" && tmp[2] != "")
            {
                if (DateTime.Parse(tmp[1]) > DateTime.Parse(tmp[2]) || DateTime.Parse(tmp[1]).Date != DateTime.Parse(tmp[2]).Date && DateTime.Parse(tmp[1]).AddDays(1).Date != DateTime.Parse(tmp[2]).Date) return "NG";
            }

            //外出が出社より後で退出より前か
            if (tmp[1] != "" && tmp[2] != "" && tmp[3] != "")
            {
                if (DateTime.Parse(tmp[1]) > DateTime.Parse(tmp[3]) || DateTime.Parse(tmp[2]) < DateTime.Parse(tmp[3])) return "NG";
            }

            //外出したら帰社しているか
            if (tmp[3] != "" && tmp[4] == "") return "NG";

            //帰社してて外出がない
            if (tmp[3] == "" && tmp[4] != "") return "NG";

            //帰社が外出より後で退出より前か
            if (tmp[2] != "" && tmp[3] != "" && tmp[4] != "")
            {
                if (DateTime.Parse(tmp[2]) < DateTime.Parse(tmp[4]) || DateTime.Parse(tmp[3]) > DateTime.Parse(tmp[4])) return "NG";
            }
            return "OK";
        }
    }
}

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace WindowsFormsApplication1

{

class DateCheck

{

static public string Do(string[] tmp)

{

//出社がない

if (tmp[1] == "") return "NG";

//出社が日付と同日か

if(tmp[0] != "" && tmp[1] != "")

{

if (DateTime.Parse(tmp[0]).Date != DateTime.Parse(tmp[1]).Date) return "NG";

}

//出社したら退社しているか

if (tmp[1] != "" && tmp[2] == "") return "NG";

//退社してて出社がない

if (tmp[1] == "" && tmp[2] != "") return "NG";

//退社が出社と同日あるいは翌日か、退社が出社より前ではないか

if (tmp[1] != "" && tmp[2] != "")

{

if (DateTime.Parse(tmp[1]) > DateTime.Parse(tmp[2]) || DateTime.Parse(tmp[1]).Date != DateTime.Parse(tmp[2]).Date && DateTime.Parse(tmp[1]).AddDays(1).Date != DateTime.Parse(tmp[2]).Date) return "NG";

}

//外出が出社より後で退出より前か

if (tmp[1] != "" && tmp[2] != "" && tmp[3] != "")

{

if (DateTime.Parse(tmp[1]) > DateTime.Parse(tmp[3]) || DateTime.Parse(tmp[2]) < DateTime.Parse(tmp[3])) return "NG";

}

//外出したら帰社しているか

if (tmp[3] != "" && tmp[4] == "") return "NG";

//帰社してて外出がない

if (tmp[3] == "" && tmp[4] != "") return "NG";

//帰社が外出より後で退出より前か

if (tmp[2] != "" && tmp[3] != "" && tmp[4] != "")

{

if (DateTime.Parse(tmp[2]) < DateTime.Parse(tmp[4]) || DateTime.Parse(tmp[3]) > DateTime.Parse(tmp[4])) return "NG";

}

return "OK";

}

C#でmdbに登録してエクセルで抜き出して集計

Sub test()

Application.CommandBars("cell").Reset

End Sub
Sub auto_open()

On Error Resume Next

Application.CommandBars("cell").Controls("TC集計開始").Delete
Application.CommandBars("cell").Controls("TC集計開始").Delete

With Application.CommandBars("cell").Controls.Add
  .OnAction = "main"
  .Caption = "TC集計開始"
End With

Application.CommandBars("cell").Controls("確認表示").Delete
Application.CommandBars("cell").Controls("確認表示").Delete

With Application.CommandBars("cell").Controls.Add
  .OnAction = "check_layout"
  .Caption = "確認表示"
End With


End Sub
Sub auto_close()

On Error Resume Next

Application.CommandBars("cell").Controls("TC集計開始").Delete
Application.CommandBars("cell").Controls("TC集計開始").Delete

Application.CommandBars("cell").Controls("確認表示").Delete
Application.CommandBars("cell").Controls("確認表示").Delete

End Sub

Sub check_layout()

tmp = MsgBox("実行後に保存しないよう注意してください。実行しますか？", vbYesNo)
If tmp = vbNo Then Exit Sub

For Each w In Worksheets

  If w.Name <> "MAIN MENU" Then
  
    w.Columns("A:X").ColumnWidth = 0
    w.Rows("1:3").RowHeight = 0
    
  End If
  
Next

MsgBox "終了しました。"

End Sub

Sub init()

For Each w In Worksheets

  If w.Name <> "MAIN MENU" Then

    w.Activate
    w.Unprotect
    w.Range("W4").Select
    
    ActiveWindow.Zoom = 85
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollRow = 1

    w.Range("B5:B35").ClearContents
    w.Range("C5:C35").ClearContents
    w.Range("E5:E35").ClearContents
    w.Range("F5:F35").ClearContents
    w.Range("S5:S35").ClearContents
    w.Range("W4:AK35").ClearContents

    w.Range("B5:C35").NumberFormatLocal = "0"
    w.Range("E5:F35").NumberFormatLocal = "0"
    w.Range("N5:Q35").NumberFormatLocal = "0.00"
    w.Range("W5:W35").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
    w.Range("X5:X35").NumberFormatLocal = "0"
    w.Range("Z5:AD35").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
    w.Range("AE5:AK35").NumberFormatLocal = "@"
  
    For r = 5 To 35
    
      w.Cells(r, 2).Value = "=HOUR(AA" & r & ")"
      w.Cells(r, 3).Value = "=MINUTE(AA" & r & ")"
      w.Cells(r, 5).Value = "=HOUR(AB" & r & ") + (INT(AB" & r & ")-INT(AA" & r & ")) * 24"
      w.Cells(r, 6).Value = "=MINUTE(AB" & r & ")"
      
      w.Cells(r, 14).Value = "=IF(D" & r & "="""","""",(IF(AND(VALUE(D" & r & ")<VALUE(""7:31""),VALUE(D" & r & ")>=VALUE(""6:31"")),1,IF(AND(VALUE(D" & r & ")<VALUE(""6:31""),VALUE(D" & r & ")>=VALUE(""5:31"")),2,IF(AND(VALUE(D" & r & ")<VALUE(""5:31""),VALUE(D" & r & ")>=VALUE(""4:30"")),3,0)))))"
      
      'w.Cells(r, 15).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(D" & r & ")<=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:21"")),8,IF(AND(NOT(VALUE(D" & r & ")<=VALUE(""8:30"")),NOT(VALUE(G" & r & ")>VALUE(""17:21""))),FLOOR(H" & r & "*24-I" & r & ",0.5),IF(AND(VALUE(D" & r & ")>=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:21"")),IF(FLOOR(G" & r & "*24-D" & r & "*24-I" & r & ",0.5)>4,4,FLOOR(G" & r & "*24-D" & r & "*24-I" & r & ",0.5)),IF(VALUE(G" & r & ")<=VALUE(""17:21""),FLOOR(VALUE(G" & r & ")*24-(""8:30"")*24-I" & r & ",0.5))))))"
      'w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(M" & r & "="""",IF(VALUE(G" & r & ")>VALUE(""18:30""),IF(AND(-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)>2,S" & r & "=""申請不要""),2,-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)),0),IF(VALUE(G" & r & ")>VALUE(""18:30""),IF(AND(-Q" & r & "+FLOOR(G" & r & "*24-""17:31""*24,0.5)>2,S" & r & "=""申請不要""),2,-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)),0)))"
      'w.Cells(r, 17).Value = "=IF(H" & r & "="""","""",(IF(VALUE(G" & r & ")*24>TIMEVALUE(""22:01"")*24,FLOOR(G" & r & "-""22:01"",""0:30"")*24,0)))"
      
      ' rev2.3 2016/4/26追加
      w.Cells(r, 15).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(D" & r & ")<=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:20"")),8,IF(AND(VALUE(D" & r & ")>VALUE(""8:30""),VALUE(G" & r & ")<VALUE(""17:20"")),FLOOR(VALUE(H" & r & ")*24-I" & r & ",0.25),IF(AND(VALUE(D" & r & ")>VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:20"")),FLOOR((VALUE(G" & r & ")*24-VALUE(D" & r & ")*24)-I" & r & ",0.25),FLOOR((VALUE(G" & r & ")*24-VALUE(""8:30"")*24)-I" & r & ",0.25)))))"
      'w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(G" & r & ")>VALUE(""18:30""),S" & r & "<>""申請不要""),IF(M" & r & "="""",-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""18:00"")*24,0.25),-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:30"")*24,0.25)),0))"
      w.Cells(r, 17).Value = "=IF(H" & r & "="""","""",IF(VALUE(G" & r & ")*24>VALUE(""22:00"")*24,FLOOR(VALUE(G" & r & ")*24-VALUE(""22:00"")*24,0.25),0))"
      
      ' rev2.5.1
      w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(G" & r & ")>VALUE(""18:14:59""),S" & r & "<>""申請不要""),IF(M" & r & "="""",-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:59:59"")*24,0.25),-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:29:59"")*24,0.25)),0))"
      
    Next r

    DoEvents

  End If
  
Next w

End Sub

Sub ed()

For Each w In Worksheets

  If w.Name <> "MAIN MENU" Then
    
    w.Activate
    
    For r = 5 To 35
    
      If w.Cells(r, 27).Value = "" Then w.Cells(r, 2).Value = ""
      If w.Cells(r, 27).Value = "" Then w.Cells(r, 3).Value = ""
      If w.Cells(r, 28).Value = "" Then w.Cells(r, 5).Value = ""
      If w.Cells(r, 28).Value = "" Then w.Cells(r, 6).Value = ""

      If w.Cells(r, 31).Value = "" And w.Cells(r, 13).Text = "" Then
      
          w.Cells(r, 14).Value = ""
          
      End If
      
      If w.Cells(r, 32).Value = "" And w.Cells(r, 13).Text = "" Then
      
          w.Cells(r, 16).Value = ""
          w.Cells(r, 17).Value = ""
          
      End If

      If w.Cells(r, 33).Value = "" And w.Cells(r, 13).Text <> "" Then
      
          w.Cells(r, 14).Value = ""
          w.Cells(r, 15).Value = ""
          w.Cells(r, 16).Value = ""
          w.Cells(r, 17).Value = ""
          
      End If
      
      Select Case w.Name
      
          Case "xxx"
    
          Case Else
          
              If w.Cells(r, 13).Text = "" Then w.Cells(r, 15).NumberFormatLocal = """-"""
          
      End Select

    Next r

    DoEvents

  End If

  w.Columns("W:AK").AutoFit

Next w

End Sub

Sub ck()

For Each w In Worksheets

  If w.Name <> "MAIN MENU" Then
    
    For r = 5 To 35
    
    Select Case w.Name
    
      Case "xxx"
      Case Else
      
        If IsError(w.Cells(r, 15)) Then
        
          w.Activate: w.Cells(r, 15).Select
          MsgBox w.Name & "の" & r & "行目の定時時間が正しく取得できません。"
        
        Else
        
          If w.Cells(r, 13).Value = "" And w.Cells(r, 15).Value <> "" And w.Cells(r, 15).Value < 8 Then
    
            If w.Cells(r, 19).Value = "" Then
            
              w.Activate: w.Cells(r, 15).Select
              MsgBox w.Name & "の" & r & "行目の定時時間が不足しています。" & Chr(13) & "申請がありません。"
              
            ElseIf w.Cells(r, 19).Value <> "" And w.Cells(r, 19).Value <> "有給" And w.Cells(r, 19).Value <> "半休" Then
            
              w.Activate: w.Cells(r, 15).Select
              MsgBox w.Name & "の" & r & "行目の定時時間が不足しています。" & Chr(13) & "有給・半休が申請されていません。"
              
            End If
          
          End If
        
        End If
      
    End Select
      
    Next r
      
  End If
Next w

End Sub

Private Sub main()

Call init

f = "#" & Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1 00:00:01#"
tmp = DateAdd("d", -1, DateAdd("m", 1, Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1"))
t = "#" & tmp & " 00:00:01#"

For Each w In Worksheets

    If w.Name <> "MAIN MENU" Then
    
      w.Activate

      If False = fnc(w.Name, f, t) Then Exit Sub
      
      DoEvents
      
    End If

Next w

Call ed
Call ck

MsgBox "done"

End Sub

Function n(fld As Variant)

If False = IsNull(fld) Then

    n = CStr(fld)
    Exit Function

End If

n = ""

End Function

Function fnc(u, f, t)

On Error GoTo try

p = ActiveWorkbook.Path & "\Tc_Db.mdb"
s = "SELECT * FROM Tc_Tbl WHERE 氏名 = '" & u & "' AND 日付 BETWEEN " & f & " AND " & t & ""

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & p & ";"
rs.Open s, cn

k = 0
tmp = Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1 00:00:01"

For i = 5 To 35
      If Month(tmp) = Month(DateAdd("d", k, tmp)) Then Sheets(u).Cells(i, 23) = DateAdd("d", k, tmp)
      k = k + 1
Next

For i = 24 To 37
    Sheets(u).Cells(4, i) = rs(i - 24).Name
Next i

Do Until rs.EOF
    
    For r = 5 To 35
    
      If Sheets(u).Cells(r, 23) <> "" And Day(Sheets(u).Cells(r, 23)) = Day(n(rs(2))) Then

        For c = 24 To 37
        
            Sheets(u).Cells(r, c).Value = n(rs(c - 24))
    
        Next c

        If Sheets(u).Cells(r, 31).Value <> "" Then Sheets(u).Cells(r, 19).Value = "早出申請有"
        If Sheets(u).Cells(r, 32).Value <> "" Then Sheets(u).Cells(r, 19).Value = "残業申請有"
        If Sheets(u).Cells(r, 31).Value <> "" And Sheets(u).Cells(r, 32).Value <> "" Then Sheets(u).Cells(r, 19).Value = "残・早申請有"
        If Sheets(u).Cells(r, 33).Value <> "" Then Sheets(u).Cells(r, 19).Value = "休日出勤申請有"
        If Sheets(u).Cells(r, 34).Value <> "" Then Sheets(u).Cells(r, 19).Value = "有休"
        If InStr(Sheets(u).Cells(r, 34).Value, "(") > 0 Then Sheets(u).Cells(r, 19).Value = "半休"
        If Sheets(u).Cells(r, 35).Value <> "" Then Sheets(u).Cells(r, 19).Value = "欠勤"
        If Sheets(u).Cells(r, 36).Value <> "" Then Sheets(u).Cells(r, 19).Value = "代休"
        If InStr(Sheets(u).Cells(r, 37).Value, "申請不要") > 0 Then Sheets(u).Cells(r, 19).Value = "申請不要"
        
      End If
    
    Next r

    rs.MoveNext
    
Loop

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

fnc = True

Exit Function

try:

    MsgBox "error"
    fnc = False
    
End Function

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

Sub test()

Application.CommandBars("cell").Reset

End Sub

Sub auto_open()

On Error Resume Next

Application.CommandBars("cell").Controls("TC集計開始").Delete

With Application.CommandBars("cell").Controls.Add

.OnAction = "main"

.Caption = "TC集計開始"

End With

Application.CommandBars("cell").Controls("確認表示").Delete

With Application.CommandBars("cell").Controls.Add

.OnAction = "check_layout"

.Caption = "確認表示"

End With

End Sub

Sub auto_close()

On Error Resume Next

Application.CommandBars("cell").Controls("TC集計開始").Delete

Application.CommandBars("cell").Controls("確認表示").Delete

End Sub

Sub check_layout()

tmp = MsgBox("実行後に保存しないよう注意してください。実行しますか？", vbYesNo)

If tmp = vbNo Then Exit Sub

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

w.Columns("A:X").ColumnWidth = 0

w.Rows("1:3").RowHeight = 0

End If

MsgBox "終了しました。"

End Sub

Sub init()

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

w.Activate

w.Unprotect

w.Range("W4").Select

ActiveWindow.Zoom = 85

ActiveWindow.ScrollColumn = 1

ActiveWindow.ScrollRow = 1

w.Range("B5:B35").ClearContents

w.Range("C5:C35").ClearContents

w.Range("E5:E35").ClearContents

w.Range("F5:F35").ClearContents

w.Range("S5:S35").ClearContents

w.Range("W4:AK35").ClearContents

w.Range("B5:C35").NumberFormatLocal = "0"

w.Range("E5:F35").NumberFormatLocal = "0"

w.Range("N5:Q35").NumberFormatLocal = "0.00"

w.Range("W5:W35").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"

w.Range("X5:X35").NumberFormatLocal = "0"

w.Range("Z5:AD35").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"

w.Range("AE5:AK35").NumberFormatLocal = "@"

For r = 5 To 35

w.Cells(r, 2).Value = "=HOUR(AA" & r & ")"

w.Cells(r, 3).Value = "=MINUTE(AA" & r & ")"

w.Cells(r, 5).Value = "=HOUR(AB" & r & ") + (INT(AB" & r & ")-INT(AA" & r & ")) * 24"

w.Cells(r, 6).Value = "=MINUTE(AB" & r & ")"

w.Cells(r, 14).Value = "=IF(D" & r & "="""","""",(IF(AND(VALUE(D" & r & ")<VALUE(""7:31""),VALUE(D" & r & ")>=VALUE(""6:31"")),1,IF(AND(VALUE(D" & r & ")<VALUE(""6:31""),VALUE(D" & r & ")>=VALUE(""5:31"")),2,IF(AND(VALUE(D" & r & ")<VALUE(""5:31""),VALUE(D" & r & ")>=VALUE(""4:30"")),3,0)))))"

'w.Cells(r, 15).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(D" & r & ")<=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:21"")),8,IF(AND(NOT(VALUE(D" & r & ")<=VALUE(""8:30"")),NOT(VALUE(G" & r & ")>VALUE(""17:21""))),FLOOR(H" & r & "*24-I" & r & ",0.5),IF(AND(VALUE(D" & r & ")>=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:21"")),IF(FLOOR(G" & r & "*24-D" & r & "*24-I" & r & ",0.5)>4,4,FLOOR(G" & r & "*24-D" & r & "*24-I" & r & ",0.5)),IF(VALUE(G" & r & ")<=VALUE(""17:21""),FLOOR(VALUE(G" & r & ")*24-(""8:30"")*24-I" & r & ",0.5))))))"

'w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(M" & r & "="""",IF(VALUE(G" & r & ")>VALUE(""18:30""),IF(AND(-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)>2,S" & r & "=""申請不要""),2,-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)),0),IF(VALUE(G" & r & ")>VALUE(""18:30""),IF(AND(-Q" & r & "+FLOOR(G" & r & "*24-""17:31""*24,0.5)>2,S" & r & "=""申請不要""),2,-Q" & r & "+FLOOR(G" & r & "*24-""18:01""*24,0.5)),0)))"

'w.Cells(r, 17).Value = "=IF(H" & r & "="""","""",(IF(VALUE(G" & r & ")*24>TIMEVALUE(""22:01"")*24,FLOOR(G" & r & "-""22:01"",""0:30"")*24,0)))"

' rev2.3 2016/4/26追加

w.Cells(r, 15).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(D" & r & ")<=VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:20"")),8,IF(AND(VALUE(D" & r & ")>VALUE(""8:30""),VALUE(G" & r & ")<VALUE(""17:20"")),FLOOR(VALUE(H" & r & ")*24-I" & r & ",0.25),IF(AND(VALUE(D" & r & ")>VALUE(""8:30""),VALUE(G" & r & ")>=VALUE(""17:20"")),FLOOR((VALUE(G" & r & ")*24-VALUE(D" & r & ")*24)-I" & r & ",0.25),FLOOR((VALUE(G" & r & ")*24-VALUE(""8:30"")*24)-I" & r & ",0.25)))))"

'w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(G" & r & ")>VALUE(""18:30""),S" & r & "<>""申請不要""),IF(M" & r & "="""",-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""18:00"")*24,0.25),-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:30"")*24,0.25)),0))"

w.Cells(r, 17).Value = "=IF(H" & r & "="""","""",IF(VALUE(G" & r & ")*24>VALUE(""22:00"")*24,FLOOR(VALUE(G" & r & ")*24-VALUE(""22:00"")*24,0.25),0))"

' rev2.5.1

w.Cells(r, 16).Value = "=IF(H" & r & "="""","""",IF(AND(VALUE(G" & r & ")>VALUE(""18:14:59""),S" & r & "<>""申請不要""),IF(M" & r & "="""",-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:59:59"")*24,0.25),-Q" & r & "+FLOOR(VALUE(G" & r & ")*24-VALUE(""17:29:59"")*24,0.25)),0))"

Next r

DoEvents

End If

Next w

End Sub

Sub ed()

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

w.Activate

For r = 5 To 35

If w.Cells(r, 27).Value = "" Then w.Cells(r, 2).Value = ""

If w.Cells(r, 27).Value = "" Then w.Cells(r, 3).Value = ""

If w.Cells(r, 28).Value = "" Then w.Cells(r, 5).Value = ""

If w.Cells(r, 28).Value = "" Then w.Cells(r, 6).Value = ""

If w.Cells(r, 31).Value = "" And w.Cells(r, 13).Text = "" Then

w.Cells(r, 14).Value = ""

End If

If w.Cells(r, 32).Value = "" And w.Cells(r, 13).Text = "" Then

w.Cells(r, 16).Value = ""

w.Cells(r, 17).Value = ""

End If

If w.Cells(r, 33).Value = "" And w.Cells(r, 13).Text <> "" Then

w.Cells(r, 14).Value = ""

w.Cells(r, 15).Value = ""

w.Cells(r, 16).Value = ""

w.Cells(r, 17).Value = ""

End If

Select Case w.Name

Case "xxx"

Case Else

If w.Cells(r, 13).Text = "" Then w.Cells(r, 15).NumberFormatLocal = """-"""

End Select

Next r

DoEvents

End If

w.Columns("W:AK").AutoFit

Next w

End Sub

Sub ck()

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

For r = 5 To 35

Select Case w.Name

Case "xxx"

Case Else

If IsError(w.Cells(r, 15)) Then

w.Activate: w.Cells(r, 15).Select

MsgBox w.Name & "の" & r & "行目の定時時間が正しく取得できません。"

Else

If w.Cells(r, 13).Value = "" And w.Cells(r, 15).Value <> "" And w.Cells(r, 15).Value < 8 Then

If w.Cells(r, 19).Value = "" Then

w.Activate: w.Cells(r, 15).Select

MsgBox w.Name & "の" & r & "行目の定時時間が不足しています。" & Chr(13) & "申請がありません。"

ElseIf w.Cells(r, 19).Value <> "" And w.Cells(r, 19).Value <> "有給" And w.Cells(r, 19).Value <> "半休" Then

w.Activate: w.Cells(r, 15).Select

MsgBox w.Name & "の" & r & "行目の定時時間が不足しています。" & Chr(13) & "有給・半休が申請されていません。"

End If

End Select

Next r

End If

Next w

End Sub

Private Sub main()

Call init

f = "#" & Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1 00:00:01#"

tmp = DateAdd("d", -1, DateAdd("m", 1, Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1"))

t = "#" & tmp & " 00:00:01#"

For Each w In Worksheets

If w.Name <> "MAIN MENU" Then

w.Activate

If False = fnc(w.Name, f, t) Then Exit Sub

DoEvents

End If

Next w

Call ed

Call ck

MsgBox "done"

End Sub

Function n(fld As Variant)

If False = IsNull(fld) Then

n = CStr(fld)

Exit Function

End If

n = ""

End Function

Function fnc(u, f, t)

On Error GoTo try

p = ActiveWorkbook.Path & "\Tc_Db.mdb"

s = "SELECT * FROM Tc_Tbl WHERE 氏名 = '" & u & "' AND 日付 BETWEEN " & f & " AND " & t & ""

Set cn = CreateObject("ADODB.Connection")

Set rs = CreateObject("ADODB.Recordset")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & p & ";"

rs.Open s, cn

k = 0

tmp = Sheets("MAIN MENU").Cells(5, 4) & "/" & Sheets("MAIN MENU").Cells(5, 5) & "/1 00:00:01"

For i = 5 To 35

If Month(tmp) = Month(DateAdd("d", k, tmp)) Then Sheets(u).Cells(i, 23) = DateAdd("d", k, tmp)

k = k + 1

For i = 24 To 37

Sheets(u).Cells(4, i) = rs(i - 24).Name

Next i

Do Until rs.EOF

For r = 5 To 35

If Sheets(u).Cells(r, 23) <> "" And Day(Sheets(u).Cells(r, 23)) = Day(n(rs(2))) Then

For c = 24 To 37

Sheets(u).Cells(r, c).Value = n(rs(c - 24))

Next c

If Sheets(u).Cells(r, 31).Value <> "" Then Sheets(u).Cells(r, 19).Value = "早出申請有"

If Sheets(u).Cells(r, 32).Value <> "" Then Sheets(u).Cells(r, 19).Value = "残業申請有"

If Sheets(u).Cells(r, 31).Value <> "" And Sheets(u).Cells(r, 32).Value <> "" Then Sheets(u).Cells(r, 19).Value = "残・早申請有"

If Sheets(u).Cells(r, 33).Value <> "" Then Sheets(u).Cells(r, 19).Value = "休日出勤申請有"

If Sheets(u).Cells(r, 34).Value <> "" Then Sheets(u).Cells(r, 19).Value = "有休"

If InStr(Sheets(u).Cells(r, 34).Value, "(") > 0 Then Sheets(u).Cells(r, 19).Value = "半休"

If Sheets(u).Cells(r, 35).Value <> "" Then Sheets(u).Cells(r, 19).Value = "欠勤"

If Sheets(u).Cells(r, 36).Value <> "" Then Sheets(u).Cells(r, 19).Value = "代休"

If InStr(Sheets(u).Cells(r, 37).Value, "申請不要") > 0 Then Sheets(u).Cells(r, 19).Value = "申請不要"

End If

Next r

rs.MoveNext

Loop

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

fnc = True

Exit Function

try:

MsgBox "error"

fnc = False

End Function

2017-01-12

C# 型情報取得

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Windows.Forms;
using System.Reflection;

namespace インスタンスとクラスでのメンバ
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            this.Width = 800;
            this.Height = 600;

            TextBox tb = new TextBox();
            tb.Location = new Point(2, 57);
            tb.Multiline = true;
            tb.Size = new System.Drawing.Size(700, 445);
            tb.Anchor = AnchorStyles.Top | AnchorStyles.Right | AnchorStyles.Bottom | AnchorStyles.Left;
            tb.ScrollBars = ScrollBars.Both;
            Controls.Add(tb);

            Button btn = new Button();
            btn.Text = "click!";
            btn.Location = new Point(2, 2);
            btn.Size = new System.Drawing.Size(100, 50);
            Controls.Add(btn);
            btn.Click += new EventHandler((object sender, EventArgs e)=> {

                //typeofだと型を直接渡す。静的
                //MemberInfo[] mi = typeof(String).GetMembers(
                //GetTypeだとインスタンスから情報取得可能。動的
                System.String s = "Hello World";
                MemberInfo[] mi = s.GetType().GetMembers(
                    BindingFlags.Public | 
                    BindingFlags.NonPublic | 
                    BindingFlags.Instance | 
                    BindingFlags.Static | 
                    BindingFlags.FlattenHierarchy);

                string buff = "";
                foreach (MemberInfo m in mi)
                {
                    buff = m.Module + ": " + m.ReflectedType + ": " + m.MemberType + ": " + m.Name + "\r\n" + buff;
                }
                tb.Text = buff;
            });
        }
    }
}

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Drawing;

using System.Windows.Forms;

using System.Reflection;

namespace インスタンスとクラスでのメンバ

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

this.Width = 800;

this.Height = 600;

TextBox tb = new TextBox();

tb.Location = new Point(2, 57);

tb.Multiline = true;

tb.Size = new System.Drawing.Size(700, 445);

tb.Anchor = AnchorStyles.Top | AnchorStyles.Right | AnchorStyles.Bottom | AnchorStyles.Left;

tb.ScrollBars = ScrollBars.Both;

Controls.Add(tb);

Button btn = new Button();

btn.Text = "click!";

btn.Location = new Point(2, 2);

btn.Size = new System.Drawing.Size(100, 50);

Controls.Add(btn);

btn.Click += new EventHandler((object sender, EventArgs e)=> {

//typeofだと型を直接渡す。静的

//MemberInfo[] mi = typeof(String).GetMembers(

//GetTypeだとインスタンスから情報取得可能。動的

System.String s = "Hello World";

MemberInfo[] mi = s.GetType().GetMembers(

BindingFlags.Public |

BindingFlags.NonPublic |

BindingFlags.Instance |

BindingFlags.Static |

BindingFlags.FlattenHierarchy);

string buff = "";

foreach (MemberInfo m in mi)

{

buff = m.Module + ": " + m.ReflectedType + ": " + m.MemberType + ": " + m.Name + "\r\n" + buff;

}

tb.Text = buff;

});

}

2017-01-112017-01-13

C# Webサーバー

サーバ１

using System;
using System.Windows.Forms;

namespace tcp_listen_client
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            Control.CheckForIllegalCrossThreadCalls = false;
            //スレッドからテキストボックスにアクセスすることを許可

            //スレッドセーフとはアプリをマルチスレッドで走らせても問題ないこと。
            //Formはスレッドセーフではない。
            //通常、Control はメンバの参照時にUIスレッド(Application.Run したスレッド)で操作することを強制。
            //CheckForIllegalCrossThreadCallsをfalseにすると、これを回避できる。
        }

        private System.Net.Sockets.TcpListener server;//リスナー接続待ちや受信等を行うオブジェクト
        private System.Threading.Thread ListeningCallbackThred;//接続待ちスレッド
        private volatile bool SLTAlive;//接続待ちスレッド終了指示フラグ
        
        //volatile
        //複数のスレッドによって変更される可能性がある場合指定。
        //シングルスレット前提の最適化をしない

        private void Form1_Load(object sender, EventArgs e)
        {
            this.Text = "サーバー";
            button1.Text = "サーバー開始";
            button2.Text = "サーバー終了";
            label1.Text = "";

            SLTAlive = false;
            //スレッド終了指示フラグを終了に初期化
        }

        private void Form1_FormClosed(object sender, FormClosedEventArgs e)
        {
            //サーバーを終了するのに、接続待ちスレッドが終了していない場合
            if (SLTAlive)
            {
                SLTAlive = false;
                server.Stop();
                ListeningCallbackThred = null;
                //スレッドをnull設定
            }
        }

        private void button1_Click(object sender, EventArgs e)
        {
            //接続待ちスレッドが生成されていない場合
            if (!SLTAlive)
            {
                ListeningCallbackThred = new System.Threading.Thread(ListeningCallback);
                //ListeningCallbackはメソッド
                ListeningCallbackThred.Start();
                SLTAlive = true;
                //未終了に設定
            }
        }

        private void button2_Click(object sender, EventArgs e)
        {
            if (SLTAlive)
            {
                if (server != null)
                {
                    server.Stop();
                }
            }
            SLTAlive = false;//終了に設定
            label1.Text = "サーバー終了";
        }

        private void ListeningCallback()
        {
            //リスナーを生成
            server = new System.Net.Sockets.TcpListener(System.Net.IPAddress.Parse("192.168.102.9"),9000);
            server.Start();
            label1.Text = "サーバー開始";

            try
            {
                //受信は無限ループ。終了指示があればループ終了
                while (SLTAlive)
                {
                    //受信接続キューに接続待ちがあるかどうか
                    if(server.Pending() == true)
                    {
                        //クライアントからの接続を受け付ける。
                        //通信ストリームの取得
                        System.Net.Sockets.TcpClient ClientSocket = server.AcceptTcpClient();
                        System.Net.Sockets.NetworkStream stream = ClientSocket.GetStream();
                        byte[] ReceiveData = new byte[2000];
                        int DataLength = stream.Read(ReceiveData,0,ReceiveData.Length);

                        // textBox1.Text = ReceiveData.ToString();　こうすると
                        // System.Byte[]と表示される。つまりバイト型の配列になっているということか。

                        //string str = System.Text.Encoding.ASCII.GetString(ReceiveData, 0, DataLength);
                        string str = System.Text.Encoding.GetEncoding("shift_jis").GetString(ReceiveData,0,DataLength);
                        
                        //GETのパラメータに日本語を入れてリクエストした場合、
                        //ASCIIだと??となる。
                        //UTF-8だと文字化けする。
                        //shift_jisでちゃんと表示された。

                        //str = Uri.UnescapeDataString(str);
                        // String <- byte[] GetString
                        // String -> byte[] GetByte

                        textBox1.Text = str;

                        //返信
                        string html = "<a href=\"http://yahoo.co.jp\">hello</a>";
                        byte[] SendBuffer = System.Text.Encoding.ASCII.GetBytes(html);
                        //ASCIの部分をUnicodeにするとブラウザでダウロードしてしまう。

                        stream.Write(SendBuffer, 0, SendBuffer.Length);
                        //stream.Flush();

                        ClientSocket.Close();
                    }
                    //短時間だけ待機
                    System.Threading.Thread.Sleep(100);
                }
            }
            catch(Exception e)
            {
                label1.Text = "サーバー終了";
            }
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

using System;

using System.Windows.Forms;

namespace tcp_listen_client

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

Control.CheckForIllegalCrossThreadCalls = false;

//スレッドからテキストボックスにアクセスすることを許可

//スレッドセーフとはアプリをマルチスレッドで走らせても問題ないこと。

//Formはスレッドセーフではない。

//通常、Control はメンバの参照時にUIスレッド(Application.Run したスレッド)で操作することを強制。

//CheckForIllegalCrossThreadCallsをfalseにすると、これを回避できる。

}

private System.Net.Sockets.TcpListener server;//リスナー接続待ちや受信等を行うオブジェクト

private System.Threading.Thread ListeningCallbackThred;//接続待ちスレッド

private volatile bool SLTAlive;//接続待ちスレッド終了指示フラグ

//volatile

//複数のスレッドによって変更される可能性がある場合指定。

//シングルスレット前提の最適化をしない

private void Form1_Load(object sender, EventArgs e)

{

this.Text = "サーバー";

button1.Text = "サーバー開始";

button2.Text = "サーバー終了";

label1.Text = "";

SLTAlive = false;

//スレッド終了指示フラグを終了に初期化

}

private void Form1_FormClosed(object sender, FormClosedEventArgs e)

{

//サーバーを終了するのに、接続待ちスレッドが終了していない場合

if (SLTAlive)

{

SLTAlive = false;

server.Stop();

ListeningCallbackThred = null;

//スレッドをnull設定

}

private void button1_Click(object sender, EventArgs e)

{

//接続待ちスレッドが生成されていない場合

if (!SLTAlive)

{

ListeningCallbackThred = new System.Threading.Thread(ListeningCallback);

//ListeningCallbackはメソッド

ListeningCallbackThred.Start();

SLTAlive = true;

//未終了に設定

}

private void button2_Click(object sender, EventArgs e)

{

if (SLTAlive)

{

if (server != null)

{

server.Stop();

}

SLTAlive = false;//終了に設定

label1.Text = "サーバー終了";

}

private void ListeningCallback()

{

//リスナーを生成

server = new System.Net.Sockets.TcpListener(System.Net.IPAddress.Parse("192.168.102.9"),9000);

server.Start();

label1.Text = "サーバー開始";

try

{

//受信は無限ループ。終了指示があればループ終了

while (SLTAlive)

{

//受信接続キューに接続待ちがあるかどうか

if(server.Pending() == true)

{

//クライアントからの接続を受け付ける。

//通信ストリームの取得

System.Net.Sockets.TcpClient ClientSocket = server.AcceptTcpClient();

System.Net.Sockets.NetworkStream stream = ClientSocket.GetStream();

byte[] ReceiveData = new byte[2000];

int DataLength = stream.Read(ReceiveData,0,ReceiveData.Length);

// textBox1.Text = ReceiveData.ToString();　こうすると

// System.Byte[]と表示される。つまりバイト型の配列になっているということか。

//string str = System.Text.Encoding.ASCII.GetString(ReceiveData, 0, DataLength);

string str = System.Text.Encoding.GetEncoding("shift_jis").GetString(ReceiveData,0,DataLength);

//GETのパラメータに日本語を入れてリクエストした場合、

//ASCIIだと??となる。

//UTF-8だと文字化けする。

//shift_jisでちゃんと表示された。

//str = Uri.UnescapeDataString(str);

// String <- byte[] GetString

// String -> byte[] GetByte

textBox1.Text = str;

//返信

string html = "<a href=\"http://yahoo.co.jp\">hello</a>";

byte[] SendBuffer = System.Text.Encoding.ASCII.GetBytes(html);

//ASCIの部分をUnicodeにするとブラウザでダウロードしてしまう。

stream.Write(SendBuffer, 0, SendBuffer.Length);

//stream.Flush();

ClientSocket.Close();

}

//短時間だけ待機

System.Threading.Thread.Sleep(100);

}

catch(Exception e)

{

label1.Text = "サーバー終了";

}

サーバ２

using System;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Net;
using System.Net.Sockets;
using System.IO;
using System.Text.RegularExpressions;

namespace SimpSrv
{
    public partial class Form1 : Form
    {
        bool chk;
        TcpListener listener = null;

        public Form1()
        {
            InitializeComponent();
        }

        private async void button1_Click(object sender, EventArgs e)
        {
            if (listener != null) return;

            MessageBox.Show("起動しました。");
            this.Text = "起動中";

            IPAddress ip = IPAddress.Parse("192.168.102.9");
            listener = new TcpListener(ip, 80);

            listener.Start();
            TcpClient client = null;

            chk = true;

            while(true)
            {
                await Task.Run(() =>
                {
                    try
                    {
                        client = listener.AcceptTcpClient();
                    }
                    catch (SocketException ex)
                    {
                        System.Diagnostics.Debug.Print(ex.Message.ToString());
                    }

                });

                if (!chk) break;

                Encoding enc = Encoding.GetEncoding("shift_jis");
                string resMsg = "";
                string sendMsg = "";

                using (NetworkStream ns = client.GetStream())
                {
                    ns.WriteTimeout = 10000;
                    ns.ReadTimeout = 10000;

                    using (MemoryStream ms = new MemoryStream())
                    {
                        byte[] resByte = new byte[1024];
                        int resSize = 0;
                        
                        do
                        {
                            try
                            {
                                resSize = ns.Read(resByte, 0, resByte.Length);
                            }
                            catch (IOException ex)
                            {
                                System.Diagnostics.Debug.Print(ex.Message.ToString());
                                break;
                            }

                            if (resSize == 0) break;
                            ms.Write(resByte, 0, resSize);

                        } while (ns.DataAvailable);

                        resMsg = enc.GetString(ms.GetBuffer(), 0, (int)ms.Length);
                        ms.Close();
                    }

                    Regex reg = new Regex(@"\/\?name=([a-z]+)&id=([0-9]{6})&p=([0-9]{2})\s");
                    Match match = reg.Match(resMsg);

                    if (match.Success)
                    {
                        sendMsg = "\n\n" + Html.MakeHtml(match.Groups[1].ToString(),match.Groups[2].ToString(),match.Groups[3].ToString());
                    }
                    else
                    {
                        sendMsg = "\n\n" + "false";
                    }

                    byte[] sendBytes = enc.GetBytes(sendMsg);

                    try
                    {
                        ns.Write(sendBytes, 0, sendBytes.Length);
                    }
                    catch (IOException ex)
                    {
                        System.Diagnostics.Debug.Print(ex.Message.ToString());
                    }
                    ns.Close();
                }
                client.Close();
            }
        }

        private void button2_Click(object sender, EventArgs e)
        {
            if (listener == null) return;

            MessageBox.Show("終了しました。");
            this.Text = "停止中";

            listener.Stop();
            listener = null;

            chk = false;
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

using System;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

using System.Net;

using System.Net.Sockets;

using System.IO;

using System.Text.RegularExpressions;

namespace SimpSrv

{

public partial class Form1 : Form

{

bool chk;

TcpListener listener = null;

public Form1()

{

InitializeComponent();

}

private async void button1_Click(object sender, EventArgs e)

{

if (listener != null) return;

MessageBox.Show("起動しました。");

this.Text = "起動中";

IPAddress ip = IPAddress.Parse("192.168.102.9");

listener = new TcpListener(ip, 80);

listener.Start();

TcpClient client = null;

chk = true;

while(true)

{

await Task.Run(() =>

{

try

{

client = listener.AcceptTcpClient();

}

catch (SocketException ex)

{

System.Diagnostics.Debug.Print(ex.Message.ToString());

}

});

if (!chk) break;

Encoding enc = Encoding.GetEncoding("shift_jis");

string resMsg = "";

string sendMsg = "";

using (NetworkStream ns = client.GetStream())

{

ns.WriteTimeout = 10000;

ns.ReadTimeout = 10000;

using (MemoryStream ms = new MemoryStream())

{

byte[] resByte = new byte[1024];

int resSize = 0;

{

try

{

resSize = ns.Read(resByte, 0, resByte.Length);

}

catch (IOException ex)

{

System.Diagnostics.Debug.Print(ex.Message.ToString());

break;

}

if (resSize == 0) break;

ms.Write(resByte, 0, resSize);

} while (ns.DataAvailable);

resMsg = enc.GetString(ms.GetBuffer(), 0, (int)ms.Length);

ms.Close();

}

Regex reg = new Regex(@"\/\?name=([a-z]+)&id=([0-9]{6})&p=([0-9]{2})\s");

Match match = reg.Match(resMsg);

if (match.Success)

{

sendMsg = "\n\n" + Html.MakeHtml(match.Groups[1].ToString(),match.Groups[2].ToString(),match.Groups[3].ToString());

}

else

{

sendMsg = "\n\n" + "false";

}

byte[] sendBytes = enc.GetBytes(sendMsg);

try

{

ns.Write(sendBytes, 0, sendBytes.Length);

}

catch (IOException ex)

{

System.Diagnostics.Debug.Print(ex.Message.ToString());

}

ns.Close();

}

client.Close();

}

private void button2_Click(object sender, EventArgs e)

{

if (listener == null) return;

MessageBox.Show("終了しました。");

this.Text = "停止中";

listener.Stop();

listener = null;

chk = false;

}

2017-01-102017-01-17

C# 付箋紙プログラム

以下は未使用。

Program.cs

using System;
using System.Windows.Forms;

namespace sticker_notes
{
    static class Program
    {
        /// <summary>
        /// アプリケーションのメイン エントリ ポイントです。
        /// </summary>
        [STAThread]
        static void Main()
        {
            //Application.EnableVisualStyles();
            //Application.SetCompatibleTextRenderingDefault(false);

            NotifyIcon ni = new System.Windows.Forms.NotifyIcon();
            ni.Visible = true;
            ni.Icon = new System.Drawing.Icon(@"C:\Program Files\Windows Live\Writer\writer.ico");//適当なico

            ni.Click += new EventHandler((object sender, EventArgs e) => {
                Form1 f = new Form1();
                f.Show();
            });

            ni.DoubleClick += new EventHandler((object sender, EventArgs e)=> {
                Application.Exit();
            });

            Application.Run();

        }
    }
}

using System;

using System.Windows.Forms;

namespace sticker_notes

{

static class Program

{

/// <summary>

/// アプリケーションのメインエントリポイントです。

/// </summary>

[STAThread]

static void Main()

{

//Application.EnableVisualStyles();

//Application.SetCompatibleTextRenderingDefault(false);

NotifyIcon ni = new System.Windows.Forms.NotifyIcon();

ni.Visible = true;

ni.Icon = new System.Drawing.Icon(@"C:\Program Files\Windows Live\Writer\writer.ico");//適当なico

ni.Click += new EventHandler((object sender, EventArgs e) => {

Form1 f = new Form1();

f.Show();

});

ni.DoubleClick += new EventHandler((object sender, EventArgs e)=> {

Application.Exit();

});

Application.Run();

}

Form1.cs

using System;
using System.Drawing;
using System.Windows.Forms;

namespace sticker_notes
{
    public partial class Form1 : Form
    {
        int mouseX;
        int mouseY;

        int mouseWith;
        int mouseHeight;

        Boolean FgWith = false;
        Boolean FgHeight = false;

        public Form1()
        {
            InitializeComponent();
            this.FormBorderStyle = FormBorderStyle.None;
            //バーは消えるがサイズ変更できず。

            //this.ControlBox = false;
            //this.Text = "";
            //サイズ変更できるが境界線が消せない。

            this.Opacity = 0.9;
            this.TopMost = true;

            TextBox tb = new System.Windows.Forms.TextBox();
            tb.Dock = DockStyle.Fill;
            tb.Multiline = true;
            tb.Font = new Font("", 12);
            tb.BackColor = Color.Beige;
            this.Controls.Add(tb);

            tb.KeyDown += new KeyEventHandler(this.text_keydown);
            tb.MouseDown += new MouseEventHandler(this.mouse_down);
            tb.MouseMove += new MouseEventHandler(this.mouse_move);
            tb.MouseUp += new MouseEventHandler(this.mouse_up);

        }
        public void mouse_up(object sender, MouseEventArgs e)
        {
            FgWith = false;
            FgHeight = false;
        }

        public void mouse_down(object sender, MouseEventArgs e)
        {
            if (e.Button == MouseButtons.Left)
            {
                this.mouseX = e.X;
                this.mouseY = e.Y;
                this.mouseWith = this.Width;
                this.mouseHeight = this.Height;
            }
        }

        public void mouse_move(object sender, MouseEventArgs e)
        {
            if (e.X > this.Width - 20 && e.X < this.Width &&
                e.Y > this.Height - 20 && e.Y < this.Height && !FgWith && !FgHeight)
            {
                this.Cursor = Cursors.SizeNWSE;
                if (e.Button == MouseButtons.Left)
                {
                    FgWith = true;
                    FgHeight = true;
                }
            }
            else if (e.X > this.Width - 20 && e.X < this.Width && !FgHeight)
            {
                this.Cursor = Cursors.SizeWE;
                if (e.Button == MouseButtons.Left) FgWith = true;
            }
            else if (e.Y > this.Height - 20 && e.Y < this.Height && !FgWith)
            {
                this.Cursor = Cursors.SizeNS;
                if (e.Button == MouseButtons.Left) FgHeight = true;
            }

            if (FgWith && FgHeight && e.Button == MouseButtons.Left)
            {
                this.Width = mouseWith + e.X - this.mouseX;
                this.Height = mouseHeight + e.Y - this.mouseY;
            }
            else if (FgWith && e.Button == MouseButtons.Left)
            {
                this.Width = mouseWith + e.X - this.mouseX;
            }
            else if (FgHeight && e.Button == MouseButtons.Left)
            {
                this.Height = mouseHeight + e.Y - this.mouseY;
            }
            else if (!FgWith && !FgHeight && e.Button == MouseButtons.Left)
            {
                this.Left += e.X - this.mouseX;
                this.Top += e.Y - this.mouseY;
            }

        }
        public void text_keydown(object sender, KeyEventArgs e)
        {
            if (e.KeyCode == Keys.Escape) this.Close();
            if (e.Control && e.KeyCode == Keys.A) (sender as TextBox).SelectAll();
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

using System;

using System.Drawing;

using System.Windows.Forms;

namespace sticker_notes

{

public partial class Form1 : Form

{

int mouseX;

int mouseY;

int mouseWith;

int mouseHeight;

Boolean FgWith = false;

Boolean FgHeight = false;

public Form1()

{

InitializeComponent();

this.FormBorderStyle = FormBorderStyle.None;

//バーは消えるがサイズ変更できず。

//this.ControlBox = false;

//this.Text = "";

//サイズ変更できるが境界線が消せない。

this.Opacity = 0.9;

this.TopMost = true;

TextBox tb = new System.Windows.Forms.TextBox();

tb.Dock = DockStyle.Fill;

tb.Multiline = true;

tb.Font = new Font("", 12);

tb.BackColor = Color.Beige;

this.Controls.Add(tb);

tb.KeyDown += new KeyEventHandler(this.text_keydown);

tb.MouseDown += new MouseEventHandler(this.mouse_down);

tb.MouseMove += new MouseEventHandler(this.mouse_move);

tb.MouseUp += new MouseEventHandler(this.mouse_up);

}

public void mouse_up(object sender, MouseEventArgs e)

{

FgWith = false;

FgHeight = false;

}

public void mouse_down(object sender, MouseEventArgs e)

{

if (e.Button == MouseButtons.Left)

{

this.mouseX = e.X;

this.mouseY = e.Y;

this.mouseWith = this.Width;

this.mouseHeight = this.Height;

}

public void mouse_move(object sender, MouseEventArgs e)

{

if (e.X > this.Width - 20 && e.X < this.Width &&

e.Y > this.Height - 20 && e.Y < this.Height && !FgWith && !FgHeight)

{

this.Cursor = Cursors.SizeNWSE;

if (e.Button == MouseButtons.Left)

{

FgWith = true;

FgHeight = true;

}

else if (e.X > this.Width - 20 && e.X < this.Width && !FgHeight)

{

this.Cursor = Cursors.SizeWE;

if (e.Button == MouseButtons.Left) FgWith = true;

}

else if (e.Y > this.Height - 20 && e.Y < this.Height && !FgWith)

{

this.Cursor = Cursors.SizeNS;

if (e.Button == MouseButtons.Left) FgHeight = true;

}

if (FgWith && FgHeight && e.Button == MouseButtons.Left)

{

this.Width = mouseWith + e.X - this.mouseX;

this.Height = mouseHeight + e.Y - this.mouseY;

}

else if (FgWith && e.Button == MouseButtons.Left)

{

this.Width = mouseWith + e.X - this.mouseX;

}

else if (FgHeight && e.Button == MouseButtons.Left)

{

this.Height = mouseHeight + e.Y - this.mouseY;

}

else if (!FgWith && !FgHeight && e.Button == MouseButtons.Left)

{

this.Left += e.X - this.mouseX;

this.Top += e.Y - this.mouseY;

}

public void text_keydown(object sender, KeyEventArgs e)

{

if (e.KeyCode == Keys.Escape) this.Close();

if (e.Control && e.KeyCode == Keys.A) (sender as TextBox).SelectAll();

}

画像の場合

using System.Windows.Forms;

namespace sticker_notes
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            this.FormBorderStyle = FormBorderStyle.None;

            PictureBox tb = new PictureBox();
            tb.ImageLocation = Application.StartupPath + @"\1.jpg";
            tb.Dock = DockStyle.Fill;
            tb.SizeMode = PictureBoxSizeMode.Zoom;
            this.Controls.Add(tb);
        }
    }
}

using System.Windows.Forms;

namespace sticker_notes

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

this.FormBorderStyle = FormBorderStyle.None;

PictureBox tb = new PictureBox();

tb.ImageLocation = Application.StartupPath + @"\1.jpg";

tb.Dock = DockStyle.Fill;

tb.SizeMode = PictureBoxSizeMode.Zoom;

this.Controls.Add(tb);

}

ここまで未使用。

サイズ変更の作りがおかしかったので、以下、修正版。画像を表示しておくため位置をxmlにシリアライズ。

Progam.cs

using System;
using System.Windows.Forms;

namespace sticker_notes
{
    static class Program
    {
        /// <summary>
        /// アプリケーションのメイン エントリ ポイントです。
        /// </summary>
        [STAThread]
        static void Main()
        {
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);

            NotifyIcon ni = new System.Windows.Forms.NotifyIcon();
            ni.Visible = true;
            ni.Icon = new System.Drawing.Icon(Application.StartupPath + @"\i.ico");
            ni.DoubleClick += new EventHandler((object sender, EventArgs e) => {
                Application.Exit();
            });

            Form1 f = new Form1();
            f.Show();

            Application.Run();
        }
    }
}

using System;

using System.Windows.Forms;

namespace sticker_notes

{

static class Program

{

/// <summary>

/// アプリケーションのメインエントリポイントです。

/// </summary>

[STAThread]

static void Main()

{

Application.EnableVisualStyles();

Application.SetCompatibleTextRenderingDefault(false);

NotifyIcon ni = new System.Windows.Forms.NotifyIcon();

ni.Visible = true;

ni.Icon = new System.Drawing.Icon(Application.StartupPath + @"\i.ico");

ni.DoubleClick += new EventHandler((object sender, EventArgs e) => {

Application.Exit();

});

Form1 f = new Form1();

f.Show();

Application.Run();

}

Form1.cs

using System;
using System.Drawing;
using System.Windows.Forms;

namespace sticker_notes
{
    public partial class Form1 : Form
    {
        int MouseX;
        int MouseY;
        int ThisW;
        int ThisH;
        Boolean FW = false;
        Boolean FH = false;

        public Form1()
        {
            InitializeComponent();
            this.FormBorderStyle = FormBorderStyle.None;
            this.Opacity = 0.9;
            this.TopMost = false;
            this.ShowInTaskbar = false;

            PictureBox pb = new PictureBox();
            pb.Dock = DockStyle.Fill;
            pb.ImageLocation = Application.StartupPath + @"\1.jpg";
            pb.SizeMode = PictureBoxSizeMode.Zoom;
            this.Controls.Add(pb);

            pb.MouseUp += new MouseEventHandler(this.mouse_up);
            pb.MouseDown += new MouseEventHandler(this.mouse_down);
            pb.MouseMove += new MouseEventHandler(this.mouse_move);

            StartPosition = FormStartPosition.Manual;

            try
            {
                System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(int[]));
                using (System.IO.StreamReader sr = new System.IO.StreamReader(Application.StartupPath + @"\config", new System.Text.UTF8Encoding(false)))
                {
                    int[] i = (int[])xs.Deserialize(sr);
                    this.Width = i[0];
                    this.Height = i[1];
                    this.Top = i[2];
                    this.Left = i[3];
                    sr.Close();
                }
            }
            catch (System.IO.FileNotFoundException e)
            {

            }
        }
        public void mouse_up(object sender, MouseEventArgs e)
        {
            FW = false;
            FH = false;

            System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(int[]));
            using (System.IO.StreamWriter sw = new System.IO.StreamWriter(Application.StartupPath + @"\config",false,new System.Text.UTF8Encoding(false)))
            {
                xs.Serialize(sw, new int[] { this.Width, this.Height, this.Top, this.Left });
                sw.Close();
            }
        }
        public void mouse_down(object sender, MouseEventArgs e)
        {
            if (e.Button != MouseButtons.Left) return;

            this.MouseX = e.X;
            this.MouseY = e.Y;
            this.ThisW = this.Width;
            this.ThisH = this.Height;

            if (e.X > this.Width - 20 && e.X < this.Width && e.Y > this.Height - 20 && e.Y < this.Height)
            {
                FW = true;
                FH = true;
            }
            else if (e.X > this.Width - 20 && e.X < this.Width)
            {
                FW = true;
            }
            else if (e.Y > this.Height - 20 && e.Y < this.Height)
            {
                FH = true;
            }
        }

        public void mouse_move(object sender, MouseEventArgs e)
        {
            if (e.X > this.Width - 20 && e.X < this.Width && e.Y > this.Height - 20 && e.Y < this.Height)
            {
                this.Cursor = Cursors.SizeNWSE;
            }
            else if (e.X > this.Width - 20 && e.X < this.Width)
            {
                this.Cursor = Cursors.SizeWE;
            }
            else if (e.Y > this.Height - 20 && e.Y < this.Height)
            {
                this.Cursor = Cursors.SizeNS;
            }
            else
            {
                this.Cursor = Cursors.Default;
            }
             
            if (FW && FH)
            {
                this.Width = this.ThisW + e.X - this.MouseX;
                this.Height = this.ThisH + e.Y - this.MouseY;
            }
            else if (FW)
            {
                this.Width = ThisW + e.X - this.MouseX;
            }
            else if (FH)
            {
                this.Height = ThisH + e.Y - this.MouseY;
            }

            if (!FW && !FH && e.Button == MouseButtons.Left)
            {
                this.Left += e.X - this.MouseX;
                this.Top += e.Y - this.MouseY;
            }
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

using System;

using System.Drawing;

using System.Windows.Forms;

namespace sticker_notes

{

public partial class Form1 : Form

{

int MouseX;

int MouseY;

int ThisW;

int ThisH;

Boolean FW = false;

Boolean FH = false;

public Form1()

{

InitializeComponent();

this.FormBorderStyle = FormBorderStyle.None;

this.Opacity = 0.9;

this.TopMost = false;

this.ShowInTaskbar = false;

PictureBox pb = new PictureBox();

pb.Dock = DockStyle.Fill;

pb.ImageLocation = Application.StartupPath + @"\1.jpg";

pb.SizeMode = PictureBoxSizeMode.Zoom;

this.Controls.Add(pb);

pb.MouseUp += new MouseEventHandler(this.mouse_up);

pb.MouseDown += new MouseEventHandler(this.mouse_down);

pb.MouseMove += new MouseEventHandler(this.mouse_move);

StartPosition = FormStartPosition.Manual;

try

{

System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(int[]));

using (System.IO.StreamReader sr = new System.IO.StreamReader(Application.StartupPath + @"\config", new System.Text.UTF8Encoding(false)))

{

int[] i = (int[])xs.Deserialize(sr);

this.Width = i[0];

this.Height = i[1];

this.Top = i[2];

this.Left = i[3];

sr.Close();

}

catch (System.IO.FileNotFoundException e)

{

}

public void mouse_up(object sender, MouseEventArgs e)

{

FW = false;

FH = false;

System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(int[]));

using (System.IO.StreamWriter sw = new System.IO.StreamWriter(Application.StartupPath + @"\config",false,new System.Text.UTF8Encoding(false)))

{

xs.Serialize(sw, new int[] { this.Width, this.Height, this.Top, this.Left });

sw.Close();

}

public void mouse_down(object sender, MouseEventArgs e)

{

if (e.Button != MouseButtons.Left) return;

this.MouseX = e.X;

this.MouseY = e.Y;

this.ThisW = this.Width;

this.ThisH = this.Height;

if (e.X > this.Width - 20 && e.X < this.Width && e.Y > this.Height - 20 && e.Y < this.Height)

{

FW = true;

FH = true;

}

else if (e.X > this.Width - 20 && e.X < this.Width)

{

FW = true;

}

else if (e.Y > this.Height - 20 && e.Y < this.Height)

{

FH = true;

}

public void mouse_move(object sender, MouseEventArgs e)

{

if (e.X > this.Width - 20 && e.X < this.Width && e.Y > this.Height - 20 && e.Y < this.Height)

{

this.Cursor = Cursors.SizeNWSE;

}

else if (e.X > this.Width - 20 && e.X < this.Width)

{

this.Cursor = Cursors.SizeWE;

}

else if (e.Y > this.Height - 20 && e.Y < this.Height)

{

this.Cursor = Cursors.SizeNS;

}

else

{

this.Cursor = Cursors.Default;

}

if (FW && FH)

{

this.Width = this.ThisW + e.X - this.MouseX;

this.Height = this.ThisH + e.Y - this.MouseY;

}

else if (FW)

{

this.Width = ThisW + e.X - this.MouseX;

}

else if (FH)

{

this.Height = ThisH + e.Y - this.MouseY;

}

if (!FW && !FH && e.Button == MouseButtons.Left)

{

this.Left += e.X - this.MouseX;

this.Top += e.Y - this.MouseY;

}

これでデスクトップに画像を表示しておくことができる。

以下はテキスト用にForm1だけさらに修正。デスクトップに表示させておいてメモとして利用
Form1.cs

using System;
using System.Drawing;
using System.Windows.Forms;

namespace sticker_notes
{
    public partial class Form1 : Form
    {
        int MouseX;
        int MouseY;
        int ThisW;
        int ThisH;
        Boolean FW = false;
        Boolean FH = false;
        Boolean Ctr = false;

        public Form1()
        {
            InitializeComponent();
            this.FormBorderStyle = FormBorderStyle.None;
            this.Opacity = 0.9;
            this.TopMost = false;
            this.ShowInTaskbar = false;
            StartPosition = FormStartPosition.Manual;

            TextBox tb = new TextBox();
            tb.Dock = DockStyle.Fill;
            tb.Multiline = true;
            tb.Font = new Font("メイリオ", 12);

            this.Controls.Add(tb);

            //tb.BackColor = Color.Transparent;
            //this.TransparencyKey = Color.White;           

            try
            {
                System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(int[]));
                using (System.IO.StreamReader sr = new System.IO.StreamReader(Application.StartupPath + @"\config", new System.Text.UTF8Encoding(false)))
                {
                    int[] i = (int[])xs.Deserialize(sr);
                    this.Width = i[0];
                    this.Height = i[1];
                    this.Top = i[2];
                    this.Left = i[3];
                    sr.Close();
                }

                System.Xml.XmlDocument xd = new System.Xml.XmlDocument();
                xd.PreserveWhitespace = true;
                xd.Load(Application.StartupPath + @"\body");
                xs = new System.Xml.Serialization.XmlSerializer(typeof(string));
                using (System.Xml.XmlNodeReader xnr = new System.Xml.XmlNodeReader(xd.DocumentElement))
                {
                    tb.Text = (string)xs.Deserialize(xnr);
                    xnr.Close();
                }
            }
            catch (System.IO.FileNotFoundException e) { }

            tb.MouseUp += new MouseEventHandler(this.mouse_up);
            tb.MouseDown += new MouseEventHandler(this.mouse_down);
            tb.MouseMove += new MouseEventHandler(this.mouse_move);
            tb.TextChanged += new EventHandler(this.body_save);
            tb.KeyDown += new KeyEventHandler((object sender, KeyEventArgs e) => {

                if (e.Control && e.KeyCode == Keys.A) tb.SelectAll();
                if (e.KeyCode == Keys.Escape) Application.Exit();
                if (e.Control) Ctr = true;

            });
            tb.KeyUp += new KeyEventHandler((object sender, KeyEventArgs e) => { Ctr = false; });
            tb.GotFocus += new EventHandler((object sender, EventArgs e) => { this.Opacity = 0.9; });
            tb.LostFocus += new EventHandler((object sender, EventArgs e) => { this.Opacity = 0.5; });
        }
        public void body_save(object sender, EventArgs e)
        {
            System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(String));
            using (System.IO.StreamWriter sw = new System.IO.StreamWriter(Application.StartupPath + @"\body", false, new System.Text.UTF8Encoding(false)))
            {
                xs.Serialize(sw, ((TextBox)sender).Text);
                sw.Close();
            }
        }
        public void mouse_up(object sender, MouseEventArgs e)
        {
            FW = false;
            FH = false;

            System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(int[]));
            using (System.IO.StreamWriter sw = new System.IO.StreamWriter(Application.StartupPath + @"\config",false,new System.Text.UTF8Encoding(false)))
            {
                xs.Serialize(sw, new int[] { this.Width, this.Height, this.Top, this.Left });
                sw.Close();
            }
        }
        public void mouse_down(object sender, MouseEventArgs e)
        {
            if (e.Button != MouseButtons.Left) return;

            this.MouseX = e.X;
            this.MouseY = e.Y;
            this.ThisW = this.Width;
            this.ThisH = this.Height;

            if (e.X > this.Width - 20 && e.X < this.Width && e.Y > this.Height - 20 && e.Y < this.Height)
            {
                FW = true;
                FH = true;
            }
            else if (e.X > this.Width - 20 && e.X < this.Width)
            {
                FW = true;
            }
            else if (e.Y > this.Height - 20 && e.Y < this.Height)
            {
                FH = true;
            }
        }

        public void mouse_move(object sender, MouseEventArgs e)
        {

            if (e.X > this.Width - 20 && e.X < this.Width && e.Y > this.Height - 20 && e.Y < this.Height)
            {
                this.Cursor = Cursors.SizeNWSE;
            }
            else if (e.X > this.Width - 20 && e.X < this.Width)
            {
                this.Cursor = Cursors.SizeWE;
            }
            else if (e.Y > this.Height - 20 && e.Y < this.Height)
            {
                this.Cursor = Cursors.SizeNS;
            }
             
            if (FW && FH)
            {
                this.Width = this.ThisW + e.X - this.MouseX;
                this.Height = this.ThisH + e.Y - this.MouseY;
            }
            else if (FW)
            {
                this.Width = ThisW + e.X - this.MouseX;
            }
            else if (FH)
            {
                this.Height = ThisH + e.Y - this.MouseY;
            }

            if (!FW && !FH && e.Button == MouseButtons.Left && Ctr)
            {
                this.Left += e.X - this.MouseX;
                this.Top += e.Y - this.MouseY;
            }
        }
    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

using System;

using System.Drawing;

using System.Windows.Forms;

namespace sticker_notes

{

public partial class Form1 : Form

{

int MouseX;

int MouseY;

int ThisW;

int ThisH;

Boolean FW = false;

Boolean FH = false;

Boolean Ctr = false;

public Form1()

{

InitializeComponent();

this.FormBorderStyle = FormBorderStyle.None;

this.Opacity = 0.9;

this.TopMost = false;

this.ShowInTaskbar = false;

StartPosition = FormStartPosition.Manual;

TextBox tb = new TextBox();

tb.Dock = DockStyle.Fill;

tb.Multiline = true;

tb.Font = new Font("メイリオ", 12);

this.Controls.Add(tb);

//tb.BackColor = Color.Transparent;

//this.TransparencyKey = Color.White;

try

{

System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(int[]));

using (System.IO.StreamReader sr = new System.IO.StreamReader(Application.StartupPath + @"\config", new System.Text.UTF8Encoding(false)))

{

int[] i = (int[])xs.Deserialize(sr);

this.Width = i[0];

this.Height = i[1];

this.Top = i[2];

this.Left = i[3];

sr.Close();

}

System.Xml.XmlDocument xd = new System.Xml.XmlDocument();

xd.PreserveWhitespace = true;

xd.Load(Application.StartupPath + @"\body");

xs = new System.Xml.Serialization.XmlSerializer(typeof(string));

using (System.Xml.XmlNodeReader xnr = new System.Xml.XmlNodeReader(xd.DocumentElement))

{

tb.Text = (string)xs.Deserialize(xnr);

xnr.Close();

}

catch (System.IO.FileNotFoundException e) { }

tb.MouseUp += new MouseEventHandler(this.mouse_up);

tb.MouseDown += new MouseEventHandler(this.mouse_down);

tb.MouseMove += new MouseEventHandler(this.mouse_move);

tb.TextChanged += new EventHandler(this.body_save);

tb.KeyDown += new KeyEventHandler((object sender, KeyEventArgs e) => {

if (e.Control && e.KeyCode == Keys.A) tb.SelectAll();

if (e.KeyCode == Keys.Escape) Application.Exit();

if (e.Control) Ctr = true;

});

tb.KeyUp += new KeyEventHandler((object sender, KeyEventArgs e) => { Ctr = false; });

tb.GotFocus += new EventHandler((object sender, EventArgs e) => { this.Opacity = 0.9; });

tb.LostFocus += new EventHandler((object sender, EventArgs e) => { this.Opacity = 0.5; });

}

public void body_save(object sender, EventArgs e)

{

System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(String));

using (System.IO.StreamWriter sw = new System.IO.StreamWriter(Application.StartupPath + @"\body", false, new System.Text.UTF8Encoding(false)))

{

xs.Serialize(sw, ((TextBox)sender).Text);

sw.Close();

}

public void mouse_up(object sender, MouseEventArgs e)

{

FW = false;

FH = false;

System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(int[]));

using (System.IO.StreamWriter sw = new System.IO.StreamWriter(Application.StartupPath + @"\config",false,new System.Text.UTF8Encoding(false)))

{

xs.Serialize(sw, new int[] { this.Width, this.Height, this.Top, this.Left });

sw.Close();

}

public void mouse_down(object sender, MouseEventArgs e)

{

if (e.Button != MouseButtons.Left) return;

this.MouseX = e.X;

this.MouseY = e.Y;

this.ThisW = this.Width;

this.ThisH = this.Height;

if (e.X > this.Width - 20 && e.X < this.Width && e.Y > this.Height - 20 && e.Y < this.Height)

{

FW = true;

FH = true;

}

else if (e.X > this.Width - 20 && e.X < this.Width)

{

FW = true;

}

else if (e.Y > this.Height - 20 && e.Y < this.Height)

{

FH = true;

}

public void mouse_move(object sender, MouseEventArgs e)

{

if (e.X > this.Width - 20 && e.X < this.Width && e.Y > this.Height - 20 && e.Y < this.Height)

{

this.Cursor = Cursors.SizeNWSE;

}

else if (e.X > this.Width - 20 && e.X < this.Width)

{

this.Cursor = Cursors.SizeWE;

}

else if (e.Y > this.Height - 20 && e.Y < this.Height)

{

this.Cursor = Cursors.SizeNS;

}

if (FW && FH)

{

this.Width = this.ThisW + e.X - this.MouseX;

this.Height = this.ThisH + e.Y - this.MouseY;

}

else if (FW)

{

this.Width = ThisW + e.X - this.MouseX;

}

else if (FH)

{

this.Height = ThisH + e.Y - this.MouseY;

}

if (!FW && !FH && e.Button == MouseButtons.Left && Ctr)

{

this.Left += e.X - this.MouseX;

this.Top += e.Y - this.MouseY;

}

2016-12-202016-12-23

PHP IPアドレス確認用POST

クライアント

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;

using System.IO;
//参照設定 Microsoft XML, v6.0
using MSXML2;

namespace Post_Db
{
    public partial class Form1 : Form
    {
        private string DoPost()
        {
            XMLHTTP xh = new XMLHTTP();
            string param = @"&key=xxx&name=" + Environment.MachineName;
            xh.open("POST", "http://xxx/post.php", false);
            xh.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
            xh.send(param);
            return xh.responseText;
        }

        public Form1()
        {
            InitializeComponent();
            DoPost();
        }
    }
}

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;

using System.IO;

//参照設定 Microsoft XML, v6.0

using MSXML2;

namespace Post_Db

{

public partial class Form1 : Form

{

private string DoPost()

{

XMLHTTP xh = new XMLHTTP();

string param = @"&key=xxx&name=" + Environment.MachineName;

xh.open("POST", "http://xxx/post.php", false);

xh.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");

xh.send(param);

return xh.responseText;

}

public Form1()

{

InitializeComponent();

DoPost();

}

あるいは、

require 'net/http'
res = Net::HTTP.post_form(URI.parse('http://xxx.com/post.php'),
{'key'=>'xxx'})

require 'net/http'

res = Net::HTTP.post_form(URI.parse('http://xxx.com/post.php'),

{'key'=>'xxx'})

Winならタスクスケジュール、ubuntuならCRONに設定しておくと、
定期的にWan側のIPがレンサバに表示できるので、そのWan側のIPを使って、
SoftEtherをダイナミックDNSではなく、IP直打ちもできる。
xxx.xxx.xxx.xxx/192.168.xxx.xxxのような感じで入力する。

post.php

<?php
ini_set("display_errors","On");
ini_set("error_reporting",E_ALL);
class App{
	private function main(){
		if(array_key_exists("key",$_POST) && $_POST["key"] == "xxx"){
			$current = file_get_contents("_index.html");
			 $current = "Name:" . $_POST["name"] . " / Date:" . date("Y/m/d H:i:s") . "
" . $current;
			file_put_contents("_index.html", $current);
		}
	}
	public function __construct(){
		$this->main();
	}
}
new App;

<?php

ini_set("display_errors","On");

ini_set("error_reporting",E_ALL);

class App{

private function main(){

if(array_key_exists("key",$_POST) && $_POST["key"] == "xxx"){

$current = file_get_contents("_index.html");

$current = "Name:" . $_POST["name"] . " / Date:" . date("Y/m/d H:i:s") . "

" . $current;

file_put_contents("_index.html", $current);

}

public function __construct(){

$this->main();

}

new App;

s.css

*{font-size:18px;}
a{text-decoration:none;}
@media screen and (max-device-width: 480px) {
*{font-size:32px;}
a{font-size:64px;}
}

*{font-size:18px;}

a{text-decoration:none;}

@media screen and (max-device-width: 480px) {

*{font-size:32px;}

a{font-size:64px;}

}

2016-10-052017-10-31

C# DirectShow

DirectShow導入

以下のコマンドを走らせると、QuartzTypeLib.dllができる。
“C:\Program Files\Microsoft SDKs\Windows\v10.0A\bin\NETFX 4.6.1 Tools\TlbImp.exe” “C:\windows\System32\quartz.dll”
できたら、参照設定に直接追加する。

ちなみに、DirectShowでmp4を再生する場合、
ffdshow
をインストールする。
DirectShowフィルタのみチェックでOK。

Haali Media Splitter
をインストールする。
Disable MPC internal Matroska splitter
のチェックを外す。

GraphEdit

DirectShowを確認できるソフトだが、Microsoft SDKs\WIndows\V7.1\Bin\
には見つからなかった。最終的にGraphStudioNextというのが近いらしく、これを利用することに。

非公式だが、以下からだとgraph editが行けるらしい。
http://www.digital-digest.com/dvd/downloads/showsoftware_graphedit_141.html

とりあえず動画の再生

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;

using System.Runtime.InteropServices;
using QuartzTypeLib;

namespace TestMovie
{
    public partial class Form1 : Form
    {
        private FilgraphManager fgm = null;
        private IMediaControl imc = null;
        private IVideoWindow ivw = null;
        private IMediaEventEx ime = null;
        private IBasicVideo ibv = null;
        private IMediaPosition imp = null;

        public Form1()
        {
            InitializeComponent();
            button1.Click += new EventHandler(FileOpen);
        }

        private void ComRelease()
        {
            if (fgm != null) Marshal.ReleaseComObject(fgm);
            if (ibv != null) Marshal.ReleaseComObject(ibv);
            if (ivw != null) Marshal.ReleaseComObject(ivw);
        }
        private void FileOpen(object sender, EventArgs e)
        {
            ComRelease();
            OpenFileDialog fd = new OpenFileDialog();
            if (DialogResult.OK == fd.ShowDialog())
            {
                try
                {
                    fgm = new FilgraphManager();
                    fgm.RenderFile(fd.FileName);

                    ibv = (IBasicVideo2)fgm;
                    ivw = (IVideoWindow)fgm;

                    int h = 0; int w = 0;
                    ibv.GetVideoSize(out w, out h);

                    fgm.Run();
                }
                catch (Exception exp)
                {
                    MessageBox.Show(exp.Message);
                    ComRelease();
                }
            }
        }
    }
}

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;

using System.Runtime.InteropServices;

using QuartzTypeLib;

namespace TestMovie

{

public partial class Form1 : Form

{

private FilgraphManager fgm = null;

private IMediaControl imc = null;

private IVideoWindow ivw = null;

private IMediaEventEx ime = null;

private IBasicVideo ibv = null;

private IMediaPosition imp = null;

public Form1()

{

InitializeComponent();

button1.Click += new EventHandler(FileOpen);

}

private void ComRelease()

{

if (fgm != null) Marshal.ReleaseComObject(fgm);

if (ibv != null) Marshal.ReleaseComObject(ibv);

if (ivw != null) Marshal.ReleaseComObject(ivw);

}

private void FileOpen(object sender, EventArgs e)

{

ComRelease();

OpenFileDialog fd = new OpenFileDialog();

if (DialogResult.OK == fd.ShowDialog())

{

try

{

fgm = new FilgraphManager();

fgm.RenderFile(fd.FileName);

ibv = (IBasicVideo2)fgm;

ivw = (IVideoWindow)fgm;

int h = 0; int w = 0;

ibv.GetVideoSize(out w, out h);

fgm.Run();

}

catch (Exception exp)

{

MessageBox.Show(exp.Message);

ComRelease();

}

2016-10-042017-01-27

C# Seleniumの利用

Selenium Client & WebDriver Language BindingsのC#をダウンロードする。

解凍した中身をコピーする。

C:\Windows\Microsoft.NET\Framework\v4.0.30319

csc.exeがある場所と同階層にcsc.rspがあるのでと追記する。

/r:Selenium.WebDriverBackedSelenium.dll

/r:ThoughtWorks.Selenium.Core.dll

/r:WebDriver.dll

/r:WebDriver.Support.dll

.Netの標準dll以外で参照設定したサードパーティのdllは実行ファイルと実行ファイルと同フォルダ内に配置する。

Firefox以外は作成した実行ファイルと同じ場所にDriverが必要。

The Internet Explorer Driver Serverから32 bit Windows IEをダウロードする。

解凍した実行ファイル（IEDriverServer.exe）は作成した実行ファイルと同一階層におく必要はないが、パスが通ってないとダメ？ためしに、c:\置いたけどエラーがでる。

C:\Windows\Microsoft.NET\Framework\v4.0.30319に置くか、作成した実行ファイルと同一階層なら大丈夫だった。

2016-09-292020-05-07

C# FFmpegにコマンド投げる①

カット

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 fffmpg
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            //TestクラスでSettingクラスの動作を調べた
            //TestClass.t.buf = "hello";
            //Settings.LoveFromXml();
            //MessageBox.Show(Settings.Instance.Text.ToString());

            listBox1.AllowDrop = true;
        }

        private void button1_Click(object sender, EventArgs e)
        {

            Decimal sp = Decimal.Parse(textBox1.Text);
            Decimal ep = Decimal.Parse(textBox2.Text);

            foreach (string s in listBox1.Items){
                //MessageBox.Show(s.ToString());

                System.Diagnostics.Process p = 
                System.Diagnostics.Process.Start(
                    Application.StartupPath + @"\ffmpeg.exe"
                    , "-ss " + sp.ToString() + " -i \"" + s.ToString() + "\" -t " + (ep - sp).ToString() + " output.mp4");

                p.WaitForExit();

            }

            //Settings.Instance.Text = "";
            //ここでのInstanceはgetが働いている。getで自身のクラスのインスタスを生成している。
            //Settings.SaveToXml();
        }

        private void listBox1_DragEnter(object sender, DragEventArgs e)
        {
            if (e.Data.GetDataPresent(DataFormats.FileDrop))
            {
                //e.Dataはドラッグ中のデータのこと。
                //DataFormats.FileDropはファイルという意味で、GetDataPresentメソッドはそれを確認するメソッド
                //e.Effectは操作で受け付けるかどうか。

                e.Effect = DragDropEffects.Copy;
            }
            else
            {
                e.Effect = DragDropEffects.None;
            }

        }

        private void listBox1_DragDrop(object sender, DragEventArgs e)
        {
            string[] file_name = (string[])e.Data.GetData(DataFormats.FileDrop, false);
            listBox1.Items.AddRange(file_name);
        }

        private void textBox4_TextChanged(object sender, EventArgs e)
        {
            if (textBox3.Text == "" || textBox4.Text == "") return;

            decimal tmp = decimal.Parse(textBox3.Text);
            tmp = (tmp * 60) + decimal.Parse(textBox4.Text);
            textBox2.Text = tmp.ToString();
        }
    }
}

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 fffmpg

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

//TestクラスでSettingクラスの動作を調べた

//TestClass.t.buf = "hello";

//Settings.LoveFromXml();

//MessageBox.Show(Settings.Instance.Text.ToString());

listBox1.AllowDrop = true;

}

private void button1_Click(object sender, EventArgs e)

{

Decimal sp = Decimal.Parse(textBox1.Text);

Decimal ep = Decimal.Parse(textBox2.Text);

foreach (string s in listBox1.Items){

//MessageBox.Show(s.ToString());

System.Diagnostics.Process p =

System.Diagnostics.Process.Start(

Application.StartupPath + @"\ffmpeg.exe"

, "-ss " + sp.ToString() + " -i \"" + s.ToString() + "\" -t " + (ep - sp).ToString() + " output.mp4");

p.WaitForExit();

}

//Settings.Instance.Text = "";

//ここでのInstanceはgetが働いている。getで自身のクラスのインスタスを生成している。

//Settings.SaveToXml();

}

private void listBox1_DragEnter(object sender, DragEventArgs e)

{

if (e.Data.GetDataPresent(DataFormats.FileDrop))

{

//e.Dataはドラッグ中のデータのこと。

//DataFormats.FileDropはファイルという意味で、GetDataPresentメソッドはそれを確認するメソッド

//e.Effectは操作で受け付けるかどうか。

e.Effect = DragDropEffects.Copy;

}

else

{

e.Effect = DragDropEffects.None;

}

private void listBox1_DragDrop(object sender, DragEventArgs e)

{

string[] file_name = (string[])e.Data.GetData(DataFormats.FileDrop, false);

listBox1.Items.AddRange(file_name);

}

private void textBox4_TextChanged(object sender, EventArgs e)

{

if (textBox3.Text == "" || textBox4.Text == "") return;

decimal tmp = decimal.Parse(textBox3.Text);

tmp = (tmp * 60) + decimal.Parse(textBox4.Text);

textBox2.Text = tmp.ToString();

}

コンバート

using System;
using System.Windows.Forms;

namespace fffmpg
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            listBox1.AllowDrop = true;
        }

        private void button1_Click(object sender, EventArgs e)
        {
            foreach (string s in listBox1.Items){
                
                System.Diagnostics.Process p = System.Diagnostics.Process.Start(
                Application.StartupPath + @"\ffmpeg.exe", "-i \"" + s.ToString() + "\" -acodec libmp3lame -ab 256k \"" + System.IO.Path.GetFileNameWithoutExtension(s) + ".mp3\"");

                p.WaitForExit();
                
            }
        }

        private void listBox1_DragEnter(object sender, DragEventArgs e)
        {
            if (e.Data.GetDataPresent(DataFormats.FileDrop))
            {
                e.Effect = DragDropEffects.Copy;
            }
            else
            {
                e.Effect = DragDropEffects.None;
            }

        }

        private void listBox1_DragDrop(object sender, DragEventArgs e)
        {
            string[] file_name = (string[])e.Data.GetData(DataFormats.FileDrop, false);
            listBox1.Items.AddRange(file_name);
        }
    }
}

using System;

using System.Windows.Forms;

namespace fffmpg

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

listBox1.AllowDrop = true;

}

private void button1_Click(object sender, EventArgs e)

{

foreach (string s in listBox1.Items){

System.Diagnostics.Process p = System.Diagnostics.Process.Start(

Application.StartupPath + @"\ffmpeg.exe", "-i \"" + s.ToString() + "\" -acodec libmp3lame -ab 256k \"" + System.IO.Path.GetFileNameWithoutExtension(s) + ".mp3\"");

p.WaitForExit();

}

private void listBox1_DragEnter(object sender, DragEventArgs e)

{

if (e.Data.GetDataPresent(DataFormats.FileDrop))

{

e.Effect = DragDropEffects.Copy;

}

else

{

e.Effect = DragDropEffects.None;

}

private void listBox1_DragDrop(object sender, DragEventArgs e)

{

string[] file_name = (string[])e.Data.GetData(DataFormats.FileDrop, false);

listBox1.Items.AddRange(file_name);

}

2016-09-29

C# Listをソート

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 LISTをソート
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            //多次元配列はそのままではソートできない。
            //List<>でもインスタンスにはSort()があるが、ちょっと難しい。

            //listに渡す型 = string[] のリストという意味

            List<string[]> ls = new List<string[]>();

            ls.Add(new string[] { "1", "ichiro" } );
            ls.Add(new string[] { "3", "saburo" } );
            ls.Add(new string[] { "2", "jiro" } );

            foreach(string[] l in ls)
            {
                foreach (string s in l)
                {
                    MessageBox.Show(s.ToString());
                    //1
                    //ichiro
                    //3
                    //saburo
                    //2
                    //jiro
                }
            }
        }
    }
}

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 LISTをソート

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

//多次元配列はそのままではソートできない。

//List<>でもインスタンスにはSort()があるが、ちょっと難しい。

//listに渡す型 = string[] のリストという意味

List<string[]> ls = new List<string[]>();

ls.Add(new string[] { "1", "ichiro" } );

ls.Add(new string[] { "3", "saburo" } );

ls.Add(new string[] { "2", "jiro" } );

foreach(string[] l in ls)

{

foreach (string s in l)

{

MessageBox.Show(s.ToString());

//1

//ichiro

//3

//saburo

//2

//jiro

}