| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 08:03:57 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=4aa9962d28cf04d85dd58f4a20fb84c70a3784cae3594eb845024cb27814ce30a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22PWm7fdgvUCbz5O_ga69RDki30b7W9Hol%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d5156d68db8e4d-BLR
programaMejoraColeccion - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas class file
- Public Sub Form_Open()
- Dim a As Integer
- Dim c As New MejoraColeccion
- Dim c2 As New MejoraColeccion
- c.Add("hace mucho calor", "Sol")
- c.Add("esta muy cerca del sol", "Mercurio")
- c.Add("En su atmosfera no se puede respirar por el efecto invernadero", "Venus")
- c.Add("Es el planeta azul... aunque cada vez es mas gris", "Tierra")
- c.Add("Mas pequeño que la tierra, rojo y bastante ventoso", "Marte")
- Print c[0]
- Print c[4]
- c.add("muy grande, y con una mancha roja", "Jupiter")
- Print c.Count
- Print c[c.count - 1]
- Print c.Key(c.count - 1)
- Print c["Jupiter"]
- TextAreaContenido.text &= "--------------------------------------------------------" & gb.CrLf
- TextAreaContenido.text &= "Recorrer Colección como si fuera un array c " & gb.CrLf
- TextAreaContenido.text &= "--------------------------------------------------------" & gb.CrLf
- For a = 0 To c.count - 1
- Print "Key:", c.Key(a), "Contenido:", c[a]
- TextAreaContenido.text &= "Key: " & c.Key(a) & ", Contenido: " & c[a] & gb.CrLf
- Next
- 'añado un valor mas a una copia
- c2 = c.Copy()
- c2.add("El señor de los Anillos...", "Saturno")
- TextAreaContenido.text &= "--------------------------------------------------------" & gb.CrLf
- TextAreaContenido.text &= "Recorrer Colección como si fuera un array c " & gb.CrLf
- TextAreaContenido.text &= "--------------------------------------------------------" & gb.CrLf
- For a = 0 To c.count - 1
- Print "Key:", c.Key(a), "Contenido:", c[a]
- TextAreaContenido.text &= "Key: " & c.Key(a) & ", Contenido: " & c[a] & gb.CrLf
- Next
- TextAreaContenido.text &= "**** Copia alterada ****" & gb.CrLf
- TextAreaContenido.text &= "--------------------------------------------------------" & gb.CrLf
- TextAreaContenido.text &= "Recorrer Colección como si fuera un array c2 " & gb.CrLf
- TextAreaContenido.text &= "--------------------------------------------------------" & gb.CrLf
- For a = 0 To c2.count - 1
- Print "Key:", c2.Key(a), "Contenido:", c2[a]
- TextAreaContenido.text &= "Key: " & c2.Key(a) & ", Contenido: " & c2[a] & gb.CrLf
- Next
- Print c2["Jupiter"]
- End
- Public Sub Form_Resize()
- TextAreaContenido.w = Me.w - TextAreaContenido.y - 10
- TextAreaContenido.h = Me.h - 20 - TextAreaContenido.y
- End
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Exchange Exploit T I⭐⭐
Java | 6 sec ago | 0.10 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 9 sec ago | 0.25 KB
-
⭐⭐⭐Profit Method⭐⭐
Java | 17 sec ago | 0.10 KB
-
⭐⭐⭐ChangeNOW Exploit⭐⭐
Java | 29 sec ago | 0.10 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ L
JavaScript | 34 sec ago | 0.25 KB
-
⭐⭐⭐GMAIL Logs (2FA disabled)⭐⭐
Java | 40 sec ago | 0.10 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ S
JavaScript | 42 sec ago | 0.25 KB
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 50 sec ago | 0.10 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
