Equicar con click derecho item(funcional 11.5 dx7)

Bueno, Antes de empezar quiero avisarles que este codigo no es mio, lo extraje de un AO, y que no digan que no anda porqeu ami me andubo perfecto y lo probe en un Mod Nightmare AO Gracias!

Ahroa si, Hola . Como Estan ?

Les vengo a traer este aporte , el que de verdad funciona, ¿Que Aporte? Equipar ocn Click Derecho para los que no saben ni un 20% de programacion les dejo esto :

Yo vi que estaba Aportado en Gs-Z*** pero ami ninguno me funcono, y por eso lo aporto

TODO ES EN EL CLIENTE! En el ClsGraphicalInventory

Buscan :

Código:: Sub InventoryWindow_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

Y reemplazan todo el Sub por :

Código:: Private Sub InventoryWindow_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modify Date: 27/07/04
'Implements the mouse up event of the inventory picture box
'Check outs which item was clicked
'***************************************************
'Store previously selected item
Dim prevSelItem As Long

prevSelItem = InvSelectedItem

'Get the currently clickced item
InvSelectedItem = ClickItem(CInt(x), CInt(y))
If InvSelectedItem <> SelectItem And SelectItem <> 0 And InvSelectedItem <> 0 Then
Call SendData("DRAG" & InvSelectedItem & "," & SelectItem)
End If

If InvSelectedItem <> 0 Then
frmMain.ItemName.Caption = UserInventory(InvSelectedItem).Name
Else
frmMain.ItemName.Caption = "Nada"
End If

'Update needed inventory slots
If prevSelItem <> InvSelectedItem Then
If prevSelItem <> 0 And prevSelItem <> FLAGORO Then Call DrawInventorySlot(prevSelItem)
If InvSelectedItem Then Call DrawInventorySlot(InvSelectedItem)
End If

#If ConMenuesConextuales = 1 Then
'If it was a right click on the same item we had selected before, show popup menu
If Button = vbRightButton And prevSelItem = InvSelectedItem Then
'Show the provided menu as a popup
Call InventoryWindow.Parent.PopUpMenu(ItemMenu, , x, y)
End If
#End If
If Button = 2 Then
If (Inventario.SelectedItem > 0) And (Inventario.SelectedItem <= MAX_INVENTORY_SLOTS) Then _
SendData "KHEV" & Inventario.SelectedItem
End If
End Sub

Casi lo olvido, En las declaraciones del ClsGraphicalInventory Abajo de :

Código:: Option Explicit

Ponemos :

Código:: Dim SelectItem As Long

Bueno eso es todo espero q les sirva xD

fUENTES Gs zone

Director de Tropas Cantidad de envíos : 143 Fecha de inscripción : 28/07/2013

Buen aporte

Indexado Very Happy

A bien che... robas post okey... ese post en sa lo puse yo genio...
att:rodriikaapo

» Equipa items click derecho 11.5 dx7
» Aporte- Solucionar Click derecho ( Seventh AO 2.7) 13.3