InsertRow

<< Clique para Mostrar o Sumário >>

 

InsertRow

InsertRow([InsertAtRow])

Insere uma nova Linha na tabela. O parâmetro InsertAtRow é opcional e especifica em que posição da tabela deve ser inserida a Linha. Quando omitido assume o comportamento padrão de inserir a Linha no fim da tabela, o que equivale a usar InsertAtRow igual a -1 (menos um). Quando informado e diferente de -1 (menos um), deve ser um valor entre 1 (um) e Count e a nova Linha criada desloca as Linhas de índice maior ou igual para a direção ascendente dos índices. Uma Linha nova sempre assume os seguintes valores padrão para as propriedades:

Min: 0.0

Max: 1.0

Blink: False

BlinkValue: 0.0

Value: 0.0

 

O script a seguir contém um exemplo de uso deste método.

Sub Retangulo1_Click()
  On Error Resume Next
  Dim Bind
  Set Bind = _
    Screen.Item("Retangulo1").Links.Item("ForegroundColor")
  If Bind Is Nothing Then
    MsgBox "Retangulo1 não tem nenhuma associação."
  Else
    Dim row
    row = Screen.Item("SetPointRow").Value
    MsgBox Bind.RowCount
    If (row < 1 OR row > Bind.RowCount) Then
      MsgBox "Número de linha inválido: " & row
    Else
      MsgBox "Acrescentando uma linha em: " & row
      Bind.InsertRow(row)
      If row = -1 Then
        row = Bind.RowCount
        Bind.Value(line) = _
          Screen.Item("RectangleValue").ForegroundColor
        Bind.BlinkValue(line) = _
          Screen.Item("RectangleBlinkValue").ForegroundColor
        Bind.Max(line) = Screen.Item("SetPointMax").Value
        Bind.Min(line) = Screen.Item("SetPointMin").Value
        Bind.Blink(line) = _
          Screen.Item("CheckBoxBlink").Value
      End If
    End If
  End If
End Sub

Esta página foi útil?