Need Text Box Help

[tamik0]

I need to store the values of my input text boxes into the variables I have declared (in bold) . My text boxes atr txtInitialValue, txtAssetLife and txtSalvageValue. Can anyone help? Here is my code:



Option Explicit On
Option Strict On

Imports System.Convert

Public Class frmMain
Inherits System.Windows.Forms.Form


Private mlblInitialValue As Double
Private mlblSalvageValue As Double
Private mlblAssetLife As Single


Private Const cintCol1Start As Integer = 100
Private Const cintCol2Start As Integer = 250
Private Const cintCol3Start As Integer = 400
Private Const cintCol4Start As Integer = 550
Private Const cintColWidth As Integer = 150

Private mfntPrint As Font
Private msngFontHeight As Single
Private msngYPos As Single
Private mfnrPrint As Font

[QVeen72]

I need to store the values ...

Hi,

Write the code in LostFocus of all the TextBox :
ex:

mlblInitialValue =Val(txtAssetLife.Text)
 

Regards
Veena

[tamik0]

Thanks for the suggestion, I have changed the code but still having trouble getting it to work. Here is my revised code:

Option Explicit On 
Option Strict On
 
Imports System.Convert
 
Public Class frmMain
    Inherits System.Windows.Forms.Form
 
 
    Private mlblInitialValue As Double
    Private mlblSalvageValue As Double
    Private mlblAssetLife As Single
    Private mdblTotalDepreciation As Double
    Private mdblAnnualDepreciation As Double
 
 
    mlblInitialValue = (txtInitialValue.Text)
    mlblSalvageLife = (txtSalvageLife.Text)
    mlblAssetLife = (txtSalvageLife.Text)
 
    mdblTotalDepreciation = mlblInitialValue - mlblSalvageLife
    mdblAnnualDepreciation = mdblTotalDepreciation / mdblAssetLife
 
 
 
    Private Const cintCol1Start As Integer = 100
    Private Const cintCol2Start As Integer = 250
    Private Const cintCol3Start As Integer = 400
    Private Const cintCol4Start As Integer = 550
    Private Const cintColWidth As Integer = 150
 
    Private mfntPrint As Font
    Private msngFontHeight As Single
    Private msngYPos As Single
    Private mfnrPrint As Font

[VBPhilly]

Thanks for the suggestion, I have changed the code ...

Double-click the textbox in design to get to the TextChanged event.
Put your assignment code in there:

Private Sub txtInitialValue_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtInitialValue.TextChanged
 
   mlblInitialValue = (txtInitialValue.Text)
 
End Sub