[Navegar dentro do ListBox]

Pessoal estou anexando um projetinho no vba excel de cadastro de horários. Como podem ver ele possui duas listbox. Uma que carrega todos os horários (00:00 às 23:59) e outra com os horários já cadastrados. Quando utilizo os botões de navegação "<" e ">" consigo ver na planilha mas não no listbox de "horários cadastrados" somente os campos: textbox, combobox.

Private Sub btnproxreg_Click()
Dim selecao As Integer
Dim quantidade As Integer

    ActiveCell.Offset(1, 0).Select
     If ActiveCell.Offset.Value = "" Then
        MsgBox "Fim dos Registros", vbOKOnly
      End If
      
    txtlinha.Value = ActiveCell.Offset(0, 0).Value
    cbSentido.Value = ActiveCell.Offset(0, 1).Value
    cbCalendario.Value = ActiveCell.Offset(0, 2).Value
    txtatendimento.Value = ActiveCell.Offset(0, 4).Value
    
    quantidade = Me.ltcarrega.ListCount
    selecao = Me.ltcarrega.ListIndex
    
  If selecao > 0 And selecao <= quantidade - 1 Then
   Me.ltcarrega.Selected(selecao - 1) = True
   Else
   Me.ltcarrega.Selected(0) = False
   End If

End Sub

Private Sub btnregatual_Click()
Dim selecao As Integer
Dim quantidade As Integer

    ActiveCell.Offset(-1, 0).Select
     If ActiveCell.Offset.Value = 1 Then
        MsgBox "Primeiro Registro", vbOKOnly
      End If
      
    txtlinha.Value = ActiveCell.Offset(0, 0).Value
    cbSentido.Value = ActiveCell.Offset(0, 1).Value
    cbCalendario.Value = ActiveCell.Offset(0, 2).Value
    txtatendimento.Value = ActiveCell.Offset(0, 4).Value
    
  quantidade = Me.ltcarrega.ListCount
  selecao = Me.ltcarrega.ListIndex
  
  If selecao >= 0 And selecao < quantidade - 1 Then
   Me.ltcarrega.Selected(selecao + 1) = True
   Else
   Me.ltcarrega.Selected(0) = False
   End If
     
    
End Sub

 

[UCMailUserControl, UCHistorico e botão cancelar]

Alguém poderia me disser como configurar o UCMailUsercontrol para provedor gmail, como chamar o UCHistórico, log de acesso e implementar o botão cancelar para fechar a tela de login do User Control?

Carlos

[UserControl]

Alguém pode me disser se existe algum tutorial além do site Planeta Delphi sobre o UserControl como por exemplo:

como acessar o log do sistema; UCmail para provedor Google; UCHistórico.

Obrigado,

Carlos

[Resolução]

Recentemente postei neste forum se alguém poderia me informar como criar um aplicativo de acordo com a resolução de video. Nem todo mundo tem monitor com resolução acima de 1024 x 768 px. Meus projetos são feitos em resolução 1280 x1024px e quando coloco na resolução anterior ou em 800 x 600px, Form, Botões, Labels, Edits ficam em tamanhos desproporcionais. O Statusbar fica invisível ou espremido. Encontrei este código:

procedure PTela( Sender: Tobject );

procedure PAlterar( Width, Height : Integer);

var sDispMode: DevMode;

begin

EnumDisplaySettings(Nil,0,sDispMode);

sDispMode.dmPelsWidth := Width;

sDispMode.dmPelsHeight := Height;

sDispMode.dmFields := DM_PELSWIDTH+DM_PELSHEIGHT;

try

ChangeDisplaySettings(sDispMode,0);

except

ShowMessage('Não é possivel alterar configurações de vídeo.')

end;

end;

begin

if (Screen.Width <> OldWidth ) and (Oldwidth <> 0) then

Palterar(OldWidth, OldHeight);

// Aqui testo se a resolução é 800 porque quero utilizar pro meu software resolução 800 X 600.

If (Screen.Width <> 800 ) then

if (messageDlg('Para uma boa utilização recomenda-se resolção de video de 1024 X 768. ' +

#13#13 + ' Deseja Alterar suas confirações de vídeo agora ?',

mtConfirmation, [mbYes, mbNo], 0)=mrYes) then

begin

// Vairavel que pega o valor original de inicialização ex: 1024 X 768... etc...

OldWidth := GetSystemMetrics(SM_CXSCREEN);

OldHeight := GetSystemMetrics(SM_CYSCREEN);

// Resolução para qual quero utilizar enquanto o programa estiver aberto…

PAlterar(1024, 768); // 800 X 600

end;

end;

[Jvcdbtreview]

Muito obrigado pela ajuda mas qual seria este? Eu tentei instalar o UserControl para delphi 2010 porém, dá erro de instalação que me fez desistir dele. Preciso de um controle de acesso total tipo: acesso ao menu, controle para que o usuário não insira, salve ou exclua dados da tabela entre outras coisas. Pode ser componente pago não importa.

[Jvcdbtreview]

Alguém já usou este componente. Quais as propriedades que ele tem? Dá para usá-lo em controle de acesso a usuários no sistema?