【VB开源代码栏目提醒】:以下是网学会员为您推荐的VB开源代码-FrmIpConvert.frm,希望本篇文章对您学习有所帮助。
VERSION 5.00
Begin VB.Form FrmIpConvert
Caption = "IP Converter - Dot IP to Long / Long IP To Dot"
ClientHeight = 4245
ClientLeft = 60
ClientTop = 450
ClientWidth = 10110
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmIpConvert.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4245
ScaleWidth = 10110
Begin VB.Frame Frame4
Height = 4215
Left = 0
TabIndex = 0
Top = 0
Width = 10095
Begin VB.Frame Frame1
Caption = " - Binary -"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 2295
Left = 5160
TabIndex = 20
Top = 240
Width = 4815
Begin VB.TextBox Text7
Alignment = 2 'Center
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 8
Top = 480
Width = 4590
End
Begin VB.TextBox Text3
Alignment = 2 'Center
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 9
Top = 1560
Width = 4590
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "- Dot IP -"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 24
Top = 240
Width = 4575
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "MSByte To LSByte"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 150
TabIndex = 23
Top = 840
Width = 4575
End
Begin
VB.Label Label2
Alignment = 2 'Center
Caption = "- Long IP -"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 22
Top = 1320
Width = 4575
End
Begin VB.Label Label8
Alignment = 2 'Center
Caption = "MSByte To LSByte"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 90
TabIndex = 21
Top = 1920
Width = 4575
End
End
Begin VB.Frame Frame2
Caption = "- IP Information -"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 2295
Left = 120
TabIndex = 17
Top = 240
Width = 4935
Begin VB.CommandButton Command2
Caption = "Dot IP Address To ""Long"""
Height = 315
Left = 2160
TabIndex = 2
Top = 480
Width = 2400
End
Begin VB.TextBox Text2
Alignment = 2 'Center
Height = 270
Left = 360
TabIndex = 1
Top = 480
Width = 1440
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 285
Left = 360
TabIndex = 3
Top = 1440
Width = 1440
End
Begin VB.CommandButton Command1
Caption = """Long"" To Dot IP Address"
Height = 315
Left = 2160
TabIndex = 4
Top = 1440
Width = 2400
End
Begin VB.Label Label7
Alignment = 2 'Center
Caption = "Example - 192.168.0.1"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 9
Left = 120
TabIndex = 19
Top = 840
Width = 1965
End
Begin VB.Label Label7
Alignment = 2 'Center
Caption = "Example - 16,820,416"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 8
Left = 120
TabIndex = 18
Top = 1800
Width = 1935
End
End
Begin VB.Frame Frame3
Caption = "- Network Information -"
BeginProperty Font
Name = "Times