mirror of
https://github.com/staxrip/staxrip.git
synced 2026-10-22 09:23:18 +08:00
Frank Skare
20 lines
476 B
VB.net
20 lines
476 B
VB.net
|
|
Public Class TextHelpForm
|
|
Property Find As String
|
|
|
|
Sub New(text As String, find As String)
|
|
InitializeComponent()
|
|
rtb.Text = text
|
|
rtb.BackColor = Color.Black
|
|
rtb.ForeColor = Color.White
|
|
rtb.ReadOnly = True
|
|
Me.Find = find
|
|
ScaleClientSize(45, 30)
|
|
End Sub
|
|
|
|
Sub TextHelpForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
rtb.Find(Find)
|
|
rtb.ScrollToCaret()
|
|
End Sub
|
|
End Class
|