I need to draw richtextbox contents on graphics at a specific location. On the code below, the
[login to view URL] is a richtextbox class. The text box is drawn but the text is not.
Public Sub DrawFootNote(ByRef g As Graphics, ByRef Xo As Integer, ByRef Yo As Integer, ByRef PageNo As Integer, ByRef tx As AdaptableNote, OptShowRect As Boolean, MyPen As Pen)
Dim r As New Rectangle
[login to view URL] = [login to view URL]
r.X = Xo + [login to view URL]
r.Y = Yo + [login to view URL]
[login to view URL] = [login to view URL]
[login to view URL] = [login to view URL]
Dim bi As New BoreholeViewItem
[login to view URL] = BoreholeColumn.TYPE_FOOTNOTE
[login to view URL](r)
[login to view URL] = tx
[login to view URL](bi)
[login to view URL] = [login to view URL]
[login to view URL]()
Dim bmp As Bitmap = New Bitmap([login to view URL], [login to view URL])
[login to view URL] = [login to view URL]
Dim r2 As New Rectangle
Dim rt2 As New RichTextBox
[login to view URL] = [login to view URL]
[login to view URL] = [login to view URL]
[login to view URL] = [login to view URL]
[login to view URL] = [login to view URL]
[login to view URL] = [login to view URL]
[login to view URL] = [login to view URL]
Dim gr As Graphics = [login to view URL](bmp)
[login to view URL]([login to view URL], 0, 0, 10, 10)
[login to view URL] = [login to view URL]
[login to view URL] = [login to view URL]
'[login to view URL](bmp, r2)
[login to view URL](bmp, r2)
Dim pf As New PointF
pf.X = [login to view URL]
pf.Y = [login to view URL]
[login to view URL](bmp, pf)
'[login to view URL](g, r, [login to view URL], [login to view URL], [login to view URL])
'Dim g1 As Graphics = [login to view URL](bmp)
If OptShowRect Then
[login to view URL](MyPen, r)
Else
[login to view URL]([login to view URL], r) 'erase border
End If
End Sub
Hi, Nice to know your requirement. I am an excel vba, vb6 professional and have delivered over hundred excel vba projects in a couple of years.
I have worked in google sheets too on a couple of projects, and can do yours in google sheets. Will work with you to achieve the desired outcome.
Willing and looking forward to working with you.
Thank you, Regards.