Il drag&drop, questo (per me) sconosciuto

[Picavbg]

mi resterebbe in giro un array, il primo, pressoché inutilizzato con uno spreco di memoria e risorse.

Forse non ho capito. Tu hai una serie di pictureBox contetenti le immagini delle fiches di dotazione, ma dovresti averne anche una certa quantità per ciascun tipo di fiches. Guisto?
Poi dovresti avere creato sul tavolo delle PictureBox corrispondenti i tipi di fiches da puntare di volta in volta. Perciò, se tu hai creato gli oggetti PictureBox sul tavolo con la loro bellissima immagine , ma con la proprietà Visible=False, l'unica cosa che resterebbe da fare in ciascuna puntata, sarebbe, a mio avviso, quella di modificare lo status di detta proprieta in Visible=True ed il n° delle fiches in dotazione e di quelle oggetto della puntata corrente.
Però, ripeto, non ho chiara la gestione analizzata per il n° delle fiches di dotaziione e di ciascuna puntata, quindi mi viene difficile ragionare insieme a te la soluzione possibile da praticare. se ancora non hai risolto e se vuoi farmi capire come ha organizzato le quantuità di fiches per ciascun tipo, potrei collaborarti meglio.
 

[Top Fuel]

Sarà meglio che metto in allegato il progetto altrimenti non ci capiamo più.
L'interfaccia è quasi completa, manca solo l'help che farò per ultimo, mentre a livello di codice manca ancora un pò di roba, ma prima di continuare voglio risolvere questo problema.
Prova ad usarlo e capirai.

[vuott]

E' stata colpa di una mia imprecisione nel mio precedente suggerimento.  

Bisogna assegnare i valori richiesti al metodo .Copy.

Prova così:

Codice: gambas [Seleziona]

Public Sub Tavolo_Drop()

  fichestmp.Add(drag.Source)

  fiches = fichestmp.Copy(0, fichestmp.Count)

 ...etc...etc....

[Picavbg]

Sarà meglio che metto in allegato il progetto altrimenti non ci capiamo più.
L'interfaccia è quasi completa, manca solo l'help che farò per ultimo, mentre a livello di codice manca ancora un pò di roba, ma prima di continuare voglio risolvere questo problema.
Prova ad usarlo e capirai.

Purtroppo non sono in condizioni di provare più niente. Di due ambienti operativi con dentro Gambas, ora me ne ritrovo zero. In fatti dopo avere abbandonato Sabayon, fedora ha deciso di non avviarsi più, perciò sono letteralmente nei guai, anche con i miei conti di cassa familiare. Nel frattempo il mio nuovo ambiente Mageia non ha nei propri repositori il pacchetto precompilato di Gambas, quindi dovrò partire dai sorgenti, ma la procedura é per me tutta da studiare.  Ho reso l'idea?
Mi farò risentire, se ce ne sarà ancora biosogno, a conclusione delle mie attuali disavventure da febbre da cavallo 
 

[Top Fuel]

Queste sono cose da winciof, non da Linux. Sicuro che la ceskhonite non abbia contaminato il tuo pc?
Comunque grazie dell'interessamento, appena riesci a sistemare il tutto dammi un parere sul progetto.

[Picavbg]

Queste sono cose da winciof, non da Linux. Sicuro che la ceskhonite non abbia contaminato il tuo pc?
Comunque grazie dell'interessamento, appena riesci a sistemare il tutto dammi un parere sul progetto.

Chiedilo a vuott. É stato il mio medico virtuale per diverso tempo. Poi ha visto che io, non il mio pc, ero diventato incurabile e, per la disperazione, ha cambiato avatar.  

[Top Fuel]

Prova così:

Codice: gambas [Seleziona]

Public Sub Tavolo_Drop()

  fichestmp.Add(drag.Source)

  fiches = fichestmp.Copy(0, fichestmp.Count)

Niente da fare, non cambia nulla.
Anche facendo così, il riferimento all'originale rimane, che viene quindi spostato.

[vuott]

Niente da fare, non cambia nulla.
Anche facendo così, il riferimento all'originale rimane, che viene quindi spostato.

...ma mi dai conferma che almeno l'errore Type mismatch: così non viene sollevato ?

[Top Fuel]

Quello non c'è più, ma il problema rimane. Ho idea che dovrò inventarmi qualcosa d'altro.

[vuott]

Quello non c'è più, ma il problema rimane. Ho idea che dovrò inventarmi qualcosa d'altro.

Poiché avviene uno spostamento fisico dell'oggetto in questione, proporrei di rigenerare l'oggetto (nel nostro caso: la fiche) nel posto e con le medesime caratteristiche di quello spostato con il mouse.
Una cosa di 'sto genere:

Codice: gambas [Seleziona]

Public Sub Fiches_MouseDown()  ' Quando si clicca sull'immagine di una fiche...

'...viene generata in sostanza una nuova fiche...
   Dim picB As New PictureBox(Me) As "Fiches"

'...avente le caratteristiche di quella sulla quale si è cliccato:
   With picB
      .X = Last.X
      .Y = Last.Y
      .W = Last.W
      .H = Last.H
      .Picture = Last.Picture
      .Tag = Last.Tag
   End With

End

In questo caso, inoltre, non serve creare una copia dell'array. Quindi avremo:

Codice: gambas [Seleziona]

Public Sub Tavolo_Drop()

  fichestmp.Add(drag.Source)

  With Last
 
   fichestmp[fichestmp.max].x = Panel1.x + .x + (.width - fichestmp[fichestmp.max].width) \ 2
   fichestmp[fichestmp.max].y = Panel1.y + .y + (.height - fichestmp[fichestmp.max].height) \ 2

  ...etc...etc....

ma addirittura, se non serve ad altro, potresti eliminare l'array stesso:

Codice: gambas [Seleziona]

Public Sub Tavolo_Drop()

   With Last

     Drag.Source.X = Panel1.x + .x + (.width - Drag.Source.width) \ 2
     Drag.Source.Y = Panel1.y + .y + (.height - Drag.Source.height) \ 2

....etc...etc.....etc...

[Top Fuel]

E' un'idea...
Ci proverò.
Comunque l'array mi serve.

[vuott]

Ci proverò.

Il problema s'è risolto ?

A me funziona.

[Top Fuel]

Se Dio vuole FUNZIONAA!!!
Ora posso continuare.
Dove abiti che hai una birra pagata?

[vuott]

Se Dio vuole FUNZIONAA!!!
Ora posso continuare.
Dove abiti che hai una birra pagata?

Ecco un altro pazzo completo che si affida ad un asino come me ! 

[md9327]

Vedo che comunque riesci a farti dei "proseliti"...