-
-
Notifications
You must be signed in to change notification settings - Fork 1k
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
distinguish TeX from VB files for .cls, #341
- Loading branch information
Showing
6 changed files
with
380 additions
and
2 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,103 @@ | ||
| VERSION 1.0 CLASS | ||
| BEGIN | ||
| MultiUse = -1 'True | ||
| Persistable = 0 'NotPersistable | ||
| DataBindingBehavior = 0 'vbNone | ||
| DataSourceBehavior = 0 'vbNone | ||
| MTSTransactionMode = 0 'NotAnMTSObject | ||
| END | ||
|
|
||
| 'http://www.vbforums.com/showthread.php?374132-A-basic-example-of-Class-Modules | ||
| 'file = Class Sample (game).zip | ||
|
|
||
| Attribute VB_Name = "cItems" | ||
| Attribute VB_GlobalNameSpace = False | ||
| Attribute VB_Creatable = True | ||
| Attribute VB_PredeclaredId = False | ||
| Attribute VB_Exposed = False | ||
| Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes" | ||
| Attribute VB_Ext_KEY = "Collection" ,"cItem" | ||
| Attribute VB_Ext_KEY = "Member0" ,"cItem" | ||
| Attribute VB_Ext_KEY = "Top_Level" ,"Yes" | ||
| Option Explicit | ||
|
|
||
| 'local variable to hold collection | ||
| Private mCol As Collection | ||
|
|
||
| Public Function Add( _ | ||
| ItemType As eItemTypes, _ | ||
| Value As Long, _ | ||
| Rarity As Long, _ | ||
| Optional ItemName As String, _ | ||
| Optional sKey As String) As cItem | ||
| 'create a new object | ||
| Dim objNewMember As cItem | ||
| Set objNewMember = New cItem | ||
|
|
||
|
|
||
| 'set the properties passed into the method | ||
| objNewMember.Value = Value | ||
| objNewMember.Rarity = Rarity | ||
| If Len(sKey) = 0 Then | ||
| mCol.Add objNewMember | ||
| Else | ||
| mCol.Add objNewMember, sKey | ||
| End If | ||
|
|
||
|
|
||
| 'return the object created | ||
| Set Add = objNewMember | ||
| Set objNewMember = Nothing | ||
|
|
||
|
|
||
| End Function | ||
|
|
||
| Public Property Get Item(vntIndexKey As Variant) As cItem | ||
| Attribute Item.VB_UserMemId = 0 | ||
| 'used when referencing an element in the collection | ||
| 'vntIndexKey contains either the Index or Key to the collection, | ||
| 'this is why it is declared as a Variant | ||
| 'Syntax: Set foo = x.Item(xyz) or Set foo = x.Item(5) | ||
| Set Item = mCol(vntIndexKey) | ||
| End Property | ||
|
|
||
|
|
||
|
|
||
| Public Property Get Count() As Long | ||
| 'used when retrieving the number of elements in the | ||
| 'collection. Syntax: Debug.Print x.Count | ||
| Count = mCol.Count | ||
| End Property | ||
|
|
||
|
|
||
| Public Sub Remove(vntIndexKey As Variant) | ||
| 'used when removing an element from the collection | ||
| 'vntIndexKey contains either the Index or Key, which is why | ||
| 'it is declared as a Variant | ||
| 'Syntax: x.Remove(xyz) | ||
|
|
||
|
|
||
| mCol.Remove vntIndexKey | ||
| End Sub | ||
|
|
||
|
|
||
| Public Property Get NewEnum() As IUnknown | ||
| Attribute NewEnum.VB_UserMemId = -4 | ||
| Attribute NewEnum.VB_MemberFlags = "40" | ||
| 'this property allows you to enumerate | ||
| 'this collection with the For...Each syntax | ||
| Set NewEnum = mCol.[_NewEnum] | ||
| End Property | ||
|
|
||
|
|
||
| Private Sub Class_Initialize() | ||
| 'creates the collection when this class is created | ||
| Set mCol = New Collection | ||
| End Sub | ||
|
|
||
|
|
||
| Private Sub Class_Terminate() | ||
| 'destroys collection when this class is terminated | ||
| Set mCol = Nothing | ||
| End Sub | ||
|
|
Oops, something went wrong.