VB2010 Ayuda para principiantes en la programación

1. Establezca AllowDrop de Form1 en True para permitir la lectura del archivo.

2 En el evento DragEnter de Form1, escriba el siguiente código.

Si e.Data.GetDataPresent(DataFormats.FileDrop ) Entonces 'Confirma que es un archivo

Ruta DIm As String = CType(e.Data.GetData(DataFormats.FileDrop )(0)) 'Confirma que es un archivo

Ruta DIm As String = CType(e.Data.GetData(DataFormats.FileDrop )(0)) 'Confirma que es un archivo

3.Data.GetData (DataFormats.FileDrop), String())(0) 'Obtener la ruta

Si path.EndsWith(" .txt") Entonces 'Confirma que es un archivo de texto

Dim FileData As String() = System.IO.File.ReadAllLines(ruta, _

System.Text.Encoding.FileData()()(0)Dim cacheAddress As String = "" 'Definir variables: caché dirección

Dim url As String = "" 'Definir variables: abrir dirección de página web

Para cada cadena Como cadena en FileData 'Recorrer datos

Si cadena. StartsWith("cache") Luego 'Confirmar como dirección de caché

cacheAddress = str.Replace("cache", "")

End If

If str .url = str.Replace("página web","")

End If

'Establecer dirección de caché

Mi .RegistryValueKind.ExpandString)

' Abrir página

Navegador web1.Navigate(url)

Fin