You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
772 B
OpenEdge ABL
38 lines
772 B
OpenEdge ABL
2 years ago
|
VERSION 1.0 CLASS
|
||
|
|
BEGIN
|
||
|
|
MultiUse = -1 'True
|
||
|
|
Persistable = 0 'NotPersistable
|
||
|
|
DataBindingBehavior = 0 'vbNone
|
||
|
|
DataSourceBehavior = 0 'vbNone
|
||
|
|
MTSTransactionMode = 0 'NotAnMTSObject
|
||
|
|
END
|
||
|
|
Attribute VB_Name = "clsExplo"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = True
|
||
|
|
Attribute VB_PredeclaredId = False
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Private Sym As Control
|
||
|
|
Private cnt As Byte
|
||
|
|
|
||
|
|
|
||
|
|
Public Sub Init(Symbol As Control)
|
||
|
|
|
||
|
|
Set Sym = Symbol
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Public Function ShowNext() As Boolean
|
||
|
|
|
||
|
|
Set Sym.Picture = LoadPicture(App.Path & "\data\pictures\ex" & cnt & ".gif")
|
||
|
|
cnt = cnt + 1
|
||
|
|
If cnt = 16 Then
|
||
|
|
Sym.Visible = False
|
||
|
|
ShowNext = False
|
||
|
|
Else
|
||
|
|
ShowNext = True
|
||
|
|
End If
|
||
|
|
|
||
|
|
End Function
|