VB.NET




↓デザイナが作成したコード
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
'
'社員コード
'
Me.社員コード.Location = New System.Drawing.Point(50, 40)
Me.社員コード.MaxLength = 4
Me.社員コード.Name = "社員コード"
Me.社員コード.Size = New System.Drawing.Size(43, 19)
Me.社員コード.TabIndex = 0
'
'社員名
'
Me.社員名.Location = New System.Drawing.Point(50, 87)
Me.社員名.MaxLength = 50
Me.社員名.Name = "社員名"
Me.社員名.Size = New System.Drawing.Size(185, 19)
Me.社員名.TabIndex = 1
'
'基本給
'
Me.基本給.Location = New System.Drawing.Point(50, 135)
Me.基本給.MaxLength = 6
Me.基本給.Name = "基本給"
Me.基本給.Size = New System.Drawing.Size(83, 19)
Me.基本給.TabIndex = 2
Me.基本給.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.基本給)
Me.Controls.Add(Me.社員名)
Me.Controls.Add(Me.社員コード)
Me.KeyPreview = True
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()

Me.KeyPreview = True が必要です

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Public Declare Sub keybd_event Lib "user32" ( _
              ByVal bVk As Byte, _
              ByVal bscan As Integer, _
              ByVal dwflags As Integer, _
              ByVal dwExtraInfo As IntPtr)
Public Const KEYEVENTF_KEYUP = &H2
Public Const VK_TAB = &H9

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs ) Handles Me.KeyPress

    If e.KeyChar = ControlChars.Cr Then
        Call keybd_event(VK_TAB, 0, 0, 0)
        Call keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0)
    End If

End Sub

フォームは、コントロールを選択してコピーします。

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices; // DllImport の為に追加

namespace mtn_01c
{
    public partial class Form1 : Form
    {
        [DllImport("user32.dll", CharSet = CharSet.Auto)]
        public static extern void keybd_event(Byte bVk, Byte dummy, Int32 dwFlags, IntPtr dwExtraInfo);
        public const Int32 KEYEVENTF_KEYUP = 0x02;
        public const Byte VK_TAB = 0x09;

        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_KeyPress(object sender, KeyPressEventArgs e)
        {
            if ( e.KeyChar == (char)13 ) {
                keybd_event(VK_TAB, 0, 0, IntPtr.Zero);
                keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, IntPtr.Zero);
            }
        }

    }
}

メニューは、MenuStrip を使用します

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Private Sub 社員コード_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles 社員コード.Validating

    If Trim(Me.社員コード.Text) = "" Then
        e.Cancel = True
        MessageBox.Show("必須入力です")
    End If

End Sub

Private Sub 終了_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 終了.Click

    End

End Sub

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
private void 終了_Click(object sender, EventArgs e)
{
    Application.Exit();
}

private void 社員コード_Validating(object sender, CancelEventArgs e)
{
    if (this.社員コード.Text.Trim() == "") {
        e.Cancel = true;
        MessageBox.Show("必須入力です");
    }
}