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

お世話になります。以前同様の質問をしたのですが、
解決に至らなかったため、再度サンプルソースを
掲載して質問させてください。

Panel上にTextBoxを用意します。
このTextBoxはPanelのサイズを越えた大きさです。
PanelのAutoScrollプロパティをTrueにしている為、
自動的に垂直スクロールバーが表示されています。
スクロールバー自体の操作でスクロールは勿論のことですが、
▲▼ボタンでも上下させたいと考えています。

問題は起動直後に下を見るために上にスクロールさせようとして、
「▼ボタン」を押下した際、VerticalScroll.Valueの値に｢3｣が
入ってしまいます。
また、それ以降ボタンを押すとスクロールバーが無反応→スクロール
→無反応の繰り返しになってしまいます。(但しPanelの中身自体は
スクロールしてる･･･)

原因がわからないのでどなたか知恵をお貸し下さい。
環境はVS2005/C#/.net2.0です。宜しくお願いします。

--------------------------------------------------
    public partial class Form9 : Form
    {
        private System.Windows.Forms.Panel panel1;
        private System.Windows.Forms.TextBox textBox1;
        private System.Windows.Forms.Button button1;
        private System.Windows.Forms.Button button2;
        private System.Windows.Forms.TextBox textBox2;
        private System.Windows.Forms.TextBox textBox3;

        public Form9()
        {
            InitializeComponent();
        }

        // フォームロード
        private void Form9_Load(object sender, EventArgs e)
        {
            this.textBox2.Text += String.Format("Panel-Width:{0}\r\n", this.panel1.Width);
            this.textBox2.Text += String.Format("Panel-Height:{0}\r\n", this.panel1.Height);
            this.textBox2.Text += String.Format("TextBox-Width:{0}\r\n", this.textBox1.Width);
            this.textBox2.Text += String.Format("TextBox-Height:{0}\r\n", this.textBox1.Height);

            this.textBox2.Text += String.Format("VerticalScroll-Maximum:{0}\r\n", this.panel1.VerticalScroll.Maximum);
            this.textBox2.Text += String.Format("VerticalScroll-Minimum:{0}\r\n", this.panel1.VerticalScroll.Minimum);
            this.textBox2.Text += String.Format("VerticalScroll-LargeChange:{0}\r\n", this.panel1.VerticalScroll.LargeChange);
            this.textBox2.Text += String.Format("VerticalScroll-SmallChange:{0}\r\n", this.panel1.VerticalScroll.SmallChange);
            this.textBox2.Text += String.Format("VerticalScroll-Value:{0}\r\n", this.panel1.VerticalScroll.Value);
        }

        // ▼キーを押した時
        private void button2_Click(object sender, EventArgs e)
        {
            if (this.panel1.VerticalScroll.Value + 100 <= this.panel1.VerticalScroll.Maximum)
            {
                this.panel1.VerticalScroll.Value += 100;
            }
            else
            {
                this.panel1.VerticalScroll.Value = this.panel1.VerticalScroll.Maximum;
            }

            this.textBox3.Text = this.panel1.VerticalScroll.Value.ToString();
        }

        // ▲キーを押した時
        private void button1_Click(object sender, EventArgs e)
        {
            if (this.panel1.VerticalScroll.Minimum <= this.panel1.VerticalScroll.Value - 100)
            {
                this.panel1.VerticalScroll.Value -= 100;
            }
            else
            {
                this.panel1.VerticalScroll.Value = this.panel1.VerticalScroll.Minimum;
            }

            this.textBox3.Text = this.panel1.VerticalScroll.Value.ToString();
        }

        // 初期化
        private void InitializeComponent()
        {
            this.panel1 = new System.Windows.Forms.Panel();
            this.textBox1 = new System.Windows.Forms.TextBox();
            this.button1 = new System.Windows.Forms.Button();
            this.button2 = new System.Windows.Forms.Button();
            this.textBox2 = new System.Windows.Forms.TextBox();
            this.textBox3 = new System.Windows.Forms.TextBox();
            this.panel1.SuspendLayout();
            this.SuspendLayout();
            // 
            // panel1
            // 
            this.panel1.AutoScroll = true;
            this.panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle;
            this.panel1.Controls.Add(this.textBox1);
            this.panel1.Location = new System.Drawing.Point(12, 12);
            this.panel1.Name = "panel1";
            this.panel1.Size = new System.Drawing.Size(281, 308);
            this.panel1.TabIndex = 0;
            // 
            // textBox1
            // 
            this.textBox1.Location = new System.Drawing.Point(3, 3);
            this.textBox1.Multiline = true;
            this.textBox1.Name = "textBox1";
            this.textBox1.Size = new System.Drawing.Size(256, 548);
            this.textBox1.TabIndex = 0;
            // 
            // button1
            // 
            this.button1.Location = new System.Drawing.Point(77, 524);
            this.button1.Name = "button1";
            this.button1.Size = new System.Drawing.Size(65, 54);
            this.button1.TabIndex = 1;
            this.button1.Text = "▲";
            this.button1.UseVisualStyleBackColor = true;
            this.button1.Click += new System.EventHandler(this.button1_Click);
            // 
            // button2
            // 
            this.button2.Location = new System.Drawing.Point(160, 524);
            this.button2.Name = "button2";
            this.button2.Size = new System.Drawing.Size(65, 54);
            this.button2.TabIndex = 2;
            this.button2.Text = "▼";
            this.button2.UseVisualStyleBackColor = true;
            this.button2.Click += new System.EventHandler(this.button2_Click);
            // 
            // textBox2
            // 
            this.textBox2.Location = new System.Drawing.Point(12, 326);
            this.textBox2.Multiline = true;
            this.textBox2.Name = "textBox2";
            this.textBox2.Size = new System.Drawing.Size(281, 116);
            this.textBox2.TabIndex = 3;
            // 
            // textBox3
            // 
            this.textBox3.Location = new System.Drawing.Point(12, 461);
            this.textBox3.Multiline = true;
            this.textBox3.Name = "textBox3";
            this.textBox3.Size = new System.Drawing.Size(281, 27);
            this.textBox3.TabIndex = 4;
            // 
            // Form9
            // 
            this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 12F);
            this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
            this.ClientSize = new System.Drawing.Size(306, 590);
            this.Controls.Add(this.textBox3);
            this.Controls.Add(this.textBox2);
            this.Controls.Add(this.button2);
            this.Controls.Add(this.button1);
            this.Controls.Add(this.panel1);
            this.Name = "Form9";
            this.Text = "Form9";
            this.Load += new System.EventHandler(this.Form9_Load);
            this.panel1.ResumeLayout(false);
            this.panel1.PerformLayout();
            this.ResumeLayout(false);
            this.PerformLayout();

        }

■No44652 (やまり さん) に返信
> 文字列の置換なのですが、ちょっと思いついたことがあって、

Replace 系のメソッドを使わずに実装してみました。

-----------
Dim src As String = "これとこれとこれとこれ"
Dim before As String = "これ"
Dim after As String = "あれ"

'Split 関数を使い、「これ」で分断して配列にする
Dim X As New List(Of String)(Split(src, before))

If X.Count > 2 Then
    '何番目を置き換えるかをランダムに決定
    Dim R As New Random()
    Dim I As Integer = R.Next(X.Count - 1)

    'その場所を「あれ」で繋げる
    X(I) &= after & X(I + 1)

    '繋いだ場所は取り除く
    X.RemoveAt(I + 1)
End If

'置き換えなかった場所をすべて「これ」で繋ぎ直して、文字列に戻す
Dim dst As String = Join(X.ToArray(), before)

いつもお世話になっております。
二つのテーブルがあります。

<<テーブルＡ>>　　　　　　　　　　　<<テーブルＢ>>
ID　名前　　地域コード　フラグ　　　ID  地域コード　地域名
10  あああ　　　　　1   true　　　　01          1   北海道
11  いいい　　　　　2   false　　　 02          2   東北
12  ううう　　　　　3   true        03          3   関東
13  えええ　　　　　4   true        04          4   九州


<<テーブルＡ>>をDataGridViewに表示するのですが、
地域コードの部分は<<テーブルＢ>>の「地域名」を
表示したいと思っています。
また変更を可能にする為、地域名はComboBox型のセルで
ユーザが選択可能にします。

こんな感じです。（▼はComboBoxセルとお考え下さい。）
-------------------------------------
ID  名前      地域名    フラグ
10  あああ　　北海道▼  true
11  いいい　　　東北▼  false
12  ううう　　　関東▼  true
13  えええ　　　九州▼  true
-------------------------------------

ComboBox型のセルのDisplayMemberに<<テーブルＢ>>の地域名、
ValueMemberに地域コードのフィールド名を指定したのですが、
実行して表示をすると、

「FormatException: DataGridViewComboBoxCellの値が有効ではありません。」

のメッセージが表示されます。

実は、テーブルＡの地域コードがvarcharで、
テーブルＢの地域コードがintと言う事が発覚し、
これが原因で変換が出来ないのかと推測しています。
（既存部分の兼ね合いでフィールドの型の変更は不可です。）

この推測が当たっている場合、どのようにすれば変換出来るのか、
また外れている場合は何が考えられるかをお教え頂けませんか？

VS2005/C#/.net2.0です。
宜しくお願い致します。

遅くなりました。レスありがとうございます。

■No44746 (gtk2k さん) に返信
> コンボボックスにセットするデータを取得時にデータ型を変換すればいいと思うんだが
> SELECT CONVERT(NVARCHAR, PLACE_CODE) AS PLACE_CODE, PLACE_NAME FROM TableB

やってみましたが、やはりうまくいきません。
型の違いではないような気がします。

一応抜粋ですが、最低限の部分です。
-------------------------
private void GetDataFromDB()
{
    // データをテーブルから取得する
    dataAdapter.FillDataSet(ds.TableA, "Select * from テーブルA");
    dataAdapter.FillDataSet(ds.TableB, "Select * from テーブルB"); // gtk2kさんのSQL文も試しましたが変わらずです。

    // 各BindingSourceにＤＢのテーブルをアタッチする
    this.mTableADataTableBindingSource.DataSource = ds.TableA;
    this.mTableBDataTableBindingSource.DataSource = ds.TableB;
}

また、表示させるDataGridViewのComboBoxColumnのプロパティは

[DataPropertyName]:AreaCode(テーブルＡの地域コードです)
[DataSource]:mTableBDataTableBindingSource;(テーブルＢへのアタッチ用BindingSource)
[DisplayMember]:AreaName(テーブルＢの地域名です。)
[ValueMember]:AreaCode(テーブルＢの地域コードです)

---------------------------
あまり意味がないかも知れませんが
通常のComboBoxでも同様のテーブルを
アタッチして試してみました･･･

this.ComboBox1.SelectedValue = 1
this.ComboBox1.SelectedValue = "1"

のどちらでも"北海道"と表示されました。

今回の場合はDataGridViewなので、
SelectedValueは関係ないとは思うのですが
内部的に呼ばれていたりしないのかな･･･と。

RowsAddedイベントとかで変換してやる等
しないといけないんでしょうか。
編集後はまたＤＢに反映させるので、
再変換等あまりしたくはないのですが･･･。

すみませんがもう少し回答お待ちします。

皆さん回答ありがとうございます

減算ということで
白の用紙と黄色の用紙の色の差分をとって
画像から算出した差を引いてみました。

差分の色 = RGB(255,255,255) - RGB(255,255,0)

変換された色 = 画像の色 - 差分の色(0,0,255)


この様にすると画像から青の成分がすべて消えてしまいました^^;
まぁ、青の成分255を引いてるから当たり前ですね



> ちょっと追加
> ＞理屈的には地の髪の色の補色を減算ですかね？
> って書きましたが、計算の意味としては正確には地の色の明るさを乗算ですかね…
> ※今回のように255か0かなら同じ結果になりますが。
> 
> 本来の色*地の色/255
> かな。

なるほど、単純に引くだけじゃ駄目なんですね

一応完成したのでソースをUPしておきます。
GetPixelとSetPixelは遅いので実際はunsafeを利用したものに
置き換えています。

-----------------------------------------------------------

        Bitmap _drawImage = new Bitmap(800, 600);
        Point _drawImagePoint = new Point();

        private void panel1_Paint(object sender, PaintEventArgs e)
        {
            e.Graphics.DrawImage(_drawImage, _drawImagePoint);
        }


        private void button1_Click(object sender, EventArgs e)
        {

            Bitmap targetBmp = new Bitmap("テスト画像.png");
            Color targetColor = Color.Empty; //画像から取得した色
            Color setColor = Color.Empty;    //新しくセットする色
            Color backColor = Color.FromArgb(255, 255, 0); ;  //背景の色(用紙)
            float roundValue = 0.5f;//四捨五入の補正用

            Graphics g = Graphics.FromImage(_drawImage);
            g.Clear(backColor);


            int red, blue, green;

            for (int x = 0; x < targetBmp.Width; x++)
            {
                for (int y = 0; y < targetBmp.Height; y++)
                {
                    targetColor = targetBmp.GetPixel(x, y);

                    red = (int)(targetColor.R * backColor.R / 255 + roundValue);
                    green = (int)(targetColor.G * backColor.G / 255 + roundValue);
                    blue = (int)(targetColor.B * backColor.B / 255 + roundValue);

                    setColor = Color.FromArgb(red, green, blue);

                    targetBmp.SetPixel(x, y, setColor);
                }
            }

            g.DrawImage(targetBmp, _drawImagePoint);
            g.Dispose();

            panel1.Refresh();

        }

■No44846 (たろ さん) に返信
> セクション名を指定して情報を取得する処理は、
> [DllImport("kernel32")]
> private static extern int GetPrivateProfileString(string section,string key,string def,StringBuilder retVal,int size,string filePath);
> を使用して実現できているのですが、
> セクション名だけを取得する処理がわかりません。。

GetPrivateProfileString API だけでいけますよ。
http://msdn.microsoft.com/ja-jp/library/cc429779.aspx

// C#
[DllImport("kernel32", CharSet = CharSet.Auto)]
private static extern int GetPrivateProfileString(
    string section,
    string key,
    string def,
    char[] retVal,
    int size,
    string filePath);

static void Main(string[] args)
{
    char[] buf = new char[1024];
    int ret = GetPrivateProfileString(null, null, null, buf, buf.Length, "odbc.ini");
    string sectionsText = new string(buf, 0, ret);
    string[] sections = sectionsText.TrimEnd('\0').Split('\0');

    // 内容確認
    Array.ForEach(sections, Console.WriteLine);
}

'-----------------------------------------

' Visual Basic
Declare Auto Function GetPrivateProfileString Lib "kernel32" _
    (ByVal section As String, _
     ByVal key As String, _
     ByVal def As String, _
     <Out(), MarshalAs(UnmanagedType.LPTStr)> ByVal buf As String, _
     ByVal size As Integer, _
     ByVal file As String) As Integer

Sub Main()
    Dim buf As String = StrDup(1024, vbNullChar)
    Dim ret As Integer = GetPrivateProfileString(Nothing, Nothing, Nothing, buf, buf.Length, "odbc.ini")
    Dim sections() As String = Left(buf, ret).TrimEnd(vbNullChar).Split(vbNullChar)

    '内容確認
    Array.ForEach(sections, AddressOf Console.WriteLine)
End Sub