Private Sub UltraCalculator1_BeforeActionButtonPressed(ByVal sender As Object, _ ByVal e As Infragistics.Win.UltraWinEditors.UltraWinCalc.OnCalculateImmediateEventArgs) _ Handles UltraCalculator1.BeforeActionButtonPressed ' 押されたボタンのキーをチェックします。 If e.Operation = "A1" Then ' ここでコードを実装して、データベースに保存しユーザー用にデータを ' 印刷します Me.UltraLabel1.Text = "The current Value, " + e.CurrentValueDecimal.ToString() + _ ", has been saved to your database." End If End Sub