IE 148 VBSTUDIO EXAMPLE

IE 148 VBSTUDIO EXAMPLE -...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
Option Strict On Public Class Form1 Private Sub btnCalc_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles btnCalc.Click Dim width As Single , length As Single width = CSng (txtWidth.Text) length = CSng (txtLength.Text) If rdoFeet.Checked Then width = width / 12 length = length / 12 End If If chkWTH.Checked Then width = width * 1000 If chkLTH.Checked Then length = length * 1000 lblAnswer.Text = FormatNumber(width * length, 1)
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: lstArea.Items.Add(FormatNumber(width * length)) End Sub Private Sub chkLTH_CheckedChanged( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles chkLTH.CheckedChanged End Sub Private Sub Form1_Load( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase .Load End Sub End Class...
View Full Document

This note was uploaded on 08/18/2011 for the course IE 148 taught by Professor Davesly during the Spring '11 term at Iowa State.

Ask a homework question - tutors are online