Question

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

VB6如何将一个存在于文本框1内的图片发送到文本框2内?
请真正的VB高手赐教。

要解决的问题是2个:

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

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

求源程序.

Answer 1

使用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 Text1.hwnd, hdc1
End Sub

Private Sub Form_Load()
Form1.WindowState = 2
Picture1.AutoSize = True
Picture1.Picture = LoadPicture("c:\test.bmp")
Text1.Height = Picture1.Height
Text1.Width = Picture1.Width
Text2.Height = Picture1.Height
Text2.Width = Picture1.Width
Text1.Top = Picture1.Top
Text1.Left = Picture1.Left + Picture1.Width
Text2.Top = Picture1.Top
Text2.Left = Text1.Left + Text1.Width
End Sub

建议使用richtextbox 可参考如下:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302
Private Sub Command1_Click()
SendMessage RichTextBox1.hwnd, WM_PASTE, ByVal 0&, ByVal 0&
End Sub

Private Sub Form_Load()
Clipboard.SetData LoadPicture("c:\test.bmp")
RichTextBox1.Text = "test"
End Sub

Answer 2

把图片放到一个richtext里面
然后点击按钮时：
richtext1.savefile "文件路径"

然后
richtext2.loadfile "文件路径"

然后在删除保存的临时文件，这样就可以了

简单的文本框是不能放图片的。

Answer 3

明天帮你写一个使用richtext的例子吧.是可以实现,只是不能使用普通的Textbox控件了..

Answer 4

给你个建意...
有个按钮。两个文本框。
richtext1.savefile"文件路径"
或者先载入图片。设成隐藏...在显示..

问题二...设置..文本框二等于文本框一...

Answer 5

VB学的很不好,刚刚及格,来了就睬睬..

Answer 6

只会.net