Hi all,
I get this error msg when i compile my code Compile error - Procedure declaration does not match description of event or procedure having the same name.
it highlights this line of code
Private Sub DgnDictEdit1_PlaybackNowPlaying()
' Updates the visibile text selection based on information about
' the word size received in the PlayInfos collection
Dim curInfo As Object
If (bPlaySingle = True) Then
' Get the last PlayInfo
LastPlayInfo = eventArgs.PlayInfos(eventArgs.PlayInfos.Count)
' Update the start position for the next word
nStartPos = LastPlayInfo.Start + LastPlayInfo.NumChars
' Set the selection
SetSelection (LastPlayInfo.Start), (LastPlayInfo.NumChars)
Else
' Remembering start time, selection position...
nPlaybackStartTime = GetTickCount
nSelStart = Text1.SelectionStart
nSelLength = Text1.SelectionLength
' ...and clearing NowPlaying collection
Do
While (NowPlaying.Count() <> 0)
NowPlaying.Remove ((1))
Exit Do
Loop
' Store PlayInfos collection into NowPlaying to set selection
For Each curInfo In eventArgs.PlayInfos
NowPlaying.Add (curInfo)
Next curInfo
End If
End Sub
any suggestions where i gone wrong???
I get this error msg when i compile my code Compile error - Procedure declaration does not match description of event or procedure having the same name.
it highlights this line of code
Private Sub DgnDictEdit1_PlaybackNowPlaying()
' Updates the visibile text selection based on information about
' the word size received in the PlayInfos collection
Dim curInfo As Object
If (bPlaySingle = True) Then
' Get the last PlayInfo
LastPlayInfo = eventArgs.PlayInfos(eventArgs.PlayInfos.Count)
' Update the start position for the next word
nStartPos = LastPlayInfo.Start + LastPlayInfo.NumChars
' Set the selection
SetSelection (LastPlayInfo.Start), (LastPlayInfo.NumChars)
Else
' Remembering start time, selection position...
nPlaybackStartTime = GetTickCount
nSelStart = Text1.SelectionStart
nSelLength = Text1.SelectionLength
' ...and clearing NowPlaying collection
Do
While (NowPlaying.Count() <> 0)
NowPlaying.Remove ((1))
Exit Do
Loop
' Store PlayInfos collection into NowPlaying to set selection
For Each curInfo In eventArgs.PlayInfos
NowPlaying.Add (curInfo)
Next curInfo
End If
End Sub
any suggestions where i gone wrong???