Ad:

VB.NET Discussion Thread
Unsolved
Views: 2134

Sep 21st, 2007

Need help getting value of text boxes into variables

Expand Post »

I need help figuring out how to get the value of my text boxes into the variables I have declared (in bold) , any suggestions would be appreciated:

(/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(/code)

Similar Threads

Clearing Text Boxes in VB.NET
Help Me In My Code in Visual Basic 4 / 5 / 6
Adding the results of two text boxes (Visual Basic Express Edition) in VB.NET
The Datagrid: How does one fill text boxes in edit mode with their original content? in ASP.NET
Cursor control in text boxes: in HTML and CSS

tamik0

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Sep 2007

Permalink

Sep 22nd, 2007

Re: Need help getting value of text boxes into variables

I changed your code to this and added some labels to the form to display the results:

VB.NET Syntax (Toggle Plain Text)
Imports System.convert
 
Public Class Form1
    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
 
    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) 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
    End Sub
 
    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        mlblInitialValue = (txtInitialValue.Text)
        mlblSalvageValue = (txtSalvageLife.Text)
        mlblAssetLife = (txtSalvageLife.Text)
 
        mdblTotalDepreciation = mlblInitialValue - mlblSalvageValue
        mdblAnnualDepreciation = mdblTotalDepreciation / mlblSalvageValue
 
        Me.lblTotalDeprec.Text = mdblTotalDepreciation.ToString
        Me.lblAnnualDeprec.Text = mdblAnnualDepreciation.ToString
 
    End Sub
End Class
Imports System.convert

Public Class Form1
    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

    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) 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        

    End Sub

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        mlblInitialValue = (txtInitialValue.Text)
        mlblSalvageValue = (txtSalvageLife.Text)
        mlblAssetLife = (txtSalvageLife.Text)

        mdblTotalDepreciation = mlblInitialValue - mlblSalvageValue
        mdblAnnualDepreciation = mdblTotalDepreciation / mlblSalvageValue

        Me.lblTotalDeprec.Text = mdblTotalDepreciation.ToString
        Me.lblAnnualDeprec.Text = mdblAnnualDepreciation.ToString

    End Sub
End Class

funrunner

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Sep 2007

Permalink

Sep 22nd, 2007

Re: Need help getting value of text boxes into variables

Being picky but you should use the following:

VB.NET Syntax (Toggle Plain Text)
        mlblInitialValue = Double.Parse(txtInitialValue.Text)
        mlblSalvageValue = Double.Parse(txtSalvageLife.Text)
        mlblAssetLife = Single.Parse(txtSalvageLife.Text)
        mlblInitialValue = Double.Parse(txtInitialValue.Text)
        mlblSalvageValue = Double.Parse(txtSalvageLife.Text)
        mlblAssetLife = Single.Parse(txtSalvageLife.Text)

VB.NET Syntax (Toggle Plain Text)
        mlblInitialValue = CDbl(txtInitialValue.Text)
        mlblSalvageValue = CDbl(txtSalvageLife.Text)
        mlblAssetLife = CSng(txtSalvageLife.Text)
        mlblInitialValue = CDbl(txtInitialValue.Text)
        mlblSalvageValue = CDbl(txtSalvageLife.Text)
        mlblAssetLife = CSng(txtSalvageLife.Text)

waynespangler

Reputation Points: 84

Solved Threads: 58

Posting Pro in Training

Offline

461 posts
since Dec 2002

Permalink

Sep 23rd, 2007

Re: Need help getting value of text boxes into variables

You should use the following functions when transferring text content to a numeric content

Val()
CDbl()
CSng()

The above will convert the text data into numeric data and then the data will transfer into the variables and then there would be no problem.

Hope the above was useful to you.

Bharat Saboo

Click to Expand / Collapse Quote originally posted by tamik0 ...

I need help figuring out how to get the value of my text boxes into the variables I have declared (in bold) , any suggestions would be appreciated:

(/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(/code)

bharatsaboo

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

7 posts
since Sep 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Find And Replace DailougBox

Next Thread in VB.NET Forum Timeline: Excel in VB

DaniWeb Message

Cancel Changes

User Name
Password