jccurty

Olá Geny. Tudo bem? Vamos ver se consigo lhe ajudar. Criei um Formulário de nome "Form_data" com uma caixa de texto de nome "dataadmissao" e outra com o nome "datapromocao". Clicando com o botão direito do mouse na caixa de texto de nome "dataadmissao", acesse a opção "Construir evento..." . Na tela "Escolher construtor", selecione a opção "Construtor de código". Clique em OK. O editor do Visual Basic será exibido já no código para o "Form_data". Digite a seguinte linha de comando do lado direito da tela: Private Sub dataadmissao_AfterUpdate() datapromocao = dataadmissao + 365 End Sub Pronto: Ao executar o formulário, quando você digitar a data no campo "dataadmissao" e sair di campo, automaticamente será inserido no campo "datapromocao" a data do campo dataadmissao+365 dias. Espero ter te ajudado. Um grande abraço.

Tenho uma dúvida em como alterar as configurações de Fonte do controle RPTLabel no DataReport utilizando o VB6. Gostaria de alterar as configurações da Fonte do controle, como o seu Nome, Negrito, Itálico e Tamanho no modo de execução. No procedimento "INITIALIZE" do data Report utilizo as seguintes linhas de comando: DataReport1.Sections("CORPO").Controls.Item("Label1").Font.Name = "Arial" DataReport1.Sections("CORPO").Controls.Item("Label1").Font.Bold = True DataReport1.Sections("CORPO").Controls.Item("Label1").Font.Italic = True DataReport1.Sections("CORPO").Controls.Item("Label1").Font.Size = 16 Porém, as alterações não são atribuídas SOMENTE para o controle "Label1" conforme informado na linha de comando. Elas são atribuídas a TODOS os controles RPTLabel. Como posso fazer para que essas configurações de fonte sejam atribuídas APENAS para o cotrole "Label1"? Obrigado.