Employee Data - ComboBox1.SelectedText, TextBox5.Text,...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Public Class Form1 Dim filename As String Dim oFile As System.IO. File Dim oWrite As System.IO. StreamWriter Private Sub Form1_Load( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase .Load filename = InputBox( "Enter output file name" ) oWrite = oFile.CreateText(filename) ComboBox1.Items.Add( "Accounting" ) ComboBox1.Items.Add( "Administration" ) ComboBox1.Items.Add( "Marketing" ) ComboBox1.Items.Add( "MIS" ) ComboBox1.Items.Add( "Sales" ) End Sub Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.Click oWrite.WriteLine( "{0,10}{1,10}{2,10}{3,10}{4,10}{5,10}{6,10}{7,10}" , TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text,
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ComboBox1.SelectedText, TextBox5.Text, TextBox6.Text, TextBox7.Text) oWrite.WriteLine() End Sub Private Sub Button3_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button3.Click oWrite.Close() End End Sub Private Sub Button2_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button2.Click TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" ComboBox1.SelectedText = "" End Sub End Class Output:...
View Full Document

This note was uploaded on 11/09/2011 for the course COP 1332 taught by Professor Ryland during the Spring '11 term at American College of Computer & Information Sciences.

Page1 / 2

Employee Data - ComboBox1.SelectedText, TextBox5.Text,...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online