Checkbox, Optionbutton – безуспешный штурм примитивной задачки!

@giaber · Регистрация: 16.09.2014

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

Два дня - так и не смог решить!
Имеются или 2 Checkbox-а или 2 Optionbutton-а, не имеет значения теми или другими решится задача.
Итак допустим 2 Optionbutton-а: OpB1 и OpB2, всё как обычно – кликаешь один – отключается другой, но дополнительно надо чтобы если на какой-либо OpB кликается когда он в состоянии True, то оба OpB должны стать False
Понимаю что примитивная задачка, но вот очередное затмение и два дня не могу сделать!
===
Вообще не понимаю как работает у них внутренняя механика, почему:

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub RB1_Click()
    intTMP = intTMP + 1
    Txt1 = intTMP
End Sub
‘
Private Sub RB2_Click()
    intTMP = intTMP + 1
    Txt1 = intTMP
End Sub

то по одному прибавляется, то по 2, то по 3? Темный лес…

@giaber · 22.11.2024, 23:23 **[ТС]**

Delete

@HackerVlad · 22.11.2024, 23:25

Delete

@HackerVlad · 22.11.2024, 23:27

Delete

@HackerVlad · 22.11.2024, 23:29

Аааа это я ошибся в коде сам

@HackerVlad · 22.11.2024, 23:31

Значит я всё-таки был прав! Text1.Text работает чуть быстрее сравнение

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
31
32
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Command1_Click()
    Dim i As Long
    Dim tick As Long
    
    tick = GetTickCount
    
    For i = 0 To 500000
        If Text1 = "Text1" Then
            ' ля ля ля
        End If
    Next
    
    Print GetTickCount - tick & " ml"
End Sub
 
Private Sub Command2_Click()
    Dim i As Long
    Dim tick As Long
    
    tick = GetTickCount
    
    For i = 0 To 500000 ' 500 тысяч интераций для проверки
        If Text1.Text = "Text1" Then
            ' ля ля ля
        End If
    Next
    
    Print GetTickCount - tick & " ml"
End Sub

@HackerVlad · 22.11.2024, 23:33

Мой код сравнения "If.Text.Text =" работает на 47 млск быстрее, для 500 тысяч интераций, чем ваш код сравнения "If Text1 ="

@giaber · 23.11.2024, 00:06 **[ТС]**

Не имеет значения в реальной жизни, но всё равно было интересно!
===
На рисунке The Trick-овский Checkbox

@HackerVlad · 23.11.2024, 01:14

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

The Trick-овский Checkbox

Вы им пользуетесь? Там у него конечно может быть енум-подсказка.

@giaber · 23.11.2024, 06:17 **[ТС]**

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

Вы им пользуетесь? Там у него конечно может быть енум-подсказка.

Да, скачал давно, начал использовать в этом проекте. Удобны как минимум тем что практически любой дизайн можно делать - ведь внешний вид определяется картинками которые сам рисуешь, ну и плюс прозрачность, плюс встроенные MouseEnter, MouseLeave и MouseWheel, ну короче "Эх! Полным-полна коробушка Есть и ситец и парча!"
===
Vlad, давай на ТЫ общаться!

@HackerVlad · 23.11.2024, 07:47

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

Vlad, давай на ТЫ общаться!

я не всегда об этом помню просто

Новые блоги и статьи Все статьи Все блоги /
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .

@giaber 101 / 38 / 0 Регистрация: 16.09.2014 Сообщений: 429
	22.11.2024, 23:23 [ТС]
	Delete 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	22.11.2024, 23:25
	Delete 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	22.11.2024, 23:27
	Delete Миниатюры 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	22.11.2024, 23:29
	Аааа это я ошибся в коде сам 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	22.11.2024, 23:33
	Мой код сравнения "If.Text.Text =" работает на 47 млск быстрее, для 500 тысяч интераций, чем ваш код сравнения "If Text1 =" 0

@giaber 101 / 38 / 0 Регистрация: 16.09.2014 Сообщений: 429
	23.11.2024, 00:06 [ТС]
	Не имеет значения в реальной жизни, но всё равно было интересно! === На рисунке The Trick-овский Checkbox Миниатюры 1

Опции темы