VB6如何从文本框1点击一个图片将此图片发送到文本框2

来源：百度知道 编辑：UC知道 时间：2024/06/15 04:04:34
VB6如何将一个存在于文本框1内的图片发送到文本框2内?
请真正的VB高手赐教。

要解决的问题是2个:

一.如何将图片放入文本框.(这个肯定可以的,HTML中的文本框都可以,VB中的文本框没有理由不行.)

二.如何将此图片从文本框发送到另一个文本框.(这个肯定也是可以的,JavaScript都可以实现的，没有理由VB实现不了。)

求源程序.

使用API函数实现 需要两TEXT,两command,一个picturebox
代码如下

---------------------------------

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

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 ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Sub Command1_Click()
hdc1 = GetDC(Text1.hwnd)
BitBlt hdc1, 0, 0, Picture1.Width, Picture1.Height, Picture1.hdc, 0, 0, vbSrcCopy
ReleaseDC Text1.hwnd, hdc1
End Sub

Private Sub Command2_Click()
hdc1 = GetDC(Text1.hwnd)
hdc2 = GetDC(Text2.hwnd)
BitBlt hdc2, 0, 0, Picture1.Width, Picture1.Height, hdc1, 0, 0, vbSrcCopy
ReleaseDC Text2.hwnd, hdc2
ReleaseDC Text