Как сделать, чтобы все переключатели на форме не были сразу включены?

@коржик · Регистрация: 22.04.2011

Студворк — интернет-сервис помощи студентам

Люди,помогите,плиз!
У меня есть программа Тестер.На одной из форм есть 4 переключателя(option),и при запуске формы первый переключатель сразу включен.Как сделать,чтобы все переключатели не были сразу включены?

@gitarillo · 22.04.2011, 13:35

Visual Basic
1
2
3
4
5
Dim ob As OptionButton
On Error Resume Next
For Each ob In Me.Controls
   If ob.Value = True Then ob.Value = False
Next

@коржик · 22.04.2011, 13:49 **[ТС]**

Сообщение от gitarillo

Visual Basic
1
2
3
4
5
Dim ob As OptionButton
On Error Resume Next
For Each ob In Me.Controls
   If ob.Value = True Then ob.Value = False
Next

не работает(

@Dzhej-Dzhej · 22.04.2011, 14:02

коржик, сделай пятый оптион, задвинь за предел формы(панели) и при старте делай его включеным

@коржик · 22.04.2011, 14:08 **[ТС]**

все,уже разобрался,спасибо))

@коржик · 09.05.2011, 14:16 **[ТС]**

Dzhej-Dzhej, привет!
как мне сделать,чтобы в моей программе менялись вопросы,то есть не по порядку,а в разброс?
вот текст программы

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Loading() 
Dim g As String 
Option1.Value = False 
Vopros = "" 
Otvet1 = "" 
Otvet2 = "" 
Otvet3 = "" 
Otvet4 = "" 
Ball1 = 0 
Ball2 = 0 
Ball3 = 0 
Ball4 = 0 
If Dir(App.Path & "\voprosi\1уровень\" & NomVopros & ".txt") <> "" Then 
f = FreeFile 
Open App.Path & "\voprosi\1уровень\" & NomVopros & ".txt" For Input As #f 
Input #f, Vopros 
Input #f, Otvet1, Otvet2, Otvet3, Otvet4 
Input #f, Ball1, Ball2, Ball3, Ball4 
Close #f 
Else 
End If 
 
Option1.Caption = Otvet1 
Option2.Caption = Otvet2 
Option3.Caption = Otvet3 
Option4.Caption = Otvet4 
Text1.Text = Vopros 
g = Vopros 
Label1.Caption = "Вопрос № " & NomVopros 
End Sub

помоги,пожалуйста)

@Dzhej-Dzhej · 13.05.2011, 08:35

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_Load()
    Dim Nomera(25) As Integer, i As Integer, j As Integer, _
        k As Integer, t As Integer
    Randomize
    For i = 1 To 25 ' инициализация
        Nomera(i) = i
    Next
    For i = 1 To 25 ' перемешиваем
        j = Int(25 * Rnd + 1) ' перепроверь диапазон
        k = Int(25 * Rnd + 1)
        t = Nomera(j)
        Nomera(j) = Nomera(k)
        Nomera(k) = t
    Next
    For i = 1 To 25
        Loading (i) ' передаем номер NomVopros
    Next
End Sub

что-то наподобии
еще можно 25 объявить константой

Не по теме:

я просто от темы открепился

@коржик · 13.05.2011, 22:19 **[ТС]**

спасибо))))

Новые блоги и статьи Все статьи Все блоги /
Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .	C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .

@коржик 0 / 0 / 0 Регистрация: 22.04.2011 Сообщений: 19

	Как сделать, чтобы все переключатели на форме не были сразу включены? 22.04.2011, 13:13. Показов 1757. Ответов 7 Метки нет (Все метки) Люди,помогите,плиз! У меня есть программа Тестер.На одной из форм есть 4 переключателя(option),и при запуске формы первый переключатель сразу включен.Как сделать,чтобы все переключатели не были сразу включены? 0

@Dzhej-Dzhej Заблокирован
	22.04.2011, 14:02
	коржик, сделай пятый оптион, задвинь за предел формы(панели) и при старте делай его включеным 1

@коржик 0 / 0 / 0 Регистрация: 22.04.2011 Сообщений: 19
	22.04.2011, 14:08 [ТС]
	все,уже разобрался,спасибо)) 0

@коржик 0 / 0 / 0 Регистрация: 22.04.2011 Сообщений: 19
	13.05.2011, 22:19 [ТС]
	спасибо)))) 0

Опции темы