[Correção] Deletar loja

por Ricardo Sex 14 Jun 2013, 18:06

Introdução

Não há código no botão de deletar no editor de loja.

Client~Side

No final da frmEditor_Shop adicione:

Código:: 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