scroll / e FirstRow

[menon 0]

Olá Galera!!!

Alguém poderia me ajudar estou estudando um projeto em VB6 e ele esta dando ao erro compilar por causa do FirtsRow quando eu excluo ele dá erro no scroll.

O codigo é este aqui.

 

 Private Sub cmdDirDados_Click(Index As Integer)
   Static vegFirstRow As Long
  
   Select Case Index
   Case 1            'Vai para o 1o ítem
     dbgPMVS.[b]FirstRow [/b]= " 0"   'Faz o primeiro registro ser a 1a. linha visível <- erro
      dbgPMVS.[b]Row[/b] = 0            'Seleciona a 1a. linha <- erro
   
   Case 2            'Volta 10 ítens (sentido 1o. ítem)
      dbgPMVS.Scroll 0, -10                  'Sobe 10 linhas
      vegFirstRow = CLng(dbgPMVS.FirstRow)   'Pega o Long referente à FirstRow
      
      'Quando faltam menos que 10 linhas para o inicio, força até o início
      If vegFirstRow < 10 Then
         Do While vegFirstRow > 0
            dbgPMVS.[b]Scroll[/b] 0, -1
            vegFirstRow = CLng(dbgPMVS.FirstRow)
         Loop
      End If
      
      dbgPMVS.Row = 0

______________________________________________________

 

O erro é referente as palavras em negrito

A mensagem que aparece é METHOD OR DATA MEMBER NOT FOUND

[Claudio Neto 3]

Caro menon. Primeiramente seja bem vindo ao fórum.

 

Me diga, o que é o objeto dbgPMVS?

E qual era seu objetivo quando fez "dbgPMVS.firstrow = 0" ?

[menon 0]

Caro Claudio Neto!!!

Muito obrigado pela hospitalidade.

Bem!! Não fui eu quem criou o programa, foi outro programador que infelizmente faleceu,

como estou estudando programação peguei o projeto para estudá-lo e concluí-lo.

Não sei lhe dizer com certeza com que intuito foi feito o dbgPMVS.firstrow="0", uma vez que o programa sequer compila.

Posso lhe dizer que o ojeto dbgPMVS é uma picture box.

[Claudio Neto 3]

Picturebox???

 

Nossa, agora ficou mais complicado ainda.

Você ao menos sabe me dizer qual era o objetivo dessa sub?

[menon 0]

Fala Claudio!!!!!

beleza???

Mais uma vez lhe agradeço por me ajudar.

Bem não há nenhuma anotação a respeito dessa sub.

Porém resolvi o problema substituindo a picturebox por um datagrid os erros pararam.

Agora estou com duvida em um outro codigo:

 

[b]If vmgSAcesso And 2 ^ 1 [/b]Then
If chkIncluirMulta.Value = 0 Then
         vggIncluirRCR = Somat2eNie(vggIncluirRCR, -6)
      
      Else
         vggIncluirRCR = Somat2eNie(vggIncluirRCR, 6)
      End If
   
      Call HabInterf(0)
      Call smAplicar(0)
   End If
End Sub

você saberia me dizer o que significa o termo 2 ^ 1:

[Claudio Neto 3]

Isso é 2 elevado à 1. Não sei qual a utilidade disso no código.

 

Se fizer 3^2 dará 9. Mas 2^1 sempre será 2 mesmo.

 

Ah, seu objeto já devia ser datagrid. Mas quando o vb perde referência de alguma OCX, que deve ser o que aconteceu com seu datagrid, ele põe um picturebox no lugar.