2nd intelliprompt

// If the typed character was a letter...
if (Char.IsLetter(e.KeyChar)) {
    // See if a new token starts after the character that was typed
    var stream = editor.Document.GetTextStream(editor.Caret.Offset);
    if (stream.IsAtTokenStart) {
        // See if the character that was typed started a new token
        stream.ReadCharacterReverse();
        if (stream.IsAtTokenStart) {
            // Show member list here
        }
    }
}

<KeyPressTrigger Key="TagAttributeListTrigger" Character=" ">
  <KeyPressTriggerValidStates>
    <KeyPressTriggerValidState State="StartTagState" />
    <KeyPressTriggerValidState State="StartTagAttributeState" />                
    <KeyPressTriggerValidState state="StartTagAttributeValueState"/>                
  </KeyPressTriggerValidStates>
</KeyPressTrigger>

Case "TagAttributeListTrigger"
With memberList
.ResetAllowedCharacters()
.AllowedCharacters.Add("!"c)
.AllowedCharacters.Add("-"c)
.Clear()

.Add(New IntelliPromptMemberListItem("testing", imagename))

Dim stream = syntaxEditor.Document.GetTextStream(syntaxEditor.Caret.Offset)
If stream.GoToPreviousTokenWithKey("StartTagNameToken") Then
    Dim tagName = stream.TokenText
    ...
End If

Private Sub SyntaxEditor1_KeyTyped(sender As Object,...
Dim synEditor As SyntaxEditor = Nothing
Dim memberList As IntelliPromptMemberList = synEditor.IntelliPrompt.MemberList
Dim _blue As Integer = CInt(ActiproSoftware.Products.SyntaxEditor.IconResource.XmlTag)

Dim stream = SyntaxEditor1.Document.GetTextStream(SyntaxEditor1.Caret.Offset)
   If stream.GoToPreviousTokenWithKey("StartTagNameToken") Then
      Dim tagName = stream.TokenText
      Select Case tagName  ' <a
         Case "a"
            With memberList
               .Clear()        '   clear the list and add new members
               .Add(New IntelliPromptMemberListItem("test", _blue))
               .Show
            End With
      End Select
   End If
End Sub

Dim synEditor As SyntaxEditor = Nothing
Dim memberList As IntelliPromptMemberList = synEditor.IntelliPrompt.MemberList

Dim memberList As IntelliPromptMemberList = SyntaxEditor1.IntelliPrompt.MemberList

Dim stream = SyntaxEditor1.Document.GetTextStream(SyntaxEditor1.Caret.Offset)
   If stream.GoToPreviousTokenWithKey("StartTagNameToken") Then
   Dim tagName = stream.TokenText
      Select Case tagName
         Case "a"
            With memberList
               .Clear()        '   clear the list and add new members
               .Add(New IntelliPromptMemberListItem("test 1", image_index, "this is a test"))
               .Add(New IntelliPromptMemberListItem("test 2", image_index, "this is the second test"))
.Show()
            End With
       End Select
   End If

<!-- Start Tag Attributes -->
<State Key="StartTagAttributeState" TokenKey="StartTagDefaultToken" Style="TagAttributeStyle">
<!-- Scopes -->
<Scopes>
   <Scope>
      <RegexPatternGroup Type="StartScope" TokenKey="StartTagNameToken" Style="TagNameStyle"       PatternValue="{LineTerminatorWhitespaceMacro}* {TagNameMacro}+ {LineTerminatorWhitespaceMacro}*" />
   </Scope>
</Scopes>
<!-- Patterns Groups -->
<PatternGroups>
   <!-- Brackets -->
   <RegexPatternGroup TokenKey="StartTagAttributeToken" Style="TagAttributeStyle" LookAhead="{NonWordMacro}|\z" PatternValue="{WordMacro}+" />
</PatternGroups>
   <!-- Child States -->
   <ChildStates>
      <ChildState Key="StartTagAttributeStringValueState" />
      <ChildState Key="StartTagAttributeValueState" />
   </ChildStates>
</State>

If stream.GoToPreviousTokenWithKey("StartTagNameToken") Then
If stream.Token.LexicalState.Key = "StartTagAttributeState" Then
   Dim tagName = stream.TokenText
   Select Case tagName
      Case "ab"
         With memberList
            .Clear()        '   clear the list and add new members
            .Add(New IntelliPromptMemberListItem("test 1", image_index, "this is a test"))
            .Add(New IntelliPromptMemberListItem("test 2", image_index, "this is the second test"))
            .Show()
         End With
      End Select
   End If
End If

Private Sub SyntaxEditor1_KeyTyped(sender As Object, e As ActiproSoftware.SyntaxEditor.KeyTypedEventArgs) Handles SyntaxEditor1.KeyTyped
Dim memberList As IntelliPromptMemberList = SyntaxEditor1.IntelliPrompt.MemberList
Dim image_index As Integer = CInt(ActiproSoftware.Products.SyntaxEditor.IconResource.XmlTag)
Dim stream = SyntaxEditor1.Document.GetTextStream(SyntaxEditor1.Caret.Offset)

' check if token is in a attribute state
 If stream.Token.LexicalState.Key = "StartTagAttributeState" Then
   '   find tagname
   If stream.GoToPreviousTokenWithKey("StartTagNameToken") Then
      Dim tagName = stream.TokenText
      Select Case tagName
         Case "base"
            With memberList
               .Clear()        '   clear the list and add new members
               .Add(New IntelliPromptMemberListItem("test 1", image_index, "test1"))
               .Add(New IntelliPromptMemberListItem("test 2", image_index, "test2"))
               .Show()
            End With
         End Select
   End If
 End If
End Sub

<base

    Private Sub SyntaxEditor1_KeyTyped(sender As Object, e As ActiproSoftware.SyntaxEditor.KeyTypedEventArgs) Handles SyntaxEditor1.KeyTyped
        Dim memberList As IntelliPromptMemberList = SyntaxEditor1.IntelliPrompt.MemberList
        Dim image_index As Integer = CInt(ActiproSoftware.Products.SyntaxEditor.IconResource.XmlTag)
        Dim stream = SyntaxEditor1.Document.GetTextStream(SyntaxEditor1.Caret.Offset)

        ' If the member list is not yet visible and the character typed is a letter...
        If (Not memberList.Visible) AndAlso (Char.IsLetter(e.KeyChar)) Then
            ' Check if token is in a attribute state
            If stream.Token.LexicalState.Key = "StartTagAttributeState" Then
                ' Move back a character and see if the character was at the start of an attribute name token
                stream.ReadCharacterReverse()
                If (stream.IsAtTokenStart) AndAlso (stream.Token.Key = "StartTagAttributeToken") Then
                    ' Save the token text range so that the member list will replace any existing text
                    Dim initializationTextRange As TextRange = stream.Token.TextRange

                    ' Move back to get the containing tag name
                    If stream.GoToPreviousTokenWithKey("StartTagNameToken") Then
                        Dim tagName = stream.TokenText.Trim()
                        Select Case tagName
                            Case "base"
                                With memberList
                                    .Clear()        '   clear the list and add new members
                                    .Add(New IntelliPromptMemberListItem("test 1", image_index, "test1"))
                                    .Add(New IntelliPromptMemberListItem("test 2", image_index, "test2"))
                                    .Show(initializationTextRange.StartOffset, initializationTextRange.Length)
                                End With
                        End Select
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub SyntaxEditor1_KeyTyped(sender As Object, e As ActiproSoftware.SyntaxEditor.KeyTypedEventArgs) Handles SyntaxEditor1.KeyTyped
        Dim memberList As IntelliPromptMemberList = SyntaxEditor1.IntelliPrompt.MemberList
        Dim image_index As Integer = CInt(ActiproSoftware.Products.SyntaxEditor.IconResource.XmlTag)
        Dim stream = SyntaxEditor1.Document.GetTextStream(SyntaxEditor1.Caret.Offset)

        ' If the member list is not yet visible and the character typed is a space...
        If (Not memberList.Visible) AndAlso (e.KeyChar = " "c) Then
            Dim showList As Boolean = False

            ' Check if token is in a proper state
            Select Case stream.Token.LexicalState.Key
                Case "StartTagState"
                    ' Already on the tag name
                    If (stream.Token.Key = "StartTagNameToken") Then
                        showList = True
                    Else
                        If stream.GoToPreviousTokenWithKey("StartTagNameToken") Then showList = True
                    End If
                Case "StartTagAttributeState"
                    ' Move back to get the containing tag name
                    If stream.GoToPreviousTokenWithKey("StartTagNameToken") Then showList = True
            End Select

            If (showList) Then
                Dim tagName = stream.TokenText.Trim()
                Select Case tagName
                    Case "base"
                        With memberList
                            .Clear()        '   clear the list and add new members
                            .Add(New IntelliPromptMemberListItem("test 1", image_index, "test1"))
                            .Add(New IntelliPromptMemberListItem("test 2", image_index, "test2"))
                            .Show()
                        End With
                End Select
            End If
        End If
    End Sub