Mensajes

Hola,leete esto:

¿Cómo se pueden copiar objetos en Visual Basic?

saludos.

Hola,para mandar la imagen se crear un array de bytes y desde el otro lado se recibe ese array y se escribe en un archivo temporal y ahi se carga y se crea la imagen....chequeate esto por als dudas:

Código fuente de un programa cliente servidor para enviar archivos vía winsock

saludos.

[En un Modulo(bas):]

Hola,algo asi??

En un Modulo(bas):

Código [Seleccionar] Expandir

Option Explicit

Private Type OVERLAPPED
ternal As Long
ternalHigh As Long
offset As Long
OffsetHigh As Long
hEvent As Long
End Type

Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileW" (ByVal lpFileName As Long, ByVal dwDesiredAccess&, ByVal dwShareMode&, ByVal lpSecurityAttributes&, ByVal dwCreationDisposition&, ByVal dwFlagsAndAttributes&, ByVal hTemplateFile&) As Long
Public Declare Function ReadFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByRef lpOverlapped As OVERLAPPED) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject&) As Long
Public Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Public Const GENERIC_READ As Long = &H80000000
Public Const GENERIC_WRITE As Long = &H40000000
Public Const FILE_SHARE_READ As Long = &H1&
Public Const FILE_SHARE_WRITE As Long = &H2&
Public Const CREATE_NEW As Long = 1&
Public Const CREATE_ALWAYS As Long = 2&
Public Const OPEN_EXISTING As Long = 3&
Public Const OPEN_ALWAYS As Long = 4&
Public Const TRUNCATE_EXISTING As Long = 5&
Public Const FILE_BEGIN As Long = 0

Public Function OpenTextFile(FileName As String) As String
Dim FileSize As Long
Dim hFile As Long
Dim lOverLapped As OVERLAPPED
Dim nReadRetVal As Long
Dim TxtBytes() As Byte
Dim Ret As Long
Dim I As Integer
Dim Start As Long
hFile = CreateFile(StrPtr(FileName), GENERIC_READ, FILE_SHARE_READ, 0&, OPEN_EXISTING, 0&, 0&)
If hFile = -1 Then
MsgBox "Error abriendo el archivo", vbCritical, "Error"
Else
FileSize = GetFileSize(hFile, 0)
ReDim TxtBytes(FileSize) As Byte
Start = 0
Call SetFilePointer(hFile, Start, 0, FILE_BEGIN)
nReadRetVal = ReadFile(hFile, TxtBytes(0), UBound(TxtBytes), Ret, lOverLapped)
If nReadRetVal = 0 Then
MsgBox ("Error para leer el archivo")
Else
For I = LBound(TxtBytes) To UBound(TxtBytes)
OpenTextFile = OpenTextFile & Chr(TxtBytes(I))
Next
End If
End If
CloseHandle hFile
End Function


En El Formulario:

Código [Seleccionar] Expandir

Private Sub Form_Load()
MsgBox OpenTextFile("c:\a.txt")
End Sub

ahi te lee el archivo de texto..

saludos.

yo la pagina la dije,pero para que se fije en la sección de visual basic que yo se qeu hay mucho de eso,no de C++,para eso esta el foro de C++...postea ahi la proxima..

saludos.

[PowerPoint DVD Maker 1.5]

Hola,proba con PowerPoint DVD Maker 1.5 ,es gratis...

PowerPoint DVD Maker 1.5

saludos.

Hola,Chino veo que estas poniendo todos links de visual basic NET,no vb6,por mas que en este caso sea igual,pero trata de poner links de la msdn de vb6...

saludos.

[option explicit on]

muy bueno,muy lindo,me gusta..

http://msdn.microsoft.com/es-es/library/y9341s4f(VS.80).aspx

ese link es de visual basic net 2005,si llegan a poner option explicit on o off,te tira error...

saludos.

sin source  ,yo tambien hice uno,me tomo 13 minutos hacerlo  ...no en serio yo tambien hice uno y para agregar url y borrarlas o modificarlas,si te pones a ver en internet tenes miles de url para ver tele,no es nada complejo este tema...

saludos.

Hola,a ver si con algunos de estos te anda:

Módulo para utilizar las funciones Api para el registro

Tutorial Windows Script Host para manipular el registro

Acceder al registro de windows com Wmi

saludos.

Hola,desde el primer post no entiendo que queres hacer,si queres que te analizemos el programa que estas haciendo ,es mejor que lo subas asi lo vemos mejor,porque asi poniendo el codigo ,tenemos que crearlo nosotros a ver como funciona,y eso es perdida de tiempo...

saludos.