Shell 25-07-2020, 20:16
Buenas!.

Tengo un array y le quiero añadir x's veces otro array.

Primero usé este código:

Código:
Public Sub Ejemplo1()
  
  Dim miarray As Integer[] = [1, 2, 3]
  Dim apararepetir As Integer[] = [4, 5, 6]
  Dim i As Integer
  Dim cuentaveces As Integer
  
  cuentaveces = 3
  
  For i = 1 To cuentaveces
    miarray.Insert(apararepetir)
  Next
  
End

Ahora lo hice de otra forma más abreviada, algo más compleja, pero más rápida.
Fijaros en asignación del array.

Código:
Public Sub Ejemplo2()
  
  Dim cadena As String = "1,2,3"
  Dim insertar As String = ",4,5,6"
  Dim amiarray As New String[]
  Dim anumeros As Integer[]
  
  'Uso del método estático String para repetir tantas veces como queramos la concatenación
  'Concatenar todo lo anterior con la cadena que nos interesa
  'Convertir cadena con caracter delimitador a array
  
  amiarray = Split(cadena & String(3, insertar), ",")  
  
  'Conversión directa del array de tipo cadena a tipo entero
  anumeros = amiarray.Copy() 
  
  ' Print Object.Address(amiarray)
  ' Print Object.Address(anumeros)
  
End

¿ No existe una función parecida a Cstr o Cint para array's ?.  Smile
Sé que gambas puede convertir un tipo cadena a un entero directamente, pero  se le añade la función por motivos "educados".. Tongue
Pero convertir un array entero de tipo cadena a tipo entero ??. No había visto eso.

Saludos
calcena 25-07-2020, 18:35
Buenas tardes a todos,
Tengo un IconPanel y me gustaría que se ejecutase un método al pulsar sobre una pestaña de un iconPanel.
Cómo puedo acceder al ejecutar un iconPanel[0]. ????? es decir que función o método tengo que invocar para que en el click se lance lo que quiero ?

Gracias a todos.

Perdón señores ....probando probando y mientras le daba al botón publicar, yo mismo me contesto:



Código:
Public Sub icpPanelCentral_Click()
 
  With icpPanelCentral
    If .Index = 4 Then
      Message.info("pulsado", "ok")
    Endif
    
  End With
 
End


Tongue
calcena 24-07-2020, 20:37
Buenas a todos en esta nueva y muy modernizada versión del foro. He buscando en el anterior foro (historial) sobre cómo adjuntar un archivo utilizando Gambas, y he encontrado la forma de poder pasarlo a formato html pero no la de realizar un attach de un archivo: 

Código:
)

  Dim destino As String
  Dim enviador As New SmtpClient

  enviador.host = "miservidor de correo"  'Estos datos que te pongo entre comillados no los recibo como parámetros, por cuanto los saco de una clase "Usuario" que se instancia en el momento del login  
  enviador.user = "miusuariodecorreo"
  enviador.password = "miclavedeusuariodecorreo"
  If Not cFrom Then cFrom = "micuenta@remitentedecorreo"
  enviador.Alternative = True
  enviador.From = cFrom
  For Each destino In aTo
      enviador.to.Add(destino)
  Next
  enviador.Subject = cAsunto
  enviador.Add(cTexto, "text/plain")
  enviador.send  
    
End​​​​​​

Es posible que sea añadiendo un:

enviador.Add(... ,"application/pdf", "nombre del archivo)    ????

El attachment sería siempre de un pdf.

gracias y saludos.
Páginas (529):    1 523 524 525 526 527 529   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 270
Último miembro: rabiendeceno
Temas del foro: 1,629
Mensajes del foro: 8,467
Últimos temas
Problema al compilar prog...
Foro: General
Último mensaje por: gampachel, Hace 58 minutos
Respuestas: 2 - Vistas: 14
Añadir control a matriz d...
Foro: General
Último mensaje por: Grandamakulo, Hace 1 hora
Respuestas: 6 - Vistas: 135
Ayuda para guardar fotogr...
Foro: Bases de Datos
Último mensaje por: jackrobot, 25-02-2025, 23:02
Respuestas: 4 - Vistas: 231
Gambas + ERP = GamERP.
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: omoreno, 25-02-2025, 17:52
Respuestas: 7 - Vistas: 258
¿Cómo enviar «Control+C »...
Foro: General
Último mensaje por: Grandamakulo, 25-02-2025, 14:14
Respuestas: 3 - Vistas: 118
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.