form1.vb

vb编写的小程序,用来记载通讯录可以把文件保存

        Me.Label6.Text = "地址"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(8, 134)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 12)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "城市"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 105)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 15)
        Me.Label4.TabIndex = 3
        Me.Label4.Text = "移动电话"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 81)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 15)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "电话 *"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 54)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 13)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "性别"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 16)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "姓名 *"
        '
        'BtnAdd
        '
        Me.BtnAdd.Location = New System.Drawing.Point(232, 368)
        Me.BtnAdd.Name = "BtnAdd"
        Me.BtnAdd.Size = New System.Drawing.Size(64, 24)
        Me.BtnAdd.TabIndex = 3
        Me.BtnAdd.Text = "添加"
        '
        'BtnYes
        '
        Me.BtnYes.Location = New System.Drawing.Point(160, 368)
        Me.BtnYes.Name = "BtnYes"
        Me.BtnYes.Size = New System.Drawing.Size(64, 24)
        Me.BtnYes.TabIndex = 4
        Me.BtnYes.Text = "写入"
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem8, Me.MenuItem14})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem4, Me.MenuItem6, Me.MenuItem7})
        Me.MenuItem1.Text = "文件"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 0
        Me.MenuItem3.Text = "读取"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 1
        Me.MenuItem4.Text = "保存"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 2
        Me.MenuItem6.Text = "-"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 3
        Me.MenuItem7.Text = "退出"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 1
        Me.MenuItem8.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem9})
        Me.MenuItem8.Text = "编辑"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 0
        Me.MenuItem9.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10, Me.MenuItem11, Me.MenuItem12, Me.MenuItem13})
        Me.MenuItem9.Text = "打开作业"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 0
        Me.MenuItem10.Text = "第一章"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 1
        Me.MenuItem11.Text = "第二章"
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 2
        Me.MenuItem12.Text = "第三章"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 3
        Me.MenuItem13.Text = "第四章"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 2
        Me.MenuItem14.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem15, Me.MenuItem16})
        Me.MenuItem14.Text = "帮助"
        '
        'MenuItem15
        '
        Me.MenuItem15.Index = 0
        Me.MenuItem15.Text = "About"
        '
        'MenuItem16
        '
        Me.MenuItem16.Index = 1
        Me.MenuItem16.Text = "退出"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(424, 397)
        Me.Controls.Add(Me.BtnYes)
        Me.Controls.Add(Me.BtnAdd)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.BtnExit)
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.Text = "通讯录"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub Form1_Activated(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Activated
        Me.ComboBox1.SelectedIndex = 0
        Me.ComboBox2.SelectedIndex = 0
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles BtnExit.Click
        End
    End Sub

    Private Sub BtnAdd_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles BtnAdd.Click
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox5.Text = ""
        Me.TextBox6.Text = ""
        Me.TextBox7.Text = ""
        Me.TextBox9.Text = ""
        TextBox9.Visible = True
        LinkLabel1.Visible = False
        BtnYes.Enabled = True
        BtnAdd.Enabled = False
    End Sub

    Private Sub BtnYes_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles BtnYes.Click
        Static MyCount As Integer
        MyCount = CInt(TextBox8.Text)
        Dim i As Integer
        i = MyCount
        MyCount = MyCount + 1
        TextBox8.Text = MyCount
        If Me.TextBox1.Text = "" Then
            MessageBox.Show("请您输入通讯录人的姓名", "姓名", _
            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            MyCount = MyCount - 1
            TextBox8.Text = MyCount

            Exit Sub
        End If
        If Me.TextBox2.Text = "" Then
            MessageBox.Show("请您输入联系电话", "请输入电话", _
            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            MyCount = MyCount - 1
            TextBox8.Text = MyCount
            Exit Sub
        End If
        TextBox8.Text = MyCount
        TextBox9.Visible = True
        LinkLabel1.Visible = False

        Mytxl(i).TxlName = TextBox1.Text
        Mytxl(i).TxlGender = ComboBox1.SelectedItem
        Mytxl(i).TxlTel = TextBox2.Text
        Mytxl(i).TxlMoveTel = TextBox3.Text
        Mytxl(i).TxlCity = TextBox4.Text
        Mytxl(i).TxlMailNumber = TextBox5.Text
        Mytxl(i).TxlHeadship = ComboBox2.SelectedItem
        Mytxl(i).TxlEmail = TextBox9.Text
        Mytxl(i).TxlUnit = TextBox6.Text
        Mytxl(i).TxlAddress = TextBox7.Text
        Mytxl(i).TxlCount = CInt(TextBox8.Text)
        LinkLabel1.Text = TextBox9.Text

        Dim mystring As String



        mystring = Mytxl(i).TxlName
        Me.ListBox1.Items.Add("ID   " & i)


        Dim fsSalary As New FileStream(".\TXL1.txt", FileMode.Append, FileAccess.Write)
        Dim bwSalary As New StreamWriter(fsSalary)

        bwSalary.WriteLine(i)
        bwSalary.WriteLine(Mytxl(i).TxlName)
        bwSalary.WriteLine(Mytxl(i).TxlGender)
        bwSalary.WriteLine(Mytxl(i).TxlTel)
        bwSalary.WriteLine(Mytxl(i).TxlMoveTel)
        bwSalary.WriteLine(Mytxl(i).TxlCity)
        bwSalary.WriteLine(Mytxl(i).TxlMailNumber)
        bwSalary.WriteLine(Mytxl(i).TxlHeadship)
        bwSalary.WriteLine(Mytxl(i).TxlEmail)
        bwSalary.WriteLine(Mytxl(i).TxlUnit)
        bwSalary.WriteLine(Mytxl(i).TxlAddress)
        bwSalary.WriteLine("------------------")

        bwSalary.Close()

        BtnYes.Enabled = False
        BtnAdd.Enabled = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox8.TextAlign = HorizontalAlignment.Center
        Me.TextBox8.Text = "0"
        BtnAdd.Enabled = False

    End Sub

    Private Sub ListBox1_MouseDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles ListBox1.MouseDown
        Dim MyIndex As Integer
        Dim i As Integer
        MyIndex = ListBox1.SelectedIndex
        i = MyIndex
        TextBox9.Visible = False
        LinkLabel1.Visible = True
        TextBox1.Text = Mytxl(i).TxlName
        TextBox2.Text = Mytxl(i).TxlTel
        TextBox3.Text = Mytxl(i).TxlMoveTel
        TextBox4.Text = Mytxl(i).TxlCity
        TextBox5.Text = Mytxl(i).TxlMailNumber
        TextBox6.Text = Mytxl(i).TxlUnit
        TextBox7.Text = Mytxl(i).TxlAddress
        ComboBox1.Text = Mytxl(i).TxlGender
        ComboBox2.Text = Mytxl(i).TxlHeadship
        LinkLabel1.Text = Mytxl(i).TxlEmail

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
    Handles LinkLabel1.LinkClicked
        Dim MylinkAddress As String
        MylinkAddress = "C:\Program Files\Outlook Express\msimn.exe"
        LinkLabel1.LinkBehavior = LinkBehavior.AlwaysUnderline
        LinkLabel1.LinkVisited = False
        LinkLabel1.LinkColor = Color.Blue
        LinkLabel1.VisitedLinkColor = Color.RosyBrown
        System.Diagnostics.Process.Start(MylinkAddress)
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        End
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        End
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim bwsalary As StreamReader
        bwsalary = File.OpenText(".\TXL1.txt")
        Dim myOutput As String
        Dim StreamNo As Integer = 0
        Dim a As Integer
        Dim i As Integer
        myOutput = bwsalary.ReadLine

        While StreamNo <> ""

            StreamNo = bwsalary.ReadLine()
            i = StreamNo
            Mytxl(i).TxlName = bwsalary.ReadLine()
            Mytxl(i).TxlGender = bwsalary.ReadLine()
            Mytxl(i).TxlTel = bwsalary.ReadLine()
            Mytxl(i).TxlMoveTel = bwsalary.ReadLine()
            Mytxl(i).TxlCity = bwsalary.ReadLine()
            Mytxl(i).TxlMailNumber = bwsalary.ReadLine()
            Mytxl(i).TxlHeadship = bwsalary.ReadLine()
            Mytxl(i).TxlEmail = bwsalary.ReadLine()
            Mytxl(i).TxlUnit = bwsalary.ReadLine()
            Mytxl(i).TxlAddress = bwsalary.ReadLine()
            Me.ListBox1.Items.Add("ID   " & i)
        End While








    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        With Me.SaveFileDialog1
            .Title = "保存文件"
            .CheckFileExists = False
            .CheckPathExists = False
            .CreatePrompt = True
            .Filter = "所有文件(*.*)|*.*"
            .ShowDialog()
            sFilename = .FileName
        End With
        If sFilename = "" Then
            MessageBox.Show("请输入您要保存的文件名。", "错误信息", _
            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Exit Sub
        Else




        End If
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        Dim a As New Form2
        a.ShowDialog()

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub
End Class