Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Rayrat89
2 / 2 / 0
Регистрация: 14.06.2012
Сообщений: 70
1

Как сделать чтобы отрабатывал только один шаг цикла

22.11.2012, 07:24. Просмотров 755. Ответов 7
Метки нет (Все метки)

Как сделать чтобы при каждом нажатии по командной кнопке срабатывал только один шаг цикла?
vb.net
1
2
3
4
5
6
7
8
Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click
 
        For i = 0 To 99 Step 1
            ListBox1.Items.Add(i + 1 & "  Тест")
 
        Next
 
    End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.11.2012, 07:24
Ответы с готовыми решениями:

Сделать так, чтобы только один поток обращался к PictureBox
Здравствуйте! Очень нужна ваша помощь. Я написала программу, где я запуская...

Как сделать, чтобы открывающийся файл Word был только для чтения?
Всем привет.У меня в программе открывается файл word, открываю его вот так ...

Настроить БД, чтобы использовался только один её экземпляр
Как настроить бд чтобы использовался только один её экземпляр с ним и...

Я должна создать часы, сейчас у меня получилась только рисунок, не знаю как сделать чтобы они работали!Можете помочь?!
Imports System.Math Imports System.Drawing.Graphics Public Class Form1 ...

Сделать в DataGridView активным только один столбец
Кликом по ячейке dgv открывается форма с параметром запроса из этой ячейки....

7
Desh
143 / 143 / 41
Регистрация: 01.12.2009
Сообщений: 271
22.11.2012, 07:36 2
в цикл добавить Exit For
1
SoftIce
comment ca va
10452 / 3964 / 1013
Регистрация: 27.07.2011
Сообщений: 9,620
Завершенные тесты: 1
22.11.2012, 07:41 3
Это уже трудно назвать циклом
vb.net
1
2
3
4
5
6
7
8
9
10
Dim i As Integer
 
    Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click
 
        For i = i + 1 To 99 Step 1
            ListBox1.Items.Add (i & "  Тест"): Exit For
            
        Next
 
    End Sub
1
Rayrat89
2 / 2 / 0
Регистрация: 14.06.2012
Сообщений: 70
22.11.2012, 07:42  [ТС] 4
оо спс!) а как тогда индекс строки можно отловить?
просто сейчас цикл каждый раз начинается с начала и всегда выдает "1 тест"
0
SoftIce
comment ca va
10452 / 3964 / 1013
Регистрация: 27.07.2011
Сообщений: 9,620
Завершенные тесты: 1
22.11.2012, 07:47 5
Цитата Сообщение от Rayrat89 Посмотреть сообщение
сейчас цикл каждый раз начинается с начала и всегда выдает "1 тест"
Не может быть !


Цитата Сообщение от SoftIce Посмотреть сообщение
Dim i As Integer

i -глобальная для модуля
1
Desh
143 / 143 / 41
Регистрация: 01.12.2009
Сообщений: 271
22.11.2012, 07:50 6
Цитата Сообщение от Rayrat89 Посмотреть сообщение
а как тогда индекс строки можно отловить?
Заведи отдельную переменную, в цикле, перед выходом, прибавляй единицу. Переменную объявляй вне процедуры.
1
XIST
1057 / 782 / 112
Регистрация: 01.10.2009
Сообщений: 2,433
Записей в блоге: 1
22.11.2012, 07:50 7
Попробуйте
vb.net
1
Dim i As Integer = 0
хотя вроде по умолчанию 0 ну все же
Или закрываете форму после нажатия?
1
Rayrat89
2 / 2 / 0
Регистрация: 14.06.2012
Сообщений: 70
22.11.2012, 08:45  [ТС] 8
SoftIce это я на предшествующий вам комент ответ писал, Спасибо все норм заработало!)
Теперь буду пробовать добавлять какие нибудь объекты при нажатии)

Добавлено через 53 минуты
Вот сделал что создаются и Button'ы , а можно ли как то их сохранить? и как сделать чтобы они что то делали? например цвета меняли при нажатии?)
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click
 
        For i = i + 1 To 99 Step 1
            ListBox1.Items.Add(i & "  Тест") : Exit For
        Next
        For d = d + 30 To 500 Step 30
            Dim button10 As New Button
            button10.Text = (i & " Тест")
            button10.Location = New Point(250, 50 + d)
            button10.BackColor = Color.Azure
            Me.Controls.Add(button10)
            Exit For
        Next
    End Sub
0
22.11.2012, 08:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.11.2012, 08:45

Сделать, чтобы программа могла работать только на одном порту и IP
Доброго времени суток... Скажите возможно ли как то сделать чтоб по...

Возможно ли сделать чтобы основная программа запускалась только если ее запустит программам аутентификации
Собственно вопрос в чем, условно - есть программа аутентификации пользователей,...

Как сделать, чтобы System не отрабатывал
Идет обычная проверка на 0. Если а == 0, то вывести Fail. Но в main когда...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru