Mensajes

Complicado no, sino que vas a necesitar de mucha matemática, sobre todo con el movimiento circular, esto lo vistes en física cuando estabas en bachillerato al menos te debes acordar de los nombres XD "Movimiento Circular Uniforme" y "Aceleración y Fuerza Centrípeta", busca información al respecto y la velocidad parece ser 0-1-0 osea que comienza en 0 acelera a 1 y vuelve a caer a 0, claro los números son ejemplos de valores. Esto quiere decir que no es uniforme sino más bien Variado el movimiento.

Aquí está muy bien explicado:
http://www.rena.edu.ve/cuartaEtapa/fisica/Tema4b.html

Busca información sobre los keyloggers que usan hooks.

Este es el foro de .Net así que asumo q hablas de Vb.Net, la primera pregunta no la entendi, lo segundo se hace así, y cambiale el título al tema por algo que tenga que ver:

Código (vb.net) [Seleccionar] Expandir

   <DllImport("user32.dll")> _
Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
   End Function

   <DllImport("user32.dll")> _
Private Shared Function ReleaseCapture() As Boolean
   End Function

   Private Sub Form1_MouseDown(ByVal sender As Object, _
                       ByVal e As System.Windows.Forms.MouseEventArgs) Handles _
                       Me.MouseDown

       If e.Button = MouseButtons.Left Then
           ReleaseCapture()
           SendMessage(Me.Handle, &HA1, &H2, 0)
       End If

   End Sub

Claro esto movera el Form por cualquier parte, ponle el Handles al control que quieras usar para mover el Form.

[My.Resources.Data1]

En My.Resources los recursos se guardan o en Binario o en String eso lo decide el compilador automáticamente, no se guardan como un "archivo" y no son una ruta ni un Stream para abrirlos con StreamReader. Ya My.Resources.Data1 es una matriz de bytes. Si deseas transformarlo en String, entonces usa:

Código (vb.net) [Seleccionar] Expandir

System.Text.Encoding.Default.GetString(My.Resources.Data1)

Si lo quieres en Matriz de Bytes ya está así

Si tú preocupación es leerlo realmente con un Stream entonces crea un Stream inicializalo como un MemoryStream con My.Resources.Data1 y abrelo con StreamReader.

Así y estableciendo la propiedad AllowDrop = True

Código (vb.net) [Seleccionar] Expandir


   Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Form1.DragDrop

       If e.Data.GetDataPresent(DataFormats.FileDrop) Then

           Dim Objetos As String() = e.Data.GetData(DataFormats.FileDrop)

      For Each Archivo As String In Objetos
           MessageBox.Show(Archivo)
      Next

       End If

   End Sub

   Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Form1.DragEnter

       If e.Data.GetDataPresent(DataFormats.FileDrop) Then
           e.Effect = DragDropEffects.All
       End If

   End Sub

[_StreamWriter.Close()]

Al final en _StreamWriter.Close() estas cerrando el escritor del stream no el stream principal, el archivo sigue abierto, cierra con _Stream.Close() hacer eso tambien cierra el Writer.

Dónde dice

Código (vb.net) [Seleccionar] Expandir

           If .ShowDialog = Windows.Forms.DialogResult.OK Then
               ruta_txt.Text = (.SelectedPath)
           End If

Si el usuario presiona cancelar y no aceptar sigue corriendo la ejecución de las demás instruciones, agrega un Else Exit Sub (asumo que estás en un Sub sino Exit Function y dónde sea que estes ).

Código (vb.net) [Seleccionar] Expandir

           If .ShowDialog = Windows.Forms.DialogResult.OK Then
               ruta_txt.Text = (.SelectedPath)
           Else
               Exit Sub
           End If

Algunas recomendaciones estás en .Net, usa:

Código (vb.net) [Seleccionar] Expandir


' Usa '
IO.File.Exists
' En Vez De '
My.Computer.FileSystem.FileExists

' Usa '
MessageBox.Show()

' En Vez De '
MsgBox

' Usa '
Environment.NewLine

' En Vez De '
VbNewLine


Con lo de invocar dentro del for llenas memoria de manera innecesaria, a pesar de que invoques una variable con el mismo nombre, es una nueva asignación y se guarda en memoria como nueva variable y la anterior queda flotando porque está creada pero no hay forma de hacer referencia a ella, si lo hicieras con variables que tardaran más en construirse el programa se tornaría muy lento.

Con respecto a cerrar y abrir el Stream para cada vez que vas a escribir no es necesario explicar a menos que vayas a tomar un dictado cerrando y abriendo el cuaderno con cada palabra

La forma correcta es esta:

Código (vb.net) [Seleccionar] Expandir


Dim _Stream As New FileStream("C:\Archivo.ejemplo", FileMode.Open)
Dim _StreamWriter As New StreamWriter(_Stream)

'ESCRITURA DE EJEMPLO'
For X As Integer = 0 To 10
  _StreamWriter.WriteLine(X.ToString())
Next

_Stream.Flush()
_Stream.Close()

'YA AQUI SE PUEDE ELIMINAR EL ARCHIVO'


Cada vez me confundes más porque agregas esto?

Código (vb.net) [Seleccionar] Expandir

Linea = Linea & vbNewLine & ListBox1.Items(a).ToString()

Y no

Código (vb.net) [Seleccionar] Expandir

Linea = ListBox1.Items(a).ToString()

Te has complicado al extremo, para escribir un archivo con un StreamWriter no necesitas (a menos que no te hayas dado cuenta) lo que haces aquí:

Código (vb.net) [Seleccionar] Expandir

       For a = 0 To ListBox1.Items.Count - 1
           Dim _Stream As New IO.FileStream(FolderBrowserDialog1.SelectedPath & "\listado.txt", IO.FileMode.Open)
           Dim _StreamWriter As New IO.StreamWriter(_Stream)

           Linea = Linea & vbNewLine & ListBox1.Items(a).ToString()
           _StreamWriter.Write("")
           _StreamWriter.WriteLine(Linea)
           _StreamWriter.Close()
       Next

Creas el Stream, creas el StreamWriter, escribes y cierras una y otra vez las intrucciones están en un for se repiten tantas veces como ListBox Items tenga.

Es como si escribieras en un cuaderno y para cada palabra cierras y abres el cuaderno, no tiene sentido

Debes colocar el .Close fuera del for así como el invocar dentro de un for es de mala práctica no se debe hacer, y lo que haces con el segundo StreamWriter lo puede hacer con el primero antes de cerrarlo, no puedes abrir un mismo archivo con 2 StreamWriter diferentes a menos que le asignes la opción de compartir la escritura/lectura del archivo, y no puedes eliminar el archivo por que no has cerrado _Stream y no lo puedes cerrar porque lo invocastes en el espacio del for y fuera de el el Stream no existe a pesar de que el archivo sigue abierto, mira el código cierras son los Writer pero eso no cierra el archivo.

[FolderBrowserDialog1.SelectedPath]

Código (vb.net) [Seleccionar] Expandir

Dim oSW As New StreamWriter(FolderBrowserDialog1.SelectedPath)

Te recuerdo que FolderBrowserDialog1.SelectedPath te retorna el DIRECTORIO seleccionado, por ejemplo:

C:\EJEMPLO

No es un archivo y por lo tanto no lo puedes abrir como uno con un StreamWriter, debes agregar "\" ( el separador de Path ) y el nombre del archivo a escribir:

FolderBrowserDialog1.SelectedPath & "\Archivo.ejemplo"

La forma correcta de hacer lo que intentas es  abriendo el archivo de esta manera:

Código (vb.net) [Seleccionar] Expandir

       Dim _Stream As New IO.FileStream("C:\Ejemplo\Archivo.ejemplo",IO.FileMode.Open)
       Dim _StreamWriter As New IO.StreamWriter(_Stream)

Has Flush y cierra el Stream después de usarlo.

Usa el Tag (code=vb.net)(/code) con corchetes ([]) cuando vayas a escribir código.

Cual es el error que te marca exactamente y en que línea del código?

No me parece esto de:

Código (vb.net) [Seleccionar] Expandir

For a = 0 To ListBox1.Items.Count - a

Más bien debería ser así:

Código (vb.net) [Seleccionar] Expandir

For a = 0 To ListBox1.Items.Count - 1

Invocas al constructor de StreamWriter con el nombre de una carpeta  

Usa el Flush antes de cerrar el Stream, no trabajas con gran cantidad de datos como para vaciar los Buffer en cada escritura.

Cierra el Stream después de que no lo necesites más.