【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，FrmBandwidth.frm，希望对大家有所帮助！
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form FrmBandwidth
Caption = "网络流量监视"
ClientHeight = 2055
ClientLeft = 60
ClientTop = 345
ClientWidth = 5040
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmBandwidth.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 2055
ScaleWidth = 5040
Begin VB.Frame Frame1
Height = 1815
Left = 120
TabIndex = 0
Top = 120
Width = 4815
Begin VB.Label Label10
Alignment = 2 'Center
Caption = "0 KB"
ForeColor = &H00000000&
Height = 255
Left = 2640
TabIndex = 11
Top = 1440
Width = 1335
End
Begin VB.Label Label9
Alignment = 2 'Center
Caption = "0 KB"
ForeColor = &H00000000&
Height = 255
Left = 2640
TabIndex = 10
Top = 1080
Width = 1335
End
Begin VB.Label Label8
Alignment = 2 'Center
Caption = "估计上传速度"
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 9
Top = 1440
Width = 2415
End
Begin VB.Label Label7
Alignment = 2 'Center
Caption = "估计下载速度"
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 8
Top = 1080
Width = 2415
End
Begin VB.Label lblRecv
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "132.22"
ForeColor = &H00000000&
Height = 255
Left = 960
TabIndex = 7
Top = 720
Width = 2655
End
Begin VB.Label lblSent
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "24.3"
ForeColor = &H00000000&
Height = 255
Left = 960
TabIndex = 6
Top = 480
Width = 2655
End
Begin VB.Label lblType
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 255
Left = 195
TabIndex = 5
Top = 240
Width = 1980
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "发送"
ForeColor = &H00000000&
Height = 255
Left = 165
TabIndex = 4
Top = 480
Width = 855
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "接收"
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 3
Top = 720
Width = 855
End
Begin VB.Line Line2
X1 = 165
X2 = 2160
Y1 = 240
Y2 = 240
End
Begin VB.Line Line3
X1 = 165
X2 = 2160
Y1 = 480
Y2 = 480
End
Begin VB.Line Line4
X1 = 2160
X2 = 2160
Y1 = 240
Y2 = 480
End
Begin VB.Line Line5
X1 = 2160
X2 = 3960
Y1 = 480
Y2 = 480
End
Begin VB.Line Line7
X1 = 165
X2 = 3960
Y1 = 960
Y2 = 960
End
Begin VB.Line Line8
X1 = 165
X2 = 3960
Y1 = 720
Y2 = 720
End
Begin VB.Line Line9
X1 = 960
X2 = 960
Y1 = 480
Y2 = 960
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Kb"
ForeColor = &H00000000&
Height = 255
Left = 3600
TabIndex = 2
Top = 480
Width = 375
End
Begin VB.Label Label4
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Kb"
ForeColor = &H00000000&
Height = 255
Left = 3600
TabIndex = 1
Top = 720
Width = 375
End
Begin VB.Image Image1
Height = 480
Left = 4080
Picture = "FrmBandwidth.frx":1982
Top = 615
Width = 480
End
Begin VB.Image Image2
Height = 480
Left = 4200
Picture = "FrmBandwidth.frx":3304
Top = 975
Width = 480
End
Begin VB.Line Line6
X1 = 3960
X2 = 3960
Y1 = 480
Y2 = 960
End
Begin VB.Line Line1
X1 = 165
X2 = 165
Y1 = 240
Y2 = 960
End
Begin VB.Label Label6
Alignment = 2 'Center
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1080
TabIndex = 13
Top = 1320
Visible = 0 'False
Width = 2655
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
上一篇：
DirectX.cpp
下一篇：
基于JSP邮件收发系统论文
2013-9-1
