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

お世話になっております。

Formから起動させたコマンドプロンプトを常に最前面に表示しようとしています。

下記のような場合はコマンドプロンプトは常に最前面に表示させることは可能なの
でしょうか？
ご教授、アドバイス等宜しくお願いします。
（.NET 2005 C#使用して開発しています。）

---------------------------------
Form1にForm2とコマンドプロンプトを起動させるボタンがあり、Form2はTopMostの
プロパティをtrueに設定していています。
Form2を起動後、Form1からコマンドプロンプトを起動させます。この時にコマンド
プロンプトを最前面に表示させたいと思っています。

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

        private void button1_Click(object sender, EventArgs e)
        {
            Form2 f2 = new Form2();
            f2.Show();
        }

        private void button2_Click(object sender, EventArgs e)
        {
            System.Diagnostics.Process.Start("cmd");
        }
        
        
//Form2
        public Form2()
        {
            InitializeComponent();
            this.TopMost = true;
        }

■No8414 (トラフィ さん) に返信
> VC# で　WEBアプリです       
> int型のものにドロップダウンリスト（test)の値を格納したいんですが、選択が無い場合、エラーが出てしまうので選択が無い場合は0をいれるようにしたいです。
> ＊の部分にヌルのものを入れればいけると思えるんですがいろいろ試しましたがどうしてもエラーでうまくいきません。

Validator使わないのですか？
事前に何が入ってるのか確認しないのですか？

if (test.Value.Equals("")) iValue = 0;
else iValue = Convert.ToInt32(test.Value);
----------------------------------------------
int iValue = 0;
try {
   iValue = Convert.ToInt32(test.SelectedValue);
}
catch (Exception ex) {
  //
}
----------------------------------------------

普通、未選択状態が０なら、未選択は選択してないだけでデフォルトの選択肢ってことだから、
デフォルトの選択肢に値を設定しておけばいいだけの話とも言えますよね？

お世話になっております。

numericUpDownコントロールでMouseWheelイベントの検出を行いたいと思っています。

調べたところイベントは独自で追加する必要があるというのはわかったのですが、Form1にあるコントロールが
Labelの場合は問題なくイベントを検出してくれるのですが、numericUpDownの場合はイベントの検出が行えません。
（ブレークポイントをいれてもそこで止まってくれない）

現在下記のように記述しています。
どのようにすればイベントの検出ができるのでしょうか？
ご教授、アドバイス等宜しくお願いします。
(C#、 .NET Framwork2.0)


-----------------------------------
Form1にnumericUpDown1が1つある状態です。

        private void InitializeComponent()
        {
        	//省略
        	this.MouseWheel += new System.Windows.Forms.MouseEventHandler(this.Form1_MouseWheel);
        }
        
        
//Form1
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_MouseWheel(object sender, System.Windows.Forms.MouseEventArgs e)
        {
            Console.WriteLine("ここでブレークポイントをおいています。");
        }
    }

お世話になっております。

numericUpDownコントロールでマウスの移動量に関係なく+/-1づつ値をnumericUpDown.Valueに入れたいと思っています。

下記のように移動量を取得して、移動量分を増減させようとしたのですが、境界値では移動量分の増減となってしまいまし
た。

そこで、MouseWheelのイベント発生時にマウスの移動量は無視して指定した値を、numericUpDown.Valueに入れたいのです
が、そのようなことはできるのでしょうか？

ご教授、アドバイス宜しくお願いします。
(C# .NET Framwork2.0)
--------------

        private void NumericUpDown1_MouseWheel(object sender, System.Windows.Forms.MouseEventArgs e)
        {
            Microsoft.VisualBasic.Devices.Computer myComputer = new Microsoft.VisualBasic.Devices.Computer();
            int i = myComputer.Mouse.WheelScrollLines;

            try
            {
                if (numericUpDown1.Value >= 0)
                {
                    if (e.Delta > 0)
                    {
                        numericUpDown1.Value += 1 - i;

                    }
                    else
                    {
                        numericUpDown1.Value -= 1 - i;
                    }
                }
                else
                {
                    if (e.Delta > 0)
                    {
                        numericUpDown1.Value += 1 - i;

                    }
                    else
                    {
                        numericUpDown1.Value -= 1 - i;
                    }
                }
            }
            catch (ArgumentOutOfRangeException)
            {
                //max:100, min:-100とし場合
                if (numericUpDown1.Value >= 100)
                {
                    numericUpDown1.Value = 100;
                }
                else
                {
                    numericUpDown1.Value = -100;
                }
            }
        }

RUNさん、mあさん、@echoさん、れいさん返信ありがとうございます。

教えて頂いたソースをC#に変更して実行したら
　・境界値の挙動で2ノッチしないと値が変わらない・・・
　・VBも計算式もよくわからなかったので、値を減らす場合の処理がいいのか不明・・・
といった問題が残りましたが、大体考えていた挙動になりましたので、
解決済とさせて頂きます。

ありがとうございました。

--------------------------
以下れいさんに教えて頂いたソースのC#に変更したものです。

    public class SlowWheelNumericUpDown : NumericUpDown
    {
        private int wheeldelta = 0;
        protected override void WndProc(ref Message m)
        {
            if (m.Msg == 0x20A)
            {
                if (SystemInformation.MouseWheelScrollLines > 0)
                {
                    int delta;
                    wheeldelta += ((int)m.WParam >> 16);
                    delta = (wheeldelta / 120) + 120 / SystemInformation.MouseWheelScrollLines;
                    if (wheeldelta < 0)
                    {
                        delta = -delta;
                    }
                    wheeldelta = wheeldelta % 120;
                    m.WParam = (IntPtr)((delta << 16) | ((int)m.WParam & 0xffff));
                }
            }

            base.WndProc(ref m);
        }
    }

ご回答頂き、ありがとうございます。
なにぶん時間が無かったもので、結局解決致しました。

下記ロジックにてツリービューにデータを格納することが出来ました。

 '------------------------
    'SUB名　　  ：btnTeritory_Click
    '作成者　　 ：osada
    '作成日　　 ：2007/10/02
    '引数　　　 ：-
    '処理概要　 ：各検索キーワードを元にテリトリーを検索する
    '           ：
    '修正履歴　 ：
    '------------------------
    Protected Sub btnTeritory_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnTeritory.Click
        Try
            '検索フラグをテリトリー検索に設定する
            blnSearchFlg = False
            lblSelectSearch.Text = "テリトリー検索"
            'TreeNode初期化
            TreeView1.Nodes.Clear()
            '初期項目【Selection】
            Dim SELECTIONNode As New TreeNode("Selections")
            SELECTIONNode.ImageUrl = "~/image/フォルダロゴ.bmp"
            'ツリービューにノードを格納
            TreeView1.Nodes.Add(SELECTIONNode)
            '************* ページレイアウト作成処理 Start *************
            'メッセージラベル初期化
            lblErr.Text = ""
            '************* ページレイアウト作成処理 End *************

            '******** ドロップダウンリストの値を取得する Start ********
            'ビジネスドロップダウンリストの値格納
            Dim strBZNS As String = drpBzns.Text
            '変換処理【ビジネスコード取得】
            InitCodeConvert(strBZNS)
            '県ドロップダウンリストの値格納
            Dim strKen As String = drpKen.Text
            '変換処理【県コード取得】
            InitCodeConvert(strKen)
            '支店ドロップダウンリストの値格納
            Dim strShiten As String = drpShiten.Text
            '変換処理【支店コード取得】
            InitCodeConvert(strShiten)
            '******** ドロップダウンリストの値を取得する Start ********

            'テリトリー検索ボタン押下時のストアドプロシージャ
            Dim strSQL As String = "PKG_TETRYSEARCH.SP_TETRYSEARCH"

            'オラクルコネクションの生成 及び 接続文字列の関連付け
            cn = New OracleConnection(setting.ConnectionString)

            'オラクルコマンドの生成 及び ストアドプロシージャの関連付け
            cmd = New OracleCommand(strSQL, cn)
            'オラクルコマンドタイプの指定
            cmd.CommandType = Data.CommandType.StoredProcedure

            'パラメータ設定を行う
            funParaAdd(cmd, strBZNS, strKen, strShiten, blnSearchFlg)

            '現在ビジネスコード宣言
            Dim strNowBzns As String = ""
            '過去ビジネスコード宣言
            Dim strPrevBzns As String = ""
            'ツリーノード宣言【ビジネス】
            Dim BznsNode As TreeNode

            '接続オープン
            cn.Open()

            'データリーダにてストアドプロシージャの実行
            dr = cmd.ExecuteReader()

            If dr.Read = False Then
                lblErr.Text = "データベースに値が存在しません。"
            Else
                Do
                    '現在のビジネスコードを格納
                    strNowBzns = dr("BSNSCD")

                    '現在ビジネスと変数ビジネスが等しいかを判定
                    If strPrevBzns <> strNowBzns Then
                        'ツリーノードを生成【ビジネス】 及び ビジネス項目格納
                        BznsNode = New TreeNode(strNowBzns)
                        'ロゴ格納
                        BznsNode.ImageUrl = "~/image/ビジネスノードロゴ.bmp"
                        ''チェックボックス付与
                        'BznsNode.ShowCheckBox = True
                        'ツリービューにノードを格納
                        TreeView1.Nodes.Add(BznsNode)
                    End If

                Loop Until dr.Read = False

            End If
            'オラクルデータリーダーの接続Close
            dr.Close()
            'オラクルコネクションの接続Close
            cn.Close()

            '******** ボタン制御 Start **********
            'クリアボタン使用可能
            btnClear.Enabled = True
            '社内用Excelボタン使用可能
            btnInExcel.Enabled = True
            '社外用Excelボタン使用可能
            btnOutExcel.Enabled = True
            '品目検索ボタン使用不可
            btnMDLSearch.Enabled = False
            'ﾃﾘﾄﾘｰ検索ボタン使用不可
            btnTeritory.Enabled = False
            '******** ボタン制御 End **********

        Catch ex As Exception
            'エラー内容表示
            lblErr.Text = ex.Message
        Finally
            'DB接続インスタンスの解放を行う
            InitDBReaderDispose(cn, cmd, dr)
        End Try
    End Sub

本当にありがとうございます。
これからも宜しくお願い致します。

■No8872 (えく さん) に返信
> あらかじめ用意されたHTMLのテーブルの中へ表示するにはどうしたらいいのでしょうか

あっ、見落としてたorz

ちょっと確認ですが、

(1)
+------+------+------+
|      |[    ]|      |
+------+------+------+ こんな感じで各セルに表示
|      |[    ]|      | [    ]がテキストボックスね
+------+------+------+
|      |[    ]|      |
+------+------+------+

(2)
+------+------+------+
|      |      |      |
+------+------+------+
|      |      |      |
+------+------+------+
|      |[    ]|      | こんな感じであるセルに表示
|      |[    ]|      |
|      |[    ]|      |
+------+------+------+

のどっちのイメージでしょうか？

(1)なら「あらかじめ用意されたHTMLのテーブル」の行数が静的なものなら
データの数に応じてってのは変ですよね。

(2)なら対象セル内に先に挙げた３つのどれかを置けば良さそう。

■No8677 (tk さん) に返信
> MSゴシック 9ptですが、フォントの高さの1/3 くらいは空いています。
> やりたいのはテキストエディタのような行間の狭さです。

「やりたいこと」に即しているかどうかはともかくとして、とりあえず、こんな感じで行間は変化しました。
行間によっては、文字の一部が切れるのでご注意あれ。

//-------------------------------
// PARAFORMAT2 の宣言方法については、先述の No8707 の通り。

[DllImport("user32", SetLastError = true)]
static extern int SendMessage(IntPtr hWnd, int Msg, IntPtr wParam, ref PARAFORMAT2 lParam);

private void button1_Click(object sender, EventArgs e)
{
    int size = Marshal.SizeOf(typeof(PARAFORMAT2));

    PARAFORMAT2 pf = new PARAFORMAT2();
    pf.cbSize = (uint)size;
    //pf.rgxTabs = new int[MAX_TAB_STOPS];
    pf.dwMask |= PFM_LINESPACING;
    pf.bLineSpacingRule = 4;
    //pf.dyLineSpacing = (int)numericUpDown1.Value;
    pf.dyLineSpacing = 210;

    int start = richTextBox1.SelectionStart;
    int length = richTextBox1.SelectionLength;
    richTextBox1.SelectAll();

    /* int ret = */ SendMessage(richTextBox1.Handle, EM_SETPARAFORMAT, IntPtr.Zero,ref pf);

    richTextBox1.Select(start, length);
}