mirror of
https://github.com/staxrip/staxrip.git
synced 2026-10-25 02:30:28 +08:00
18 lines
489 B
VB.net
18 lines
489 B
VB.net
Public Class TextHelpForm
|
|
Property Find As String
|
|
|
|
Public 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
|
|
|
|
Private Sub TextHelpForm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
rtb.Find(Find)
|
|
rtb.ScrollToCaret()
|
|
End Sub
|
|
End Class |