Initial Commit
This commit is contained in:
Godzil
377
seal-hack/examples/vb/form1.frm
Normal file
377
seal-hack/examples/vb/form1.frm
Normal file
@@ -0,0 +1,377 @@
|
||||
VERSION 5.00
|
||||
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
|
||||
Begin VB.Form Form1
|
||||
BorderStyle = 1 'Fixed Single
|
||||
Caption = "Seal 1.03 - Visual Basic Interface"
|
||||
ClientHeight = 5220
|
||||
ClientLeft = 2220
|
||||
ClientTop = 2205
|
||||
ClientWidth = 6690
|
||||
ControlBox = 0 'False
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
PaletteMode = 1 'UseZOrder
|
||||
ScaleHeight = 5220
|
||||
ScaleWidth = 6690
|
||||
Begin VB.CommandButton Command3
|
||||
Caption = "Quit"
|
||||
Height = 375
|
||||
Left = 5880
|
||||
TabIndex = 12
|
||||
Top = 0
|
||||
Width = 735
|
||||
End
|
||||
Begin VB.TextBox Text1
|
||||
Appearance = 0 'Flat
|
||||
BackColor = &H80000004&
|
||||
BorderStyle = 0 'None
|
||||
Enabled = 0 'False
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 285
|
||||
Left = 1440
|
||||
TabIndex = 9
|
||||
Text = "None"
|
||||
Top = 120
|
||||
Width = 4215
|
||||
End
|
||||
Begin TabDlg.SSTab SSTab1
|
||||
Height = 4455
|
||||
Left = 360
|
||||
TabIndex = 0
|
||||
Top = 480
|
||||
Width = 6015
|
||||
_ExtentX = 10610
|
||||
_ExtentY = 7858
|
||||
_Version = 327680
|
||||
Tab = 2
|
||||
TabHeight = 520
|
||||
TabCaption(0) = "Song Selector"
|
||||
TabPicture(0) = "Form1.frx":0000
|
||||
Tab(0).ControlCount= 3
|
||||
Tab(0).ControlEnabled= 0 'False
|
||||
Tab(0).Control(0)= "File1"
|
||||
Tab(0).Control(0).Enabled= 0 'False
|
||||
Tab(0).Control(1)= "Drive1"
|
||||
Tab(0).Control(1).Enabled= 0 'False
|
||||
Tab(0).Control(2)= "Dir1"
|
||||
Tab(0).Control(2).Enabled= 0 'False
|
||||
TabCaption(1) = "PlayBack Controls"
|
||||
TabPicture(1) = "Form1.frx":001C
|
||||
Tab(1).ControlCount= 6
|
||||
Tab(1).ControlEnabled= 0 'False
|
||||
Tab(1).Control(0)= "Label2"
|
||||
Tab(1).Control(0).Enabled= 0 'False
|
||||
Tab(1).Control(1)= "Frame1"
|
||||
Tab(1).Control(1).Enabled= 0 'False
|
||||
Tab(1).Control(2)= "Command2"
|
||||
Tab(1).Control(2).Enabled= -1 'True
|
||||
Tab(1).Control(3)= "PlayButton"
|
||||
Tab(1).Control(3).Enabled= -1 'True
|
||||
Tab(1).Control(4)= "Command1"
|
||||
Tab(1).Control(4).Enabled= -1 'True
|
||||
Tab(1).Control(5)= "StopButton"
|
||||
Tab(1).Control(5).Enabled= -1 'True
|
||||
TabCaption(2) = "Author Info"
|
||||
TabPicture(2) = "Form1.frx":0038
|
||||
Tab(2).ControlCount= 4
|
||||
Tab(2).ControlEnabled= -1 'True
|
||||
Tab(2).Control(0)= "Label4"
|
||||
Tab(2).Control(0).Enabled= 0 'False
|
||||
Tab(2).Control(1)= "Label3"
|
||||
Tab(2).Control(1).Enabled= 0 'False
|
||||
Tab(2).Control(2)= "Command4"
|
||||
Tab(2).Control(2).Enabled= 0 'False
|
||||
Tab(2).Control(3)= "Command5"
|
||||
Tab(2).Control(3).Enabled= 0 'False
|
||||
Begin VB.CommandButton Command5
|
||||
Caption = "SEAL Page"
|
||||
Height = 615
|
||||
Left = 1200
|
||||
TabIndex = 16
|
||||
Top = 3240
|
||||
Width = 3855
|
||||
End
|
||||
Begin VB.CommandButton Command4
|
||||
Caption = "Egerter Software Home Page"
|
||||
Height = 615
|
||||
Left = 1200
|
||||
TabIndex = 13
|
||||
Top = 2040
|
||||
Width = 3855
|
||||
End
|
||||
Begin VB.CommandButton StopButton
|
||||
Caption = "Stop"
|
||||
Height = 495
|
||||
Left = -72480
|
||||
TabIndex = 7
|
||||
Top = 2520
|
||||
Width = 855
|
||||
End
|
||||
Begin VB.CommandButton Command1
|
||||
Caption = "Next"
|
||||
Height = 495
|
||||
Left = -71400
|
||||
TabIndex = 6
|
||||
Top = 1800
|
||||
Width = 855
|
||||
End
|
||||
Begin VB.CommandButton PlayButton
|
||||
Caption = "Play"
|
||||
Height = 495
|
||||
Left = -72480
|
||||
TabIndex = 5
|
||||
Top = 1800
|
||||
Width = 855
|
||||
End
|
||||
Begin VB.CommandButton Command2
|
||||
Caption = "Prev"
|
||||
Height = 495
|
||||
Left = -73560
|
||||
TabIndex = 4
|
||||
Top = 1800
|
||||
Width = 855
|
||||
End
|
||||
Begin VB.DirListBox Dir1
|
||||
Height = 1440
|
||||
Left = -74280
|
||||
TabIndex = 3
|
||||
Top = 960
|
||||
Width = 4695
|
||||
End
|
||||
Begin VB.DriveListBox Drive1
|
||||
Height = 315
|
||||
Left = -74280
|
||||
TabIndex = 2
|
||||
Top = 480
|
||||
Width = 4695
|
||||
End
|
||||
Begin VB.FileListBox File1
|
||||
Height = 1650
|
||||
Left = -74280
|
||||
Pattern = "*.mod;*.s3m;*.mtm;*.xm"
|
||||
TabIndex = 1
|
||||
Top = 2520
|
||||
Width = 4695
|
||||
End
|
||||
Begin VB.Frame Frame1
|
||||
Caption = "Playback"
|
||||
Height = 2175
|
||||
Left = -74280
|
||||
TabIndex = 10
|
||||
Top = 1200
|
||||
Width = 4575
|
||||
End
|
||||
Begin VB.Label Label3
|
||||
Caption = "SEAL by Carlos Hasan"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 255
|
||||
Left = 1440
|
||||
TabIndex = 15
|
||||
Top = 1080
|
||||
Width = 3495
|
||||
End
|
||||
Begin VB.Label Label4
|
||||
Caption = "Modifications to VB interface by Barry Egerter"
|
||||
Height = 255
|
||||
Left = 1440
|
||||
TabIndex = 14
|
||||
Top = 1320
|
||||
Width = 3615
|
||||
End
|
||||
Begin VB.Label Label2
|
||||
Caption = "Use this simple playback system to control the music."
|
||||
Height = 255
|
||||
Left = -74160
|
||||
TabIndex = 11
|
||||
Top = 720
|
||||
Width = 4335
|
||||
End
|
||||
End
|
||||
Begin VB.Label Label1
|
||||
Caption = "Current Song:"
|
||||
Height = 255
|
||||
Left = 360
|
||||
TabIndex = 8
|
||||
Top = 120
|
||||
Width = 1095
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "Form1"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Dim iewindow As InternetExplorer
|
||||
Dim szFileName As String * 256
|
||||
Dim lpModule As Long
|
||||
Dim bSongPlaying As Long
|
||||
|
||||
|
||||
Private Sub Command1_Click()
|
||||
|
||||
Dim pnOrder As Long
|
||||
Dim lpnRow As Long
|
||||
|
||||
If AGetModulePosition(pnOrder, lpnRow) <> AUDIO_ERROR_NONE Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If ASetModulePosition(pnOrder + 1, 0) <> AUDIO_ERROR_NONE Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Command2_Click()
|
||||
|
||||
Dim pnOrder As Long
|
||||
Dim lpnRow As Long
|
||||
|
||||
If AGetModulePosition(pnOrder, lpnRow) <> AUDIO_ERROR_NONE Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If pnOrder > 1 Then
|
||||
pnOrder = pnOrder - 1
|
||||
Else
|
||||
pnOrder = 0
|
||||
End If
|
||||
|
||||
If ASetModulePosition(pnOrder, 0) <> AUDIO_ERROR_NONE Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Command3_Click()
|
||||
|
||||
StopButton_Click
|
||||
Form1.Hide
|
||||
Unload Form1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Command4_Click()
|
||||
|
||||
Set iewindow = New InternetExplorer
|
||||
|
||||
iewindow.Visible = True
|
||||
iewindow.Navigate ("http://www.egerter.com")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Command5_Click()
|
||||
|
||||
Set iewindow = New InternetExplorer
|
||||
|
||||
iewindow.Visible = True
|
||||
iewindow.Navigate ("http://www.egerter.com/seal")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Dir1_Change()
|
||||
|
||||
File1.Path = Dir1.Path
|
||||
File1.Refresh
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Drive1_Change()
|
||||
|
||||
Dir1.Path = Drive1.Drive
|
||||
Dir1.Refresh
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub File1_Click()
|
||||
|
||||
Text1.Text = Dir1.Path + "\" + File1.filename
|
||||
Text1.Refresh
|
||||
szFileName = Text1.Text
|
||||
StopButton_Click
|
||||
|
||||
SSTab1.Tab = 1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PlayButton_Click()
|
||||
' WARNING! It's the very first time I have ever used VB, after some hours
|
||||
' I could finally write a sort of interface for AUDIOW32.DLL, it's not
|
||||
' perfect, there are still some things I couldn't figure how to port.
|
||||
' I used VB 4.0 and SEAL 1.03 to test this code.
|
||||
|
||||
Dim Info As AudioInfo
|
||||
|
||||
If bSongPlaying Then
|
||||
StopButton_Click
|
||||
End If
|
||||
|
||||
' set up audio configuration structure
|
||||
Info.nDeviceId = AUDIO_DEVICE_MAPPER
|
||||
Info.wFormat = AUDIO_FORMAT_STEREO + AUDIO_FORMAT_16BITS
|
||||
Info.nSampleRate = 22050 ' 44100 is an unsigned 16-bit integer!
|
||||
|
||||
' open the default audio device, return if error
|
||||
If AOpenAudio(Info) <> AUDIO_ERROR_NONE Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' open 32 active voices
|
||||
If AOpenVoices(32) <> AUDIO_ERROR_NONE Then
|
||||
ACloseAudio
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' load module file from disk, shutdown and return if error
|
||||
If ALoadModuleFile(szFileName, lpModule, 0) <> AUDIO_ERROR_NONE Then
|
||||
ACloseVoices
|
||||
ACloseAudio
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' start playing the module file
|
||||
If APlayModule(lpModule) <> AUDIO_ERROR_NONE Then
|
||||
ACloseVoices
|
||||
ACloseAudio
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
bSongPlaying = 1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub StopButton_Click()
|
||||
|
||||
If bSongPlaying = 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
bSongPlaying = 0
|
||||
|
||||
' stop playing the module file
|
||||
AStopModule
|
||||
|
||||
' release the module file
|
||||
AFreeModuleFile (lpModule)
|
||||
|
||||
' close audio device
|
||||
ACloseVoices
|
||||
ACloseAudio
|
||||
|
||||
End Sub
|
||||
BIN
seal-hack/examples/vb/form1.frx
Normal file
BIN
seal-hack/examples/vb/form1.frx
Normal file
Binary file not shown.
43
seal-hack/examples/vb/project1.vbp
Normal file
43
seal-hack/examples/vb/project1.vbp
Normal file
@@ -0,0 +1,43 @@
|
||||
Type=Exe
|
||||
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0; COMDLG32.OCX
|
||||
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
|
||||
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.1#0; RICHTX32.OCX
|
||||
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0; COMCTL32.OCX
|
||||
Object={FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0; DBLIST32.OCX
|
||||
Object={00028C01-0000-0000-0000-000000000046}#1.0#0; DBGRID32.OCX
|
||||
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#Standard OLE Types
|
||||
Reference=*\G{EE008642-64A8-11CE-920F-08002B369A33}#2.0#0#C:\WINDOWS\SYSTEM\MSRDO20.DLL#Microsoft Remote Data Object 2.0
|
||||
Reference=*\G{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.0#0#C:\WINDOWS\SYSTEM\SHDOCVW.DLL#Microsoft Internet Controls
|
||||
Form=Form1.frm
|
||||
Module=Audio; audio.Bas
|
||||
Form=frmSplash.frm
|
||||
IconForm="Form1"
|
||||
Startup="frmSplash"
|
||||
HelpFile=""
|
||||
Title="SealStuf"
|
||||
ExeName32="SEAL_VB.exe"
|
||||
Command32=""
|
||||
Name="SEALVB"
|
||||
HelpContextID="0"
|
||||
CompatibleMode="0"
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
RevisionVer=0
|
||||
AutoIncrementVer=0
|
||||
ServerSupportFiles=0
|
||||
VersionComments="Modified by Barry Egerter with initial code by Carlos Hasan"
|
||||
VersionCompanyName="Egerter Software"
|
||||
CompilationType=0
|
||||
OptimizationType=0
|
||||
FavorPentiumPro(tm)=0
|
||||
CodeViewDebugInfo=0
|
||||
NoAliasing=0
|
||||
BoundsCheck=0
|
||||
OverflowCheck=0
|
||||
FlPointCheck=0
|
||||
FDIVCheck=0
|
||||
UnroundedFP=0
|
||||
StartMode=0
|
||||
Unattended=0
|
||||
ThreadPerObject=0
|
||||
MaxNumberOfThreads=1
|
||||
3
seal-hack/examples/vb/project1.vbw
Normal file
3
seal-hack/examples/vb/project1.vbw
Normal file
@@ -0,0 +1,3 @@
|
||||
Form1 = 212, 37, 735, 505, C, 23, 44, 546, 512,
|
||||
Audio = 0, 0, 0, 0, C
|
||||
frmSplash = 88, 88, 611, 556, C, 92, 63, 615, 531,
|
||||
230
seal-hack/examples/vb/splash.frm
Normal file
230
seal-hack/examples/vb/splash.frm
Normal file
@@ -0,0 +1,230 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form frmSplash
|
||||
BorderStyle = 3 'Fixed Dialog
|
||||
ClientHeight = 4245
|
||||
ClientLeft = 255
|
||||
ClientTop = 1410
|
||||
ClientWidth = 7380
|
||||
ClipControls = 0 'False
|
||||
ControlBox = 0 'False
|
||||
Icon = "Splash.frx":0000
|
||||
KeyPreview = -1 'True
|
||||
LinkTopic = "Form2"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 4245
|
||||
ScaleWidth = 7380
|
||||
ShowInTaskbar = 0 'False
|
||||
StartUpPosition = 2 'CenterScreen
|
||||
Begin VB.Frame Frame1
|
||||
Height = 4050
|
||||
Left = 150
|
||||
TabIndex = 0
|
||||
Top = 60
|
||||
Width = 7080
|
||||
Begin VB.Timer Timer1
|
||||
Interval = 1000
|
||||
Left = 6600
|
||||
Top = 3240
|
||||
End
|
||||
Begin VB.Label Label1
|
||||
AutoSize = -1 'True
|
||||
Caption = "Visual Basic Interface"
|
||||
BeginProperty Font
|
||||
Name = "Arial"
|
||||
Size = 15.75
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 360
|
||||
Left = 2400
|
||||
TabIndex = 9
|
||||
Top = 1800
|
||||
Width = 3240
|
||||
End
|
||||
Begin VB.Image imgLogo
|
||||
Height = 2385
|
||||
Left = 360
|
||||
Picture = "Splash.frx":000C
|
||||
Stretch = -1 'True
|
||||
Top = 795
|
||||
Width = 1815
|
||||
End
|
||||
Begin VB.Label lblCopyright
|
||||
Caption = "Copyright 1997"
|
||||
BeginProperty Font
|
||||
Name = "Arial"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 255
|
||||
Left = 4560
|
||||
TabIndex = 4
|
||||
Top = 3060
|
||||
Width = 2415
|
||||
End
|
||||
Begin VB.Label lblCompany
|
||||
Caption = "Egerter Software"
|
||||
BeginProperty Font
|
||||
Name = "Arial"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 255
|
||||
Left = 4560
|
||||
TabIndex = 3
|
||||
Top = 3270
|
||||
Width = 2415
|
||||
End
|
||||
Begin VB.Label lblWarning
|
||||
AutoSize = -1 'True
|
||||
Caption = "Warning - Do not close the application while a song is still playing.......bugs exist!"
|
||||
BeginProperty Font
|
||||
Name = "Arial"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 210
|
||||
Left = 600
|
||||
TabIndex = 2
|
||||
Top = 3720
|
||||
Width = 5790
|
||||
End
|
||||
Begin VB.Label lblVersion
|
||||
Alignment = 1 'Right Justify
|
||||
AutoSize = -1 'True
|
||||
Caption = "Version 1.0"
|
||||
BeginProperty Font
|
||||
Name = "Arial"
|
||||
Size = 12
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 285
|
||||
Left = 5580
|
||||
TabIndex = 5
|
||||
Top = 2700
|
||||
Width = 1275
|
||||
End
|
||||
Begin VB.Label lblPlatform
|
||||
Alignment = 1 'Right Justify
|
||||
AutoSize = -1 'True
|
||||
Caption = "for Windows 95/NT"
|
||||
BeginProperty Font
|
||||
Name = "Arial"
|
||||
Size = 15.75
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 360
|
||||
Left = 4020
|
||||
TabIndex = 6
|
||||
Top = 2340
|
||||
Width = 2835
|
||||
End
|
||||
Begin VB.Label lblProductName
|
||||
AutoSize = -1 'True
|
||||
Caption = "Seal 1.03"
|
||||
BeginProperty Font
|
||||
Name = "Arial"
|
||||
Size = 32.25
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 765
|
||||
Left = 2280
|
||||
TabIndex = 8
|
||||
Top = 1080
|
||||
Width = 2775
|
||||
End
|
||||
Begin VB.Label lblLicenseTo
|
||||
Alignment = 1 'Right Justify
|
||||
Caption = "Licensed to all users of the Egerter Software Web site. Free for home and office use."
|
||||
BeginProperty Font
|
||||
Name = "Arial"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 255
|
||||
Left = 120
|
||||
TabIndex = 1
|
||||
Top = 240
|
||||
Width = 6855
|
||||
End
|
||||
Begin VB.Label lblCompanyProduct
|
||||
AutoSize = -1 'True
|
||||
Caption = "Carlos Hasan presents"
|
||||
BeginProperty Font
|
||||
Name = "Arial"
|
||||
Size = 18
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 435
|
||||
Left = 1800
|
||||
TabIndex = 7
|
||||
Top = 705
|
||||
Width = 3870
|
||||
End
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmSplash"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Dim counter
|
||||
Option Explicit
|
||||
|
||||
Private Sub Form_KeyPress(KeyAscii As Integer)
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Unload(Cancel As Integer)
|
||||
|
||||
Load Form1
|
||||
Form1.Show
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Frame1_Click()
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Timer()
|
||||
counter = counter + 1
|
||||
If counter > 7 Then
|
||||
Unload Me
|
||||
End If
|
||||
End Sub
|
||||
BIN
seal-hack/examples/vb/splash.frx
Normal file
BIN
seal-hack/examples/vb/splash.frx
Normal file
Binary file not shown.
Reference in New Issue
Block a user