Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: NsTeam en Febrero 09, 2010, 07:24:43 pm
-
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
-
Hola, podes hacer la captura del control, algo como:
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.
-
Hola, podes hacer la captura del control, algo como:
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
-
Hola, podes hacer la captura del control, algo como:
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
-
¿ 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.