sail.vb

来自「聊天工具,一个可以在任何系统下运作的聊天工具」· VB 代码 · 共 15 行

Public Class frmSail

    Private Sub frmSail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sail As personsail
        sail = New personsail
        lblHeight.Text = "身高:    " & sail.Height
        lblWeight.Text = "体重:    " & sail.Weight
        lblNationality.Text = "国籍:    " & sail.Nationality
        lblProvince.Text = "省份:    " & sail.Province
        lblCity.Text = "城市:    " & sail.City
        lblSex.Text = "性别:    " & Pop.liu(Pop.Useid).Sex
        lblBirthday.Text = "生日:    " & Pop.liu(Pop.Useid).Birthday
        lblEmail.Text = "邮件:    " & Pop.liu(Pop.Useid).Email
    End Sub
End Class