Post recenti

Pagine: [1] 2 3 ... 10
1
Come sapete, Gambas attualmente non è in grado di salvare una Image in un file immagine di formato TIFF o ICO.

Ecco come superare agevolmente l'ostacolo:

http://www.gambas-it.org/wiki/index.php?title=Convertire_un_oggetto_di_tipo_%22Image%22_in_un_file_di_formato_TIFF_o_ICO_con_le_funzioni_esterne_del_API_di_Libgdk_pixbuf
6
Altri Paesi / Raspberry Pi camera module
« Ultimo post da vuott il 23 Febbraio 2018, 10:23:13 »
9
Programmazione / Impedire l'accesso alle risorse di un Oggetto
« Ultimo post da vuott il 22 Febbraio 2018, 19:31:04 »
Poter e sapere dunque accedere alle aree di memoria di un Oggetto, significa poter modificare i valori delle sue proprietà.

......potrei addirittura impedire l'accesso (anche temporaneamente) alle risorse (Proprietà, Metodi, Eventi)  di un Oggetto.

Nell'esempio che segue poniamo sul Form una Label e un Button, poi impostiamo il seguente codice:
Codice: [Seleziona]
Public Sub Form_Open()

' Attribuiamo il colore rosso allo sfondo della Label:'
  Label1.Background = Color.Red

End


Public Sub Button1_Click()

  Dim st As Stream

' Accediamo al 1° membro della Struttura del file sorgente ".../gambasdevel/main/gbx/gbx_object.h", propria di ciascun Oggetto creato:'
   st = Memory VarPtr(Label1) For Write
   
' Assegnando il valore zero, "impediamo" l'accesso alla Struttura propria di - in questo caso - "Label1":
   Write #st, 0 As Integer
   st.Close

' Verifichiamo se l'Oggetto "Label1" è valido, nonché il valore d'indirizzo dell'Oggetto "Label1":
   Print Object.IsValid(Label1), Label1

' Proviamo la conferma, chiedendo sia stampato il valore del colore dello sfondo di "Label1";  ma succede che....:'
   Print Label1.Background

End
Pagine: [1] 2 3 ... 10