https://foro.gambas-es.org/viewtopic.php?f=1&t=5641&p=33374#p33374
-----------------------------------
vuott
Viernes, 15 Julio 2016, 09:12

Re: Arrastrar Y Mostrar Imagen
-----------------------------------
[quote user="Shell" post="33370"]Vuott:

El problema es con el carácter "0". No lo hice tan bien como debiese.  :roll: 

La palabra "file" es eliminada en:

[code linenumbers=false syntax=gambas]
...
 If anombre[0] = "file:" Then anombre.Remove(0) 'Eliminamos la palabra file:    
...
[/code]

Saludos[/quote]

No, porqué yo puse la raya antes de
[code linenumbers=false syntax=gambas]
...
 If anombre[0] = "file:" Then anombre.Remove(0) 'Eliminamos la palabra file:    
...
[/code]


es decir:

[code linenumbers=false syntax=gambas]Public Sub PictureBox1_Drop()  
  
  Dim anombre As String[]
  Dim ruta As String  
  Dim palabra As String
  Dim pimagen As Picture
  Dim atmp As String[]  
  
  ruta = Drag.Data 

     Print ruta   <<==========

  anombre = Split(ruta, "/", "\r\n", True) 
  ruta = ""
  
  If anombre[0] = "file:" Then anombre.Remove(0)[/code]


Saludos


