2013年11月16日土曜日

みーちゃん

少し前(10月中旬)にアイコンのニャンコが旅立ちました。

次女が生まれてすぐにもらってきて、ほぼ18年。

火葬にしようかとも思ったのですが、所有している山へ埋葬する事に。

長男より長い付き合いでした。。。。

2013年11月12日火曜日

VB.NET NumericUpDownコントロール

VB.NET で、NumericUpDownを使用しようかと・・・
(いきなり本題w)

で、お決まりのEnterキーでの項目遷移

OnKeyDownイベントでSelectNextControlを動かせば良いらしい。

で、実行。

動くけどBeep音がやかましい。

ググってみたけどなかなかHitしない。
諦めかけた時、ありました。
で、下記が反映させたソース

    '''' <summary>
    '''' キーダウン
    '''' </summary>
    Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then
            e.SuppressKeyPress = True
            Me.FindForm.SelectNextControl(Me, True, True, True, True)
        End If
        MyBase.OnKeyDown(e)
    End Sub

NumericUpDownの派生クラスで作ってみたけど
まあ、普通にイベントを拾えばできるんじゃあないかなぁ・・・

これだけで反日もとい半日かかった orz
(どうしてこんな誤変換を・・・w)