• Home
 · 
• String Manipulation
 · 
• Extend the function of Multi Line Text Control with SendMessage Fucntion..Must Visit.

Extend the function of Multi Line Text Control with SendMessage Fucntion..Must Visit.

Extend the function of Multi Line Text Control with SendMessage Fucntion..Must Visit.

API Declarations


'-------------------------------
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, IParam As Any) As Long

Public Const EM_GETFIRSTVISIBLELINE = &HCE
Public Const EM_GETLINE = &HC4
Public Const EM_GETLINECOUNT = &HBA
''Now switch to form and paste this code in General Decelartion
'--------------------------------------------------------------
Dim m_sLineString As String * 1056
Dim m_IngRet As Long
Dim m_SretString As String



Rate Extend the function of Multi Line Text Control with SendMessage Fucntion..Must Visit.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Another Text box and Name it txtLineNumberChange
'Another Text box and Name it txtNumberofLines
'Another Text box and Name it txtLineFromFile
'Another Text box and Name it txtFirstLineVisible
'Take Updown1 Control Set the properties min 0 and max 100 and attach it with 'txtlinenumberchange
'Take Timer Control make is Enable=False and Interval=3500
Take A Command Button,Name it cbLoadFile, Caption it Load.
'Take another Command Button, Name it cmbUpdate and caption it Update
'Take another Command button, Caption it Quit
'Also take Label Boxes and caption it according to ur will and keep them with 'text box controls
'-----------------------------------------
'Now Paste this Code......ENjoy!!!!!!!!! and any query plz email 'me:[email protected]

-----------------------------
Private Sub cbLoadFile_Click()
Label1.Caption = "Wait - File is Loading |||||||||||||||||||||||||||||"
Screen.MousePointer = vbHourglass
Timer1.Enabled = True
cbLoadFile.Enabled = False



End Sub

Private Function ReadLine(iLine As Integer) As String
Dim m_IngRet As Long
m_sLineString = Space$(1056)
m_IngRet = SendMessage(txtMultiLine.hwnd, EM_GETLINE, iLine, ByVal m_sLineString)
ReadLine = m_sLineString


End Function

Private Sub CountLineS()
m_IngRet = SendMessage(txtMultiLine.hwnd, EM_GETLINECOUNT, 0, 0)
txtNumberofLines.Text = Str$(m_IngRet)

End Sub

Private Function ReadFirstVisibleLine() As Integer
ReadFirstVisibleLine = SendMessage(txtMultiLine.hwnd, EM_GETFIRSTVISIBLELINE, 0, 0)


End Function

Private Sub cmbUpdate_Click()
txtFirstVisibleLine.Text = ReadLine(ReadFirstVisibleLine())
'cmbUpdate.Enabled = False

End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
Screen.MousePointer = vbDefault
Label1.Caption = "Successfully Loaded Text File."

On Error Resume Next
Dim iHandle As Integer
Dim iFileString As String
Dim iLine As String
iHandle = FreeFile
Open "C:\Documents and Settings\Xone\My Documents\OFFISETU\OFFICE\binder.txt" For Input As #iHandle
Do While Not EOF(iHandle)
Line Input #iHandle, sLine
iFileString = iFileString + sLine + vbCr + vbLf
Loop
Close #iHandle
txtMultiLine.Text = iFileString
Call txtLineNumberChange_Change
CountLineS
UpDown1.Min = 1
UpDown.Max = m_IngRet
UpDown1.Value = 1
cmbUpdate.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub txtLineNumberChange_Change()
txtLineFromFile.Text = ReadLine(Val(txtLineNumberChange.Text) - 1)

End Sub

Private Sub UpDown1_Change()
txtLineNumberChange.Text = Str$(UpDown1.Value)
If Val(txtLineNumberChange.Text) > Val(txtNumberofLines.Text) Then
MsgBox "Irr Regular Line Number!!", vbCritical, "In-Valid Line Number."
txtLineNumberChange.Text = 1
End If

End Sub