Programmer Plus 2007/Programmer-Plus-2007.iso/Programming/Visual Basic new SourceCode and Projects/AlbumScreenSaver/IMAGES.FRM

Visual Basic Form | 1999-08-24 | 6.0 KB | 215 lines

VERSION 5.00
Begin VB.Form prop
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   3735
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   7320
   Icon            =   "images.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3735
   ScaleWidth      =   7320
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1
      Enabled         =   0   'False
      Interval        =   100
      Left            =   3810
      Top             =   1380
   End
   Begin VB.Frame Frame1
      Caption         =   "Properties"
      Height          =   2535
      Left            =   3900
      TabIndex        =   4
      Top             =   1020
      Width           =   3285
      Begin VB.CommandButton Command3
         Caption         =   "&Help"
         Height          =   345
         Left            =   2010
         TabIndex        =   10
         Top             =   930
         Width           =   1125
      End
      Begin VB.CheckBox Check1
         Caption         =   "Preview"
         Height          =   285
         Left            =   330
         TabIndex        =   9
         Top             =   2190
         Value           =   1  'Checked
         Width           =   1275
      End
      Begin VB.TextBox Text1
         Height          =   285
         Left            =   840
         TabIndex        =   7
         Text            =   "700"
         Top             =   210
         Width           =   915
      End
      Begin VB.CommandButton Command2
         Caption         =   "&Cancel"
         Height          =   345
         Left            =   2010
         TabIndex        =   6
         Top             =   1830
         Width           =   1155
      End
      Begin VB.CommandButton Command1
         Caption         =   "&Accept"
         Height          =   345
         Left            =   2010
         TabIndex        =   5
         Top             =   1380
         Width           =   1155
      End
      Begin VB.Image picture1
         Height          =   1515
         Left            =   150
         Stretch         =   -1  'True
         Top             =   630
         Width           =   1665
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Interval"
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   270
         Width           =   525
      End
   End
   Begin VB.ListBox List1
      Height          =   840
      Left            =   150
      TabIndex        =   3
      Top             =   60
      Width           =   7035
   End
   Begin VB.FileListBox File1
      Height          =   2625
      Left            =   1830
      Pattern         =   "*.bmp;*.dib;*.gif;*.jpg;*.wmf;*.emp;*.ico;*.cur"
      TabIndex        =   2
      Top             =   960
      Width           =   1905
   End
   Begin VB.DriveListBox Drive1
      Height          =   315
      Left            =   150
      TabIndex        =   1
      Top             =   3300
      Width           =   1605
   End
   Begin VB.DirListBox Dir1
      Height          =   2340
      Left            =   150
      TabIndex        =   0
      Top             =   930
      Width           =   1605
   End
Attribute VB_Name = "prop"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Hi Folks this application is written by
' Nagalla Anil Choudary
' Software Engineer
' s/o N.Ram Babu
' D.K.Pallem Bapatla-522 101
' A.P  , India
' u can use this application as a photo album also
' You can reproduce , customize this code in any manner
' If u satisfy or modify please leave your suggestions
' Happy programming
Dim capt As String
Dim icap As Integer
Dim le As Integer
Private Sub Command1_Click()
Dim i As Integer
i = 0
Open App.Path + "\nac.ini" For Output As 1
Print #1, Text1.Text
Print #1, List1.ListCount
While i < List1.ListCount + 1
    Print #1, List1.List(i)
    i = i + 1
Close #1
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
hlp.Show
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
If Right(File1.Path, 1) Like "\" Then
    temp = File1.Path + File1.FileName
    temp = File1.Path + "\" + File1.FileName
End If
'List1.AddItem temp
If Check1.Value = 1 Then
    picture1.Picture = LoadPicture(temp)
End If
End Sub
Private Sub File1_DblClick()
If Right(File1.Path, 1) Like "\" Then
    temp = File1.Path + File1.FileName
    temp = File1.Path + "\" + File1.FileName
End If
List1.AddItem temp
If Check1.Value = 1 Then
    picture1.Picture = LoadPicture(temp)
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
On Error Resume Next
 'SetWindowPos(Me.hwnd, -1, Me.CurrentX, Me.CurrentY, 495, 275, &H40)
Dim temp As String
Dim i, num As Integer
Open App.Path + "\nac.ini" For Input As #1
Line Input #1, temp
Text1.Text = temp
Line Input #1, temp
num = Val(temp)
i = 0
'Line Input #1, temp
While i < num
    Line Input #1, temp
    List1.AddItem Trim(temp)
    i = i + 1
Close #1
capt = "Designed by Nagalla Anil Choudary, BEC. Download this ShareWare s/w at www.angelfire.com/al/nacware/shareware/ScreenSavers.html"
le = Len(capt)
icap = 1
End Sub
Private Sub List1_DblClick()
List1.RemoveItem (List1.ListIndex)
End Sub
Private Sub Timer1_Timer()
'    Me.Show
    If icap = le Then
        icap = 1
        Me.Caption = ""
    End If

    Me.Caption = Me.Caption + Mid(capt, icap, 1)
    icap = icap + 1
    'MsgBox ("a")
End Sub