|
Título: me da error al compilar Publicado por: elguast en 29 Junio 2008, 01:52 am hola muy buenas me da error al generar el proyecto
Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long) On Error Resume Next Dim RData As String, RData2 As String, Message() As String, i As Integer, intForLoop As Integer Dim Imagen As String Dim datos As String Dim data() As String 'array consola.Text = consola.Text + datos + vbNewLine ws.GetData Imagen, vbNullString Put #1, , Imagen If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then Close Picture1 = LoadPicture(Ruta) Open Ruta For Binary As #1 End If ws(Index).GetData datos dSelect case Data(0)ata = Split(datos, "|") Case "Conexion" …. End Select End Sub Título: Re: me da error al compilar Publicado por: cassiani en 29 Junio 2008, 02:11 am Así como esta debería darte error en todos lados
Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long) On Error Resume Next Dim RData As String, RData2 As String, Message() As String, i As Integer, intForLoop As Integer Dim Imagen As String Dim datos As String Dim data() As String 'array consola.Text = consola.Text + datos + vbNewLine ws.GetData Imagen, vbNullString Put #1, , Imagen If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then Close Picture1 = LoadPicture(Ruta) Open Ruta For Binary As #1 End If ws(Index).GetData datos dSelect case Data(0)ata = Split(datos, "|") Case "Conexion" …. End Select End Sub Nah no da ni ganas de verlo, si trabajaras un poquito mas ordenado quizás Título: Re: me da error al compilar Publicado por: elguast en 29 Junio 2008, 11:54 am pero lo compilo y no me da error..me da error al generarlo para el empaquetado.como se haria?
|