Enterキーで次のコントロールへ移動するかを示す値を取得または設定します。
True:移動する False:移動しない 既定値:False
(CustomInterface.IEnterToNextControl.IsEnterToNextControlを実装)
'CustomNumericTextBox1コントロールをEnterキー押下時に次のコントロールに移動するよう指定します。 Me.CustomNumericTextBox1.IsEnterToNextControl = True '------------------------------------------------------------------------------------------- 'フォーム内に配置されたすべてのカスタムコントロールをEnterキー押下時に次のコントロールに移動するよう指定します。 '------------------------------------------------------------------------------------------- 'CustomButton1クリックイベント Private Sub CustomButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles CustomButton1.Click Call SetEnterToNextControl(Me) End Sub '指定したコントロール内に配置されたすべてのカスタムコントロールをEnterキー押下時に次のコントロールに移動するよう指定します。 Private Sub SetEnterToNextControl(ByVal parent As Control) For Each ctrl As Control In parent.Controls If ctrl.HasChildren = True Then Call SelEnterToNextControl(ctrl) End If If TypeOf (ctrl) Is CustomControls.CustomInterface.IEnterToNextControl Then CType(ctrl, CustomControls.CustomInterface.IEnterToNextControl).IsEnterToNextControl = True End If Next End Sub