Leer imagen mediante HEX

[NsTeam]

hola a todos

quisiera saber si se puede ver en una image el contenido de un textbox

algo asi como

Image1.Picture = Hex(text1.Text)

osea que en la image1 se visualize el contenido de text1 pero como imagen

alquien tendra alguna idea de como hacerlo?

gracias

[seba123neo]

Hola, podes hacer la captura del control, algo como:

Código: [Seleccionar]

Option Explicit

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
    Dim vHandle As Long
   
    vHandle = GetWindowDC(Text1.hwnd)
    Picture1.AutoRedraw = True
    BitBlt Picture1.hdc, 0, 0, Text1.Width, Text1.Height, vHandle, 0, 0, vbSrcCopy
    Picture1.Picture = Picture1.Image
    Picture1.Cls
End Sub
saludos.

[NsTeam]

Hola, podes hacer la captura del control, algo como:

Código: [Seleccionar]

Option Explicit

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
    Dim vHandle As Long
   
    vHandle = GetWindowDC(Text1.hwnd)
    Picture1.AutoRedraw = True
    BitBlt Picture1.hdc, 0, 0, Text1.Width, Text1.Height, vHandle, 0, 0, vbSrcCopy
    Picture1.Picture = Picture1.Image
    Picture1.Cls
End Sub
saludos.

parece q solo le toma foto =/
no me muestra la IMG T.T

[coco]

Hola, podes hacer la captura del control, algo como:

Código: [Seleccionar]

Option Explicit

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
    Dim vHandle As Long
   
    vHandle = GetWindowDC(Text1.hwnd)
    Picture1.AutoRedraw = True
    BitBlt Picture1.hdc, 0, 0, Text1.Width, Text1.Height, vHandle, 0, 0, vbSrcCopy
    Picture1.Picture = Picture1.Image
    Picture1.Cls
End Sub
saludos.

seba, lo que el quiere es cargar una imagen, teniendo en un texto el contenido.

yo te recomiendo q lo guardes en un archivo temporalmente y hagas Set Picture1.Picture = LoadPicture(file)

saludos

[seba123neo]

¿ vos queres leer el HEX de la imagen y ponerlo en el picturebox? si es asi , lo podes hacer convirtiendo el HEX a bytes y los bytes leerlos desde memoria y convertirlo a imagen con algunas api's.

saludos.