Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/vbocxtls/vbtools.exe/%MAINDIR%/VBTOOLSDEMO.frm

Visual Basic Form | 1999-02-16 | 9.3 KB | 300 lines

VERSION 5.00
Object = "{D39AF585-C3A9-11D2-8AEE-EA9F9798D91B}#6.0#0"; "VBTOOLS.ocx"
Begin VB.Form VBTOOLSDEMO
   Caption         =   "Form1"
   ClientHeight    =   8670
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11070
   LinkTopic       =   "Form1"
   ScaleHeight     =   8670
   ScaleWidth      =   11070
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command5
      Caption         =   "Command5"
      Height          =   495
      Left            =   5400
      TabIndex        =   16
      Top             =   7800
      Width           =   2055
   End
   Begin VB.Frame Frame5
      Caption         =   "Frame5"
      Height          =   5415
      Left            =   5520
      TabIndex        =   10
      Top             =   120
      Width           =   3135
      Begin VBTOOLS.GButton GButton5
         Height          =   900
         Left            =   720
         TabIndex        =   15
         Top             =   4560
         Width           =   870
         _ExtentX        =   1535
         _ExtentY        =   1588
         ShowOpenFile    =   -1  'True
      End
      Begin VBTOOLS.GButton GButton4
         Height          =   900
         Left            =   840
         TabIndex        =   14
         Top             =   3480
         Width           =   870
         _ExtentX        =   1535
         _ExtentY        =   1588
         Showlogin       =   -1  'True
      End
      Begin VBTOOLS.GButton GButton3
         Height          =   900
         Left            =   960
         TabIndex        =   13
         Top             =   2520
         Width           =   870
         _ExtentX        =   1535
         _ExtentY        =   1588
         ShowHelp        =   -1  'True
      End
      Begin VBTOOLS.GButton GButton2
         Height          =   900
         Left            =   720
         TabIndex        =   12
         Top             =   1320
         Width           =   870
         _ExtentX        =   1535
         _ExtentY        =   1588
         ShowExit        =   -1  'True
      End
      Begin VBTOOLS.GButton GButton1
         Height          =   900
         Left            =   720
         TabIndex        =   11
         Top             =   600
         Width           =   870
         _ExtentX        =   1535
         _ExtentY        =   1588
         ShowClickHere   =   -1  'True
      End
   End
   Begin VB.Frame Frame4
      Caption         =   "Frame4"
      Height          =   2055
      Left            =   120
      TabIndex        =   7
      Top             =   5520
      Width           =   4935
      Begin VBTOOLS.Encryption Encryption1
         Left            =   120
         Top             =   240
         _ExtentX        =   900
         _ExtentY        =   900
      End
      Begin VB.TextBox Text2
         Height          =   375
         Left            =   720
         TabIndex        =   9
         Text            =   "Text2"
         Top             =   360
         Width           =   3855
      End
      Begin VB.CommandButton Command4
         Caption         =   "Command4"
         Height          =   615
         Left            =   2280
         TabIndex        =   8
         Top             =   1320
         Width           =   2415
      End
   End
   Begin VB.Frame Frame3
      Caption         =   "Frame3"
      Height          =   2055
      Left            =   120
      TabIndex        =   5
      Top             =   3360
      Width           =   4935
      Begin VBTOOLS.String String1
         Left            =   120
         Top             =   360
         _ExtentX        =   4048
         _ExtentY        =   1614
      End
      Begin VB.CommandButton Command3
         Caption         =   "Command3"
         Height          =   615
         Left            =   2640
         TabIndex        =   6
         Top             =   360
         Width           =   1935
      End
   End
   Begin VB.Frame Frame2
      Caption         =   "Frame2"
      Height          =   1575
      Left            =   120
      TabIndex        =   3
      Top             =   1560
      Width           =   4215
      Begin VBTOOLS.WEB WEB1
         Left            =   480
         Top             =   360
         _ExtentX        =   5662
         _ExtentY        =   900
      End
      Begin VB.CommandButton Command2
         Caption         =   "Command2"
         Height          =   495
         Left            =   840
         TabIndex        =   4
         Top             =   960
         Width           =   2295
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Frame1"
      Height          =   1455
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4215
      Begin VBTOOLS.Files Files1
         Left            =   120
         Top             =   240
         _ExtentX        =   926
         _ExtentY        =   926
      End
      Begin VB.CommandButton Command1
         Caption         =   "Command1"
         Height          =   375
         Left            =   2280
         TabIndex        =   2
         Top             =   360
         Width           =   1815
      End
      Begin VB.TextBox Text1
         Height          =   495
         Left            =   120
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   840
         Width           =   3855
      End
   End
Attribute VB_Name = "VBTOOLSDEMO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
'---------Fileinfo---------------
'Files1.EnterFileName = "C:\Update.txt"
'Call Files1.GetFileInfo
'MsgBox Files1.FileSizeBOX
'MsgBox Files1.CreationDateBox
'MsgBox Files1.LastModBox
'MsgBox Files1.LastAccessBox
'MsgBox Files1.FileArchive
'MsgBox Files1.FileHidden
'MsgBox Files1.FileReadOnly
'MsgBox Files1.FileNormale
'MsgBox Files1.FileCompress
'MsgBox Files1.FileTemp
'------------------------------------------------
'--------------ScanPath Event------------
'Files1.ScanPath "C:\update.txt"
'Text1.Text = Files1.EnterFileName
'Text1.Text = Files1.PathName
'--------------ScanPath Event------------
'----------DeleteFolder----------
'Files1.DeleteFolder = "c:\dick"
'----------DeleteFolder----------
'---------- Browse Folder --------------------
'Files1.BrowseTitle = "This is the Browse Title"
'Files1.BrowseCaption = "This is the Browse Caption"
'Files1.BrowseFolder = "YES"
'Text1.Text = Files1.BrowseFolder
'---------- Browse Folder --------------------
'---------------Gets DriveSerial---------
'Files1.DriveSerial = "d"
'Text1.Text = Files1.DriveSerial
'----------------------------------------
'------------------GetFileExt-----------
'Files1.GetFileExt = "C:\update.txt"
'Text1.Text = Files1.GetFileExt
'---------------------------------------
'----------WipeFileClean---------------
'Files1.WipeFileClean = "c:\test.htm"
'Text1.Text = Files1.WipeFileClean
'---------Secure Delete of file-------
'------------Delet to RecycleBin------
'Files1.RecycleBin = "C:\test.me"
'------------------------------------
'----does files exist------------
'Files1.EnterFileName = "C:\Update.txt"
'Files1.IsFileThere
'MsgBox Files1.FileExisting
'----------------------------------
'------Getlong filename----
Files1.LongFileName = "c:\progra~1\common~1"
Text1.Text = Files1.LongFileName
End Sub
Private Sub Command2_Click()
'WEB1.EnableWebPing = True
'Text1.Text = WEB1.ReturnStatus
'Text1.Text = WEB1.RoundTripTime
'WEB1.EMailAddress = "[e-mail]"
WEB1.WebAddress = "www.mansystems.com\sorder.htm"
End Sub
Private Sub Command3_Click()
'String1.Convert = "This is a test"
'Text1.Text = String1.Convert
'String1.DeConvert = "5468697320697320612074657374"
'Text1.Text = String1.DeConvert
'MsgBox String1.REnableMsgBox
'String1.RFindText = "test"
'String1.RReplaceText = "peter"
'String1.RInPutString = "test"
'MsgBox String1.RInPutString
'String1.Reverse = "This is a test"
'Text1.Text = String1.Reverse
'String1.DumpFile = "c:\testme.man"
'String1.DumpString = "This is a test"
'MsgBox String1.DumpString
'String1.CountChar = "This is a test"
'MsgBox String1.CountChar
'String1.SpellChecker = "This ti a teest"
'Text1.Text = String1.SpellChecker
'String1.CRCNumber = 1269
'String1.CRCString = "This is a test"
'Text1.Text = String1.CRCString
'String1.PhoneNumber = 134567890
'Text1.Text = String1.PhoneNumber
String1.CurrencyString = 219.19
Text1.Text = String1.CurrencyString
''''String1.SSN = 52680481
''''Text1.Text = String1.SSN
End Sub
Private Sub Command4_Click()
Encryption1.CipherII = Text2.Text
Text2.Text = Encryption1.CipherII
'Encryption1.EnCipherText = Text2.Text
End Sub
Private Sub Command5_Click()
Snap.Show
End Sub
Private Sub GButton1_ClickHereClick()
MsgBox "This is ClickHere"
End Sub
Private Sub GButton2_ExitClick()
MsgBox "This is Exit"
End Sub
Private Sub GButton3_HelpClick()
MsgBox "This is Help"
End Sub
Private Sub GButton4_loginClick()
MsgBox "This is Login"
End Sub
Private Sub GButton5_OpenFileClick()
MsgBox "This is OpenFile"
End Sub