Ir para conteúdo
Fórum Script Brasil

Reyam

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Sobre Reyam

Reyam's Achievements

0

Reputação

  1. Reyam

    VBE

    VERIFICA A FORMATAÇÃO DA CÉLULA ONDE VAI A INFORMAÇÃO TAMBEM ' A LINHA ABAIXO DETERMINA A PLAN3 (Despesas (-)) COMO SELECIONADA ActiveWorkbook.Sheets("Despesas (-)").Activate Range("c5").Select 'O CÓDIGO ABAIXO PROCURA A PRÓXIMA CÉLULA VAZIA Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.Value = TxtNotaFiscal.Value ActiveCell.Offset(0, 1).Value = CmbDespesas.Value ActiveCell.Offset(0, 3).Value = Format(TxtVencimento.Value, "dd/mm/yyyy") ActiveCell.Offset(0, 4).Value = TxtValor.Value
  2. Reyam

    Interface

    Exemplo da instrução Implements no VBA O exemplo a seguir mostra como usar a instrução Implements para disponibilizar um conjunto de declarações às mútliplas classes. Ao compartilhar as declarações através da instrução Implements, nenhuma classe deve fazer qualquer declaração. Assuma que há dois formulários. O formulário Seletor tem dois botões, Dados do cliente e Dados do fornecedor. Para inserir informações sobre nome e endereço de um cliente ou fornecedor, o usuário clica no botão Cliente ou Fornecedor e, em seguida, insere o nome e endereço usando o formulário Entrada de dados. Este tem dois campos de texto, Nome e Endereço. O código a seguir, para as declarações compartilhadas, está em uma classe chamada DadosPessoais: Public Name As String Public Address As String O código que dá suporte aos dados do cliente está em um módulo de classe chamado Cliente: Implements PersonalData Private Property Get PersonalData_Address() As String PersonalData_Address = "EndereçoDoCliente" End Property Private Property Let PersonalData_Address(ByVal RHS As String) ' End Property Private Property Let PersonalData_Name(ByVal RHS As String) ' End Property Private Property Get PersonalData_Name() As String PersonalData_Name = "NomeDoCliente" End Property O código que dá suporte aos dados do fornecedor está em um módulo de classe chamado Fornecedor: Implements PersonalData Private Property Get PersonalData_Address() As String PersonalData_Address = "EndereçoDoFornecedor" End Property Private Property Let PersonalData_Address(ByVal RHS As String) ' End Property Private Property Let PersonalData_Name(ByVal RHS As String) ' End Property Private Property Get PersonalData_Name() As String PersonalData_Name = "NomeDoFornecedor" End Property O código a seguir dá suporte ao formulário Seletor: Private cust As New Customer Private sup As New Suplier Private Sub Command1_Click() Dim frm2 As New Form2 Set frm2.PD = cust frm2.Show 1 End Sub Private Sub Command2_Click() Dim frm2 As New Form2 Set frm2.PD = sup frm2.Show 1 End Sub O código a seguir dá suporte ao formulário Entrada de dados: Private m_dp As PersonalData Private Sub Form_Load() With m_dp Text1 = .Name Text2 = .Address End With End Sub Public Property Set DP(Data As PersonalData) Set m_dp = Data End Property
  3. 1 Cria nome pros OPT's sequenciais (opt1, opt2, op3...) e coloque-os em um frame 2 Usa um replace pra tira o nome em comum, você terá um numero que pode ser validado For Each x In UserForm1.frame1.Controls if Replace(x.Name, "Opt", "", 1) > 2 then [instruções] else [instruções] end if Next
  4. Saca só cara... 1º você cria um quadrado com canto arredondados. Imita uma tecla. 2º clica com o direito encima do layer 3º Seleciona mask. (vai ficar com um icone diferente) 4º Cria um layer novo e arrasta para baixo do layer mask (icone muda para uma seta a direita) 5º Cria um Quadrado maior que o layer que vai representar a tecla 6º Pinte-a com a cor do teclado, pode ser tb degrade, mas n recomendo. 7º Crie outro layer (vou chama-lo de letra), digite a letra nele e centralize ele no layer mask (o primeiro que você criou) 8º Mais um layer novo com um quadrado com degrade com 3 cores na ordem: cor do fundo, cor clara para o brilho, cor do fundo. 9º Vire na diagonal ou mesmo na horizontal depende do movimento que ele irá fazer. 10º Arraste este layer (com o degrade de brilho) para abaixo da letra e acima do fundo. 11º Agora com o layer degrade, faça a animação de cordo com a direção do degrade, se na horizontal, o movimento deve ser na horizontal, se na vertivcal, movimento na verticar e assim por diante. Acho que é isso, você pode fazer várias teclas juntas num mesmo layer e fazer um brilho geral ta ligado? Espero ter ajudado, eis aqui um velho colaborador de volta a ativa, peo menos por um tempo. B)
  5. Essa msg acima sou eu, Reinaldo. Se alguém puder ajudar... :)
  6. =\ Eu acho que se o flash aceita trabalhar com variáveis ID do PARAM ele aceita trabalhar com o CSS normal, só n sei como, deve haver uma maneira de designer o conteudo de um layer, se alguém souber pls. To precisando disso. :huh:
×
×
  • Criar Novo...