[Resolvido]Systema de fexar

Alguem sabe e pode disponibilizar um TUTORIAL como fexa as caixas de inventario, Options, spells ect...Com o [X] em cada caixa de inventario?

(Obs. so iniciante no VB6 )

Tipo assim.

Spoiler:

bom pelo qe sei, voce teria que calcular o in_area ;

como nao mexo com VB nao sei.. mais no NP MAster V3.0
é so vc colocar a variavel de instacia: @closable = true

que seria: Fechamento habilitado? = sim!

abraços

Pic"nomedapic".visible = False

Exemplo:

picSpell.Visible = False

Cria uma "Image" no lugar que deseja, coloca a imagem nessa "Image" que desejar e coloca o comando dele, por exemplo:

Código:

picinventory.visible = false

Label (Exemplo)

Código:

Private Sub Label9_Click()
If frmMain.picCharacter.Visible = False Then
frmMain.picCharacter.Visible = True
frmMain.picCharacter.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\character.jpg")
Else
frmMain.picCharacter.Visible = False
End If
End Sub