Visual Basic

<br />
Imports System<br />
Imports System.Drawing<br />
Imports System.Collections<br />
Imports System.ComponentModel<br />
Imports System.Windows.Forms<br />
Imports System.Data<br />
Imports System.Runtime.InteropServices<br />
<br />
Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
<br />
#Region " Windows Form Designer generated code "<br />
<br />
    Public Sub New()<br />
        MyBase.New()<br />
<br />
        'This call is required by the Windows Form Designer.<br />
        InitializeComponent()<br />
<br />
        'Add any initialization after the InitializeComponent() call<br />
<br />
    End Sub<br />
<br />
    'Form overrides dispose to clean up the component list.<br />
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        If disposing Then<br />
            If Not (components Is Nothing) Then<br />
                components.Dispose()<br />
            End If<br />
        End If<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    Friend WithEvents Button1 As System.Windows.Forms.Button<br />
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
        Me.Button1 = New System.Windows.Forms.Button()<br />
        Me.SuspendLayout()<br />
        '<br />
        'Button1<br />
        '<br />
        Me.Button1.Location = New System.Drawing.Point(72, 80)<br />
        Me.Button1.Name = "Button1"<br />
        Me.Button1.Size = New System.Drawing.Size(80, 40)<br />
        Me.Button1.TabIndex = 0<br />
        Me.Button1.Text = "Close"<br />
        '<br />
        'Form1<br />
        '<br />
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
        Me.ClientSize = New System.Drawing.Size(292, 266)<br />
        Me.Controls.Add(Me.Button1)<br />
        Me.Name = "Form1"<br />
        Me.Text = "Form1"<br />
        Me.ResumeLayout(False)<br />
<br />
    End Sub<br />
<br />
#End Region<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        RegisterBar()<br />
    End Sub<br />
<br />
    Structure RECT<br />
        Public left As Integer<br />
        Public top As Integer<br />
        Public right As Integer<br />
        Public bottom As Integer<br />
    End Structure 'RECT<br />
<br />
<br />
    Structure APPBARDATA<br />
        Public cbSize As Integer<br />
        Public hWnd As IntPtr<br />
        Public uCallbackMessage As Integer<br />
        Public uEdge As Integer<br />
        Public rc As RECT<br />
        Public lParam As IntPtr<br />
    End Structure 'APPBARDATA<br />
    Enum ABMsg<br />
<br />
        ABM_NEW = 0<br />
        ABM_REMOVE = 1<br />
        ABM_QUERYPOS = 2<br />
        ABM_SETPOS = 3<br />
        ABM_GETSTATE = 4<br />
        ABM_GETTASKBARPOS = 5<br />
        ABM_ACTIVATE = 6<br />
        ABM_GETAUTOHIDEBAR = 7<br />
        ABM_SETAUTOHIDEBAR = 8<br />
        ABM_WINDOWPOSCHANGED = 9<br />
            ABM_SETSTATE=10<br />
<br />
    End Enum<br />
    Enum ABNotify<br />
<br />
        ABN_STATECHANGE = 0<br />
        ABN_POSCHANGED<br />
        ABN_FULLSCREENAPP<br />
        ABN_WINDOWARRANGE<br />
<br />
    End Enum<br />
    Enum ABEdge<br />
<br />
        ABE_LEFT = 0<br />
        ABE_TOP<br />
        ABE_RIGHT<br />
        ABE_BOTTOM<br />
    End Enum<br />
<br />
<br />
<br />
    Private fBarRegistered As Boolean = False<br />
<br />
    Public Declare Function SHAppBarMessage Lib "shell32.dll" Alias "SHAppBarMessage" (ByVal dwMessage As Integer, ByRef pData As APPBARDATA) As System.UInt32<br />
    Public Declare Function GetSystemMetrics Lib "User32.dll" Alias "GetSystemMetrics" (ByVal index As Integer) As Integer<br />
    Public Declare Function MoveWindow Lib "User32.dll" Alias "MoveWindow" (ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal repaint As Boolean) As Boolean<br />
    Private Declare Auto Function RegisterWindowMessage Lib "User32.dll" (ByVal msg As String) As Integer<br />
    Private uCallBack As Integer<br />
<br />
    Private Sub RegisterBar()<br />
        Dim abd As New APPBARDATA()<br />
        abd.cbSize = Marshal.SizeOf(abd)<br />
        abd.hWnd = Me.Handle<br />
        If Not fBarRegistered Then<br />
            uCallBack = RegisterWindowMessage("AppBarMessage")<br />
            abd.uCallbackMessage = uCallBack<br />
<br />
            Dim ret As System.UInt32 = SHAppBarMessage(CInt(ABMsg.ABM_NEW), abd) 'ToDo: Unsigned Integers not supported<br />
            fBarRegistered = True<br />
<br />
            ABSetPos()<br />
<br />
        Else<br />
            SHAppBarMessage(CInt(ABMsg.ABM_REMOVE), abd)<br />
            fBarRegistered = False<br />
        End If<br />
    End Sub 'RegisterBar<br />
<br />
<br />
    Private Sub ABSetPos()<br />
        Dim abd As New APPBARDATA()<br />
        abd.cbSize = Marshal.SizeOf(abd)<br />
        abd.hWnd = Me.Handle<br />
        abd.uEdge = CInt(ABEdge.ABE_TOP)<br />
<br />
        If abd.uEdge = CInt(ABEdge.ABE_LEFT) Or abd.uEdge = CInt(ABEdge.ABE_RIGHT) Then<br />
            abd.rc.top = 0<br />
            abd.rc.bottom = SystemInformation.PrimaryMonitorSize.Height<br />
            If abd.uEdge = CInt(ABEdge.ABE_LEFT) Then<br />
                abd.rc.left = 0<br />
                abd.rc.right = Size.Width<br />
            Else<br />
                abd.rc.right = SystemInformation.PrimaryMonitorSize.Width<br />
                abd.rc.left = abd.rc.right - Size.Width<br />
            End If<br />
<br />
        Else<br />
            abd.rc.left = 0<br />
            abd.rc.right = SystemInformation.PrimaryMonitorSize.Width<br />
            If abd.uEdge = CInt(ABEdge.ABE_TOP) Then<br />
                abd.rc.top = 0<br />
                abd.rc.bottom = Size.Height<br />
            Else<br />
                abd.rc.bottom = SystemInformation.PrimaryMonitorSize.Height<br />
                abd.rc.top = abd.rc.bottom - Size.Height<br />
            End If<br />
        End If<br />
<br />
        ' Query the system for an approved size and position. <br />
        SHAppBarMessage(CInt(ABMsg.ABM_QUERYPOS), abd)<br />
<br />
        ' Adjust the rectangle, depending on the edge to which the <br />
        ' appbar is anchored. <br />
        Select Case abd.uEdge<br />
            Case CInt(ABEdge.ABE_LEFT)<br />
                abd.rc.right = abd.rc.left + Size.Width<br />
            Case CInt(ABEdge.ABE_RIGHT)<br />
                abd.rc.left = abd.rc.right - Size.Width<br />
            Case CInt(ABEdge.ABE_TOP)<br />
                abd.rc.bottom = abd.rc.top + Size.Height<br />
            Case CInt(ABEdge.ABE_BOTTOM)<br />
                abd.rc.top = abd.rc.bottom - Size.Height<br />
        End Select<br />
<br />
        ' Pass the final bounding rectangle to the system. <br />
        SHAppBarMessage(CInt(ABMsg.ABM_SETPOS), abd)<br />
<br />
        ' Move and size the appbar so that it conforms to the <br />
        ' bounding rectangle passed to the system. <br />
        MoveWindow(abd.hWnd, abd.rc.left, abd.rc.top, abd.rc.right - abd.rc.left, abd.rc.bottom - abd.rc.top, True)<br />
    End Sub 'ABSetPos<br />
<br />
<br />
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)<br />
        If m.Msg = uCallBack Then<br />
            Select Case m.WParam.ToInt32()<br />
                Case CInt(ABNotify.ABN_POSCHANGED)<br />
                    ABSetPos()<br />
            End Select<br />
        End If<br />
<br />
        MyBase.WndProc(m)<br />
    End Sub 'WndProc<br />
<br />
<br />
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams<br />
        Get<br />
            Dim cp As CreateParams = MyBase.CreateParams<br />
            cp.Style = cp.Style And Not &HC00000 ' WS_CAPTION<br />
            cp.Style = cp.Style And Not &H800000 ' WS_BORDER<br />
            cp.ExStyle = &H80 Or &H8 ' WS_EX_TOOLWINDOW | WS_EX_TOPMOST<br />
            Return cp<br />
        End Get<br />
    End Property<br />
<br />
    Private Sub End_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        RegisterBar()<br />
        End<br />
    End Sub<br />
End Class<br />

' Assume sInput holds the line just read from the file...<br />
<br />
Dim arr() as string<br />
arr = Split(sInput, "=", 2)<br />
<br />
' arr(0) now contains the text before the "=" sign<br />
' arr(1) now contains the text after the "=" sign<br />

kongo10 wrote:

That worked great thanks!

kongo10 wrote:

Is there a way to point the cursor to a specific part of the text file? like if I wanted to only read lines 7-30 of the text file? or even from a specific word in the text which is basically a title to the block of text