Вопросы Теги

Передача Ссылки на объект в Visual Basic (VBA)

Просто добавьте атрибут data-interval в карусель начальной загрузки, чтобы автоматически переходить к следующему слайду каждые x секунд. Обратите внимание, что data-interval вычисляет ваше значение в milliseconds , поэтому, если вы хотите менять слайды карусели через каждые 10 секунд, вам нужно добавить data-interval=10000.

Проверьте и запустите следующий фрагмент кода для практического примера использования атрибута data-interval для автоматического скольжения вашей карусели: 

/* CSS */

html, body {margin: 0px; padding: 0px; width: 100%; height: 100%;}
.wrapper {
  margin: 0 auto;
  width: 100%;
}
.carousel-item img {width: 100%; height: 200px;}
.carousel-item video {width: 100%; height: 200px;}
<!-- HTML -->

<link href="https://stackpath.bootstrapcdn.com/bootstrap/4.1.0/css/bootstrap.min.css" rel="stylesheet"/>


<div class="wrapper">
  <div id="carousel-slider" class="carousel slide carousel-fade" data-ride="carousel" data-interval="2000">
      <!--Indicators-->
      <ol class="carousel-indicators">
        <li data-target="#carousel-slider" data-slide-to="0" class="active"></li>
        <li data-target="#carousel-slider" data-slide-to="1"></li>
        <li data-target="#carousel-slider" data-slide-to="2"></li>
      </ol>
      <!--Indicators-->
      <!--Slides-->
      <div class="carousel-inner" role="listbox">
        <!--First slide-->
        <div class="carousel-item active">
          <img class="d-block w-100" src="https://mdbootstrap.com/img/Photos/Slides/img%20(130).jpg" alt="First slide">
        </div>
        <!--/First slide-->
        <!--Second slide-->
        <div class="carousel-item">
          <video controls>
            <source src="https://sample-videos.com/video123/mp4/720/big_buck_bunny_720p_1mb.mp4" type="video/mp4">
          </video>
        </div>
        <!--/Second slide-->
        <!--Third slide-->
        <div class="carousel-item">
          <img class="d-block w-100" src="https://mdbootstrap.com/img/Photos/Slides/img%20(70).jpg" alt="Third slide">
        </div>
        <!--/Third slide-->
      </div>
    </div>
</div>

<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.3.1/jquery.min.js"></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.0/umd/popper.min.js"></script>
<script src="https://stackpath.bootstrapcdn.com/bootstrap/4.1.0/js/bootstrap.min.js"></script>

5
задан Gaffi 17 June 2013 в 14:38
поделиться

1 ответ

Перепишите для Excel:

Private Sub DoSmthWithTextBox(txtBox As MSForms.TextBox)
    txtBox.BackColor = vbRed
End Sub

Насколько я знаю, это вызвано тем, что Excel имеет объектное текстовое поле, которое является формой, тогда как userforms используют текстовое поле элемента управления ActiveX, таким образом, Вам нужна прямая ссылка на библиотеку MSForms.

13
ответ дан 18 December 2019 в 14:53
поделиться
Другие вопросы по тегам:

Похожие вопросы: