Projects

IP Converter

January 23, 2003 by Java

Browsing RevDNSForm.frm (3.41 KB)

VERSION 5.00
Begin VB.Form RevDNSForm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Reverse DNS Lookup"
   ClientHeight    =   1095
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4815
   ClipControls    =   0   'False
   Icon            =   "RevDNSForm.frx":0000
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1095
   ScaleWidth      =   4815
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.TextBox Text2 
      Height          =   1815
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   1320
      Width           =   4575
   End
   Begin VB.CommandButton Command3 
      Caption         =   "&IP List >>"
      Height          =   375
      Left            =   3600
      TabIndex        =   4
      Top             =   600
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "&Lookup"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   375
      Left            =   1200
      TabIndex        =   2
      Top             =   600
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "Close"
      Height          =   375
      Left            =   2400
      TabIndex        =   3
      Top             =   600
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   720
      MaxLength       =   255
      TabIndex        =   1
      Top             =   120
      Width           =   3975
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "&Host:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   165
      Width           =   495
   End
End
Attribute VB_Name = "RevDNSForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Sub EnableControls(bOption As Boolean)
    For Each Control In Me.Controls()
        Control.Enabled = bOption
    Next Control
    EnableX Me.hWnd, bOption
End Sub

Private Sub Command1_Click()
Dim IPCollection() As String
Dim i As Integer
    If Command3.Caption = "&IP List >>" Then Command3_Click
    EnableControls False
    Text2.Text = ""
    GetIPAddress Text1.Text, IPCollection
    For i = LBound(IPCollection) To UBound(IPCollection)
        Text2.Text = Text2.Text + IPCollection(i) + IIf(i = UBound(IPCollection), "", vbCrLf)
    Next i
    EnableControls True
    Command1.SetFocus
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Command3_Click()
    If Command3.Caption = "&IP List >>" Then
        Height = 3630
        Text2.TabStop = True
        Command3.Caption = "&IP List <<"
    ElseIf Command3.Caption = "&IP List <<" Then
        Height = 1470
        Text2.TabStop = False
        Command3.Caption = "&IP List >>"
    End If
End Sub


Private Sub Text1_Change()
    If Text1.Text = "" Then Command1.Enabled = False
    If Text1.Text <> "" Then Command1.Enabled = True
End Sub

Download RevDNSForm.frm

Back to file list

---

Back to project page