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

VS2008 C#
いつも大変お世話になっています。

マウスの左ボタンを押した状態で別のコントロール内にマウスを進入させるのですが、
そうした場合通常は、別のコントロールのMouseMoveイベントが機能しませんが、
それを機能させるにはどうしたらいいのでしょうか。

失敗例
        class aaa : Control
        {
            const int WM_MOUSEMOVE = 0x200;　　　// このWindeowsMessageではだめです。 
            protected override void WndProc(ref Message m)
            {
                switch (m.Msg)
                {
                    case WM_MOUSEMOVE:
                        Console.WriteLine("aaa>>> " + m.Msg); break;
                }
                base.WndProc(ref m);
            }
        }

ご指導よろしくお願いいたします。

開発環境Visual Studio2008 Professional Edition 評価版

お世話になります。

Webフォーム(WebForm1.aspx)を使用してC#で作った画面(MakeScreen.aspx)を
下記のJavaScriptを使用して呼び出しています。↓
ClientScript.RegisterStartupScript(cstype, "OpenNewWindow", 
"<script language='javascript'>
rtn=window.showModalDialog('MakeScreen.aspx', null, 'dialogWidth=600px; dialogHeight=600px; 
resizable=yes; scroll=no; titlebar=no; toolbar=no;');if(rtn == '')
{form1.TextBoxHidden.innerText = \"\";}else{form1.TextBoxHidden.innerText = 
\"setCompany\";form1.submit();}</script>");

画面が表示されるとタイトルバー及び、タイトルバーに[X}ボタンが表示されます。

Webフォーム(WebForm1.aspx)を使用してC#で作成した際には、上記のタイトルバー及び、
タイトルバーには[X}ボタンはありませんので画面を閉じる際の事後処理は、画面作成時に
ツールボックスのボタンで作成した[キャンセル]ボタンの
btn_Cancel_Click(object sender, ImageClickEventArgs e)
で行っています。

この事後処理を、タイトルバーに[X}ボタンを押下する場合に走るイベントに追加したいので調査した結果、
protected void Page_Close(object sender, EventArgs e)
なのではと思いブレイクポイントを貼ってみたのですが[X]押下時に入ってきませんでした。

他には、Windowsフォーム画面等はあるのですが、Webフォームのやり方を見つける事が出来ませんでした。

そもそも、Webフォームでは[X]のイベントで処理をする方法などは一般的ではないのか、
それとも存在しないのかわかりません。

誠に申し訳ないのですが、知っている方がいましたらご教授お願い致します。

■No86436 (mako さん) に返信


若干違うかもしれませんが
以下のようにNullの要素を追加するとそこだけデータがプロットされません。
時間の項目に文字列を使うのはグラフ上扱いにくいのでグラフ用のDataTableを
用意されて時間項目はDateTime型にされた方がよいです。
DataTable１つの場合はDataSetを使う必要はなくDataTable直接でよいです。

        _tbl = New DataTable()
        With _tbl.Columns
            .Add("t", GetType(DateTime))
            .Add("y1", GetType(Integer))
            .Add("y2", GetType(Integer))
        End With

        With _tbl.Rows
            .Add(Date.Today.AddHours(8).AddMinutes(45), 30, 2)
            .Add(Date.Today.AddHours(9).AddMinutes(0), 20, 3)
            .Add(Date.Today.AddHours(9).AddMinutes(15), 20, 3)
            .Add(Date.Today.AddHours(9).AddMinutes(30), 5, 4)
            .Add(Date.Today.AddHours(9).AddMinutes(45), 10, 8)
            .Add(Date.Today.AddHours(10).AddMinutes(0), 15, 10)
            .Add(Date.Today.AddHours(10).AddMinutes(15), DBNull.Value, DBNull.Value)
            .Add(Date.Today.AddHours(10).AddMinutes(30), DBNull.Value, DBNull.Value)
            .Add(Date.Today.AddHours(11).AddMinutes(15), 5, 3)
            .Add(Date.Today.AddHours(11).AddMinutes(30), 20, 15)
            .Add(Date.Today.AddHours(11).AddMinutes(45), 5, 3)
            .Add(Date.Today.AddHours(12).AddMinutes(0), 10, 8)
            .Add(Date.Today.AddHours(12).AddMinutes(15), 20, 10)
        End With

        Chart1.DataSource = _tbl
        With Chart1.ChartAreas(0)
            With .AxisX
                .Minimum = Date.Today.AddHours(8).AddMinutes(45).ToOADate
                .Maximum = Date.Today.AddHours(12).AddMinutes(15).ToOADate
                .IntervalType = DataVisualization.Charting.DateTimeIntervalType.Minutes
                .Interval = 30


                Dim isFirst = True
                For Each row In _tbl.Select("", "t")
                    Dim dt = row.Field(Of Date)("t")
                    If isFirst OrElse dt.Minute = 0 OrElse dt.Minute = 30 Then
                        With .CustomLabels.Add(dt.AddMinutes(-3).ToOADate, dt.AddMinutes(3).ToOADate, dt.ToString("HH:mm"))
                            .RowIndex = 0
                        End With
                    End If
                    isFirst = False
                Next


            End With
        End With
        With Chart1.Series(0)
            .XValueMember = "t"
            .YValueMembers = "y1"
        End With
        With Chart1.Series.Add("")
            .ChartType = SeriesChartType.Line
            .EmptyPointStyle.Color = Color.Transparent
            .XValueMember = "t"
            .YValueMembers = "y2"
        End With

VB2015を使用しております。

Chart機能を使っていて、X=0とY=0の位置の背景にに水平および垂直なラインを描画したいと考えています。


プリペイントのところにクロスラインの描画のコードを書くと表示することはできました。


    Private Sub Chart1_PrePaint(sender As Object, e As ChartPaintEventArgs) Handles Chart1.PrePaint


        Dim g As Graphics = e.ChartGraphics.Graphics

            g.DrawLine(ZeroCrossLinePen, )
            g.DrawLine(ZeroCrossLinePen, )

    End Sub


しかし、チャートのデータ一つの場合には問題ないのですが、
2つ以上表示させた場合、ゼロクロスラインが一回目（以下のch1）に表示したデータラインの上にオーバーレイしてしまいます。
2回目に表示したライン（ch2）はゼロクロスラインの上にうまく描画されます。

        With vvv Chart1


            .Series.Clear()



            .Series.Add("ch1")


            With .Series("ch1")

                .ChartType = SeriesChartType.Line
                .BorderWidth = 2

                .Color = Color.Red
                .Points.DataBindXY( , )


            End With


                With .Series("ch2")

                    .ChartType = SeriesChartType.Line
                    .BorderWidth = 2

                    .Color = Color.Blue

                    .Points.DataBindXY( , )


                End With


	End With


恐らく、ch1を表示した時にPrePaintが実行され、
更にch2を表示した時にも再度PrePaintが実行されているために、
一回目に表示したラインが下に隠れてしまうのではないかと思います。


一体、どうすれば2本のチャートを表示しても
ゼロクロスラインをうまく表示することができますか？