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 (557):    1 551 552 553 554 555 557   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 286
Último miembro: Emilio Uribe
Temas del foro: 1,720
Mensajes del foro: 8,936
Últimos temas
GauchoCAD vuelve a las pi...
Foro: Aplicaciones/Fragmentos de Código
Último mensaje por: tercoide, Hace 28 minutos
Respuestas: 14 - Vistas: 12,706
Archivos .ods
Foro: General
Último mensaje por: tincho, 01-07-2025, 18:54
Respuestas: 8 - Vistas: 297
Publicidad
Foro: Sobre gambas-es.org
Último mensaje por: tincho, 01-07-2025, 18:48
Respuestas: 6 - Vistas: 360
Web con gambas, a ver si ...
Foro: WebApp/WebForms
Último mensaje por: tincho, 01-07-2025, 17:47
Respuestas: 41 - Vistas: 32,635
Un sistema de ayudas cont...
Foro: Videotutoriales
Último mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 324
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.