home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 November
/
Chip_2002-11_cd1.bin
/
zkuste
/
vbasic
/
Data
/
Utils
/
animgif1.zip
/
demofrm.frm
< prev
next >
Wrap
Text File
|
2000-10-26
|
11KB
|
358 lines
VERSION 5.00
Object = "{4DA5E438-AB14-11D4-8FD7-ECFE82B9247E}#1.0#0"; "ANIMGIFDEMO.OCX"
Begin VB.Form Animgif_Demo
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "Animated Gif Demo"
ClientHeight = 6090
ClientLeft = 1725
ClientTop = 1785
ClientWidth = 7125
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "demofrm.frx":0000
ScaleHeight = 406
ScaleMode = 3 'Pixel
ScaleWidth = 475
StartUpPosition = 2 'CenterScreen
Begin Animgifdemo.Ani_GifDemo Ani_GifDemo1
Height = 480
Left = 180
TabIndex = 25
Top = 60
Width = 480
_ExtentX = 847
_ExtentY = 847
End
Begin VB.PictureBox Picture1
Height = 4395
Left = 0
ScaleHeight = 4335
ScaleWidth = 7035
TabIndex = 0
Top = 1680
Width = 7095
Begin VB.Frame Frame3
Caption = "Animated Gif Controls"
Height = 1335
Left = 60
TabIndex = 14
Top = 2340
Width = 6915
Begin VB.CommandButton Command1
Caption = "Play Frame 1"
Enabled = 0 'False
Height = 375
Left = 2820
TabIndex = 20
Top = 240
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "pause"
Enabled = 0 'False
Height = 375
Left = 1440
TabIndex = 19
Top = 240
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "play"
Enabled = 0 'False
Height = 375
Left = 60
TabIndex = 18
Top = 240
Width = 1335
End
Begin VB.CommandButton Command4
Caption = "Step"
Enabled = 0 'False
Height = 375
Left = 4200
TabIndex = 17
Top = 240
Width = 1335
End
Begin VB.Frame Frame2
Caption = "Speed Adjust 100%"
Enabled = 0 'False
Height = 555
Left = 60
TabIndex = 15
Top = 720
Width = 6795
Begin VB.HScrollBar HScroll2
Enabled = 0 'False
Height = 195
Left = 120
Max = 400
Min = 10
TabIndex = 16
Top = 240
Value = 100
Width = 6555
End
End
Begin VB.Label Label6
BorderStyle = 1 'Fixed Single
Caption = "Frame Number"
Height = 255
Left = 5640
TabIndex = 22
Top = 180
Width = 1155
End
Begin VB.Label Label3
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "0"
Height = 255
Left = 6060
TabIndex = 21
Top = 480
Width = 495
End
End
Begin VB.Frame Frame1
Caption = "Horizontal Position"
Height = 555
Left = 60
TabIndex = 9
Top = 3720
Width = 6915
Begin VB.HScrollBar HScroll1
Height = 195
Left = 120
Max = 500
TabIndex = 10
Top = 240
Width = 6675
End
End
Begin VB.FileListBox File1
Height = 1845
Left = 2880
Pattern = "*.cur;*.bmp;*.jpg;*.gif;*.ico;*.wmf"
TabIndex = 7
Top = 480
Width = 2355
End
Begin VB.DirListBox Dir1
Height = 1665
Left = 60
TabIndex = 6
Top = 480
Width = 2835
End
Begin VB.PictureBox Picture2
Height = 1215
Left = 5340
ScaleHeight = 1155
ScaleWidth = 1575
TabIndex = 1
Top = 780
Width = 1635
Begin VB.CheckBox Check3
Caption = "Visible"
Height = 255
Left = 60
TabIndex = 8
Top = 840
Value = 1 'Checked
Width = 975
End
Begin VB.CheckBox Check1
Caption = "3D"
Height = 195
Left = 60
TabIndex = 4
Top = 360
Value = 1 'Checked
Width = 1335
End
Begin VB.CheckBox Check2
Caption = "Single"
Height = 195
Left = 60
TabIndex = 3
Top = 600
Width = 1335
End
Begin VB.CheckBox Check4
Caption = "Checkonly"
Height = 255
Left = 60
TabIndex = 2
Top = 60
Width = 1095
End
End
Begin VB.Label Label8
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "Ready"
Height = 255
Left = 6180
TabIndex = 24
Top = 2040
Width = 780
End
Begin VB.Label Label7
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = "Status"
Height = 255
Left = 5340
TabIndex = 23
Top = 2040
Width = 825
End
Begin VB.Label Label2
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = "Animated "
Height = 255
Left = 5340
TabIndex = 13
Top = 480
Width = 1065
End
Begin VB.Label Label5
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "False"
Height = 255
Left = 6420
TabIndex = 12
Top = 480
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFF00&
BorderStyle = 1 'Fixed Single
Caption = "File Name"
Height = 255
Left = 60
TabIndex = 11
Top = 120
Width = 765
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 840
TabIndex = 5
Top = 120
Width = 6135
End
End
End
Attribute VB_Name = "Animgif_Demo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim f
Private Sub ani_gifdemo1_Click()
MsgBox Ani_GifDemo1.Maxframe 'End
End Sub
Private Sub ani_gifdemo1_FrameChange(framenumber As Long)
Label3 = framenumber
Label3.Refresh
End Sub
Private Sub Check1_Click()
Ani_GifDemo1.Appearance = Check1.Value
End Sub
Private Sub Check2_Click()
Ani_GifDemo1.BorderStyle = Check2.Value
End Sub
Private Sub Check3_Click()
If Check3.Value = 0 Then Ani_GifDemo1.Visible = False Else Ani_GifDemo1.Visible = True
End Sub
Private Sub Check4_Click()
Ani_GifDemo1.checkonly = Check4.Value
Check3.Value = 1 - Check4.Value
End Sub
Private Sub Command1_Click()
Ani_GifDemo1.Play 1
End Sub
Private Sub Command2_Click()
Ani_GifDemo1.pause
End Sub
Private Sub Command3_Click()
Ani_GifDemo1.Play
End Sub
Private Sub Command4_Click()
Ani_GifDemo1.Play -2
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
Label4 = File1.Path + "\" + File1.FileName
Label8 = "Loading"
Ani_GifDemo1.File_Name = Label4
Label8 = "Ready"
Label5 = Ani_GifDemo1.isanimated
Command1.Enabled = Ani_GifDemo1.isanimated
Command2.Enabled = Ani_GifDemo1.isanimated
Command3.Enabled = Ani_GifDemo1.isanimated
Command4.Enabled = Ani_GifDemo1.isanimated
HScroll2.Enabled = Ani_GifDemo1.isanimated
Frame2.Enabled = Ani_GifDemo1.isanimated
End Sub
Private Sub Form_Load()
Dir1.Path = App.Path
End Sub
Private Sub HScroll1_Change()
Ani_GifDemo1.Left = HScroll1
End Sub
Private Sub HScroll1_Scroll()
Ani_GifDemo1.Left = HScroll1
End Sub
Private Sub HScroll2_Change()
Ani_GifDemo1.Speed_adjust = HScroll2
Frame2.Caption = "Speed Adjust " & HScroll2 & "%"
End Sub
Private Sub HScroll2_Scroll()
Ani_GifDemo1.Speed_adjust = HScroll2
Frame2.Caption = "Speed Adjust " & HScroll2 & "%"
End Sub