作者suekey (N N惽ﳿ惽︠)
看板Visual_Basic
标题[VB.NET]有关richtextbox贴上图片上的滑鼠事件
时间Fri Oct 27 11:34:28 2006
大家好：
我利用之前在网路上抓的范例程式，可以利用按下按钮下在richtextbox上贴上图片
(先贴到剪贴簿，再paste到richtextbox)
可是我希望可以在滑鼠点下这张图片後，跳出另一个视窗作输入文字的动作
请问要如何实做？之前有人提示可以抓滑鼠的位置，然後再做处理
可是我功力太差实在不知道如何实作，可否有高手再多点提示（给实际的程式码）
感谢万分。
以下是我现在已完成的程式码。
Private Sub btnInserPic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInserPic.Click
Call insertpicture()
End Sub
Private Sub insertpicture()
Dim picture As Image = Nothing
Try
picture = Image.FromFile(System.Windows.Forms.Application.StartupPath & "\\test.bmp")
Catch ex As Exception
MsgBox("Error opening file > " & System.Windows.Forms.Application.StartupPath & "\\test.bmp")
Exit Sub
End Try
Clipboard.Clear()
Clipboard.SetImage(picture)
Do While Clipboard.ContainsImage = False
Loop
RichTextBox1.Paste()
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.130.46.178