Delete shop

Introduction

There is no code in the delete button in the editor shop.

Client~Side

At the end of the frmEditor_Shop add:

Private Sub cmdDelete_Click()
    Dim tmpIndex As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    ClearShop EditorIndex
    tmpIndex = lstIndex.ListIndex
    lstIndex.RemoveItem EditorIndex - 1
    lstIndex.AddItem EditorIndex & ": " & Shop(EditorIndex).Name, EditorIndex - 1
    lstIndex.ListIndex = tmpIndex
    ShopEditorInit

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdDelete_Click", "frmEditor_Shop", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Credits

Ricardo

Nice i fixed that already and wanted to create an Tutorial but i forgot it >.<

Nice i fixed that already and wanted to create an Tutorial but i forgot it >.<

trolololo xD

And nice ricardo tnx

Thanks xD

Thanks  😉

Oh well, I didn’t even think I needed this till now, thanks for raising it XD

Log in to reply