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 mlblInitialValu e As Double
Private mlblSalvageValu e 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:
[code=vbnet]
mlblInitialValu e =Val(txtAssetLi fe.Text)
[/code]

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:

[CODE=vbnet]Option Explicit On
Option Strict On

Imports System.Convert

Public Class frmMain
Inherits System.Windows. Forms.Form


Private mlblInitialValu e As Double
Private mlblSalvageValu e As Double
Private mlblAssetLife As Single
Private mdblTotalDeprec iation As Double
Private mdblAnnualDepre ciation As Double


mlblInitialValu e = (txtInitialValu e.Text)
mlblSalvageLife = (txtSalvageLife .Text)
mlblAssetLife = (txtSalvageLife .Text)

mdblTotalDeprec iation = mlblInitialValu e - mlblSalvageLife
mdblAnnualDepre ciation = mdblTotalDeprec iation / 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[/CODE]

[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:

[code=vbnet]
Private Sub txtInitialValue _TextChanged(By Val sender As System.Object, ByVal e As System.EventArg s) Handles txtInitialValue .TextChanged

mlblInitialValu e = (txtInitialValu e.Text)

End Sub
[/code]