Jump to content
Rottzeus

Percorrer todos os controles do form, identificando todos os indexados ou não

Recommended Posts

Boa noite pessoal!!!

Que bom testemunhar que este forum permanece a todo vapor... há algum tempo não tenho tido tempo de entrar e acompanhá-lo em razão de mudança de função/profissão. Saudações a todos!!!

Contudo, em razão de uma necessidade de mudança de um sistema antigo, estou com uma dúvida que não consigo achar o caminho. Preciso percorrer todos os controles de um form e automatizar uma rotina para habilitar ou não determinado controle. Contudo, minha dúvida consiste a partir do momento que encontro controles indexados name(i).enabled e controles não indexados name.enabled.

Percorrer o form não é o problema, pois uso o código abaixo
For i = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is OptionButton Then
      'Aqui preciso saber se o OptionButton está indexado ou não, pois terei as duas situações e nomes diferentes para fazer uma busca diretamente pelo controle
      'Tentei várias formas Me.Controls(i).Name.item(i).caption, Me.Controls(i).Name.count para identificar se é ou não indexado, Me.Controls(i).Name.index, mas estou apanhando realmente
      ''Me.Controls(i).text = ""
ElseIf TypeOf Me.Controls(i) Is CommandButton Then
      'Aqui faria a mesma checagem com o commandbutton, pois no form há tanto controles indexados, como não indexados.
Else
      'Se não fosse nem um optionbutton, nem um commandbutton não preciso fazer nada
End If
Next

Se alguem puder me dar um help, fico agradecido.

Abraço a todos!!!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By rafael.munareto
      Pessoal, 
       
          No código abaixo quero recortar a foto e subir o nome do arquivo na variável que busco no banco de dados, consegui fazer o efeito de recortar e de visualizar mas não está aparecendo a imagem recortada e nem salvando o nome do arquivo com a nova dimensão, podem me ajudar:
       

      <?php
      error_reporting(E_ALL ^ E_NOTICE);
      require_once("mostra-alerta.php");
        include("coneta_mysql.php");
      /**
       * Jcrop image cropping plugin for jQuery
       * Example cropping script
       * @copyright 2008-2009 Kelly Hallman
       * More info: http://deepliquid.com/content/Jcrop_Implementation_Theory.html
       */
      if ($_SERVER['REQUEST_METHOD'] == 'POST')
      {
        $targ_w = $targ_h = 150;
        $jpeg_quality = 90;
        $src = "img/perfil/<?php echo $foto_perfil ; ?>";
        $img_r = imagecreatefromjpeg($src);
        $dst_r = ImageCreateTrueColor( $targ_w, $targ_h );
        imagecopyresampled($dst_r,$img_r,0,0,$_POST['x'],$_POST['y'],
        $targ_w,$targ_h,$_POST['w'],$_POST['h']);
        header('Content-type: image/jpeg');
        imagejpeg($dst_r,null,$jpeg_quality);
        exit;
      }
      ?>
      <html xmlns="http://www.w3.org/1999/xhtml">
      <head>
          <meta charset="UTF-8">
          <title>REDE A</title>
          <link rel="icon" href="img/logo_pequeno.png">
          <link href="css/principal.css" rel="stylesheet" />
          <link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.3.1/css/bootstrap.min.css" integrity="sha384-ggOyR0iXCbMQv3Xipma34MD+dH/1fQ784/j6cY/iJTQUOhcWr7x9JvoRxT2MZw1T" crossorigin="anonymous">
          <link href="css/select2.min.css" rel="stylesheet" />
          <link href="https://fonts.googleapis.com/css?family=Raleway&display=swap" rel="stylesheet">
          <link rel="stylesheet" href="css/bootstrap.min.css">
          <script src="js/principal.js"></script>
          <script src="js/jquery.min.js" type="text/javascript"></script>
        <script src="js/jquery.Jcrop.js" type="text/javascript"></script>
        <script src="js/jquery.Jcrop.min.js" type="text/javascript"></script>
        <link rel="stylesheet" href="css/jquery.Jcrop.css" type="text/css" />
        <link rel="stylesheet" href="css/demos.css" type="text/css" />
      </head>
      <script type="text/javascript">
            jQuery(function($){
            // Create variables (in this scope) to hold the API and image size
            var jcrop_api, boundx, boundy;
            
            $('#cropbox').Jcrop({
              onChange: updatePreview,
              onSelect: updatePreview,
              aspectRatio: 1
              
            },function(){
              // Use the API to get the real image size
              var bounds = this.getBounds();
              boundx = bounds[0];
              boundy = bounds[1];
              // Store the API in the jcrop_api variable
              jcrop_api = this;
            });
            function updatePreview(c)
            {
              if (parseInt(c.w) > 0)
              {
                var rx = 100 / c.w;
                var ry = 100 / c.h;
                $('#preview').css({
                  width: Math.round(rx * boundx) + 'px',
                  height: Math.round(ry * boundy) + 'px',
                  marginLeft: '-' + Math.round(rx * c.x) + 'px',
                  marginTop: '-' + Math.round(ry * c.y) + 'px'
                });
              }
            };
              $(function(){
              $('#cropbox').Jcrop({
                aspectRatio: 1,
                onSelect: updateCoords
              });
            });
            function updateCoords(c)
            {
              $('#x').val(c.x);
              $('#y').val(c.y);
              $('#w').val(c.w);
              $('#h').val(c.h);
            };
            function checkCoords()
            {
              if (parseInt($('#w').val())) return true;
              alert('Please select a crop region then press submit.');
              return false;
            };
          });
      </script>
        <body>
            <main>
          <?php include("conecta_mysql.php"); 
                require_once("logica-usuario.php");
                include("foto_perfil_php.php");?>    
            <div id="outer">
            <div class="jcExample">
            <div class="article">
                <table>
                  <tr>
                    <td>
                      <img id="cropbox" alt="Flowers" src="img/perfil/<?php echo $foto_perfil ; ?>" style="width: 100%; margin-right: 2rem">
                    </td>
                    <td>
                        <div style="width:100px;height:100px;overflow:hidden;">
                            <img src="img/perfil/<?php echo $foto_perfil ; ?>" id="preview" alt="Preview" class="jcrop-preview" />
                          </div>
                    </td>
                  </tr>
                </table>
              <form action="alterar_imagem.php" method="post" onsubmit="return checkCoords();">
                <input type="hidden" id="x" name="x" />
                <input type="hidden" id="y" name="y" />
                <input type="hidden" id="w" name="w" />
                <input type="hidden" id="h" name="h" />
                <input type="submit" value="Recortar" />
            </form>
                <form method="post" enctype="multipart/form-data" name="cadastro">
                    <input class="btn btn-outline-success" id="escolha_foto" type="file" name="foto">
                    <button type="file" id="button_perfil" class="btn btn-outline-success" name="upload_foto"> OK </button>
                    <button class="btn btn-outline-success" onclick="refresh()">SAIR</button>
                </form>    
            </div>
            </div>
            </div> 
          </main>
       </body>
      <?php include('rodape.php') ?>
    • By vbnovak
      Pessoal, tudo bem?
       
      Eu infelizmente sou uma pessoa muito newbie no Access, e extremamente enferrujada no VBA, e eu tenho que criar um banco de dados para importar várias planilhas de Mês/Ano (Ex.: 012018; 022018) sempre do mesmo modelo/molde/afins, e no fim, gerar um relatório com as informações importadas. O modelo relatório e o modelo tabela estão prontos, entretanto, não sei como criar o formulário que faça:
       
      1º: Clicar no botão procurar arquivo;
      2º: Solicite o Mes/Ano do arquivo que será importado;
      3º: Abra a API do Windows de localizar arquivo;
      4º: Ao selecionar e importar o arquivo, dê baixa na tabela definida.
       
      A tabela e o arquivo tem todos as mesmas colunas, entretanto, eu inseri a coluna MesAno na tabela que deverá ser inserida conforme a pergunta que foi solicitada no formulário. Pois o relatório será gerado de acordo com essa coluna.
    • By Dineysil
      Boa tarde!
       
      Sou iniciante em Javascript e Ajax e estou precisando de criar uma função para:
      Em um Form tenho dois "radios" jurídico e físico, preciso que ao clicar em uma opção no form alterne uma "Label" e uma "Text"
      Se a opção for Físico a Label será CPF: e a Text terá uma mascara de cpf
      Se a opção for Jurídico a Label será CNPJ: e a Text terá uma mascara de cnpj
       
      Com relação as máscaras eu já as tenho.
       
      O site está em ASP Clássico

      Agradeço se alguém poder ajudar.
       
      Claudiney
    • By andrelimaverde
      Pessoal preciso de uma ajuda, desde já agradeço à todos.
      "Site teste, estudos..."
      Tenho um formulário com 3 etapas, ele está trabalhando em php normalmente e salvando os dados preenchidos em .txt (para testes apenas).
      Vamos lá, nas 3 etapas o form está com action="1.php" (2.php,  3.php) e method="post". [Não vou colocar muito código para simplificar, pois é um formulário básico fácil de entender]
      Exemplo:  Pagina 1 - envia para action '1.php'
      Nome: 
      Telefone:
      <input type="submit" value="Continuar">
      (
       O arquivo 1.php armazena os dados e redireciona => header( 'Location:Pagina2.php' ) ;   
       Assim como os outros php's
      )
      Pagina 2 - action 2.php armazena os dados e redireciona => header( 'Location:Pagina3.php' ) ; 
      Cidade:
      Endereço:
      <input type="submit" value="Continuar">
       
      A questão está na 3ª página
      Página 3 -
      Email:
      (Preciso que após preencher o campo da página 3 no caso "Email:",  ao clicar no botão, neste caso não sei se seria um submit ou button. O formulário não redirecionar para pagina 4, ao clicar ele enviar e salvar normalmente, mas aparecer um novo input na mesma pagina por Exemplo:"Twitter:"  ) 
      No caso preciso que ele não redirecione , gostaria de colocar um gif de carregando por 15 segundos por exemplo como se estivesse processando as informações... e em seguida ele apresentar o novo input do "Twitter:" , onde ai sim enviaria normalmente...
    • By Chead
      Galera,para vocês, qual o melhor jeito de criar um formulario de inscrição pago para eventos, sem ter que utilizar essas plataformas online de sites como sympla ou evenbrite?
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.