【VB开源代码栏目提醒】:网学会员在VB开源代码频道为大家收集整理了frm_ZZRKTJ.frm提供大家参考,希望对大家有所帮助!
VERSION 5.00
Begin VB.Form frm_ZZRKTJ
BorderStyle = 3 'Fixed Dialog
Caption = "人数统计"
ClientHeight = 765
ClientLeft = 90
ClientTop = 330
ClientWidth = 4140
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 765
ScaleWidth = 4140
ShowInTaskbar = 0 'False
Begin VB.TextBox Text1
Height = 375
Left = 200
TabIndex = 2
Text = "0"
Top = 1440
Width = 975
End
Begin VB.Frame Frame1
Height = 735
Left = 30
TabIndex = 0
Top = 0
Width = 4095
Begin VB.Label Label1
BackColor = &H00FFC0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 1
Top = 240
Width = 3615
End
End
End
Attribute VB_Name = "frm_ZZRKTJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Text1_Change()
Label1.Caption = "当前暂住人口总数为: " + Text1.Text + " 人"
End Sub