[VB.NET]有關richtextbox貼上圖片上的滑鼠事件

[suekey (N￾ ￾N惽￾ﳿ惽￿︠)]

大家好：
　我利用之前在網路上抓的範例程式，可以利用按下按鈕下在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