Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> вопрсы по елементе label, изменить состояние при каждом клике 
:(
    Опции темы
begun
Дата 28.12.2020, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 8.1.2007

Репутация: нет
Всего: нет



доброго дня
я ,человек не молодой ,но тянущий к знаниям.
вот нужно мне изучить вижуал бейсик, как самый доступный для понимания, по моему.
естественно, читаю книги, но конечно не легко.
надежда на форумы, что знатоки помогут разобраться , что к чему.
Сам себе ставлю задачи и по возможности стараюсь решать.
На сей раз мне нужно  использовать процедуру clik для лабеля и чтобы он менял свою окраску при каждом клике.
т.е. покликал, он красный. еще раз покликал, он зеленный и так далее(лрасный -зеленный)
ну цвета как присвоить я знаю, но как изменить состояние при каждом клике--вот в чем вопрос.
Option Explicit

Private Sub Label1_Click()
Label1.BackColor = vbBlue
End Sub
заранее извиняюсь за мои вопросы на пути обучения, которые знатокам будут казаться наивными.
PM MAIL   Вверх
Naghual
Дата 28.12.2020, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Код

If Label1.BackColor = vbBlue Then
    Label1.BackColor = vbRed
Else
    Label1.BackColor = vbBlue
End If

Пишу по памяти, так что не судите строго...

P.S.  Рекомендую посмотреть на PureBasic. На мой взгляд более интересный продукт.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
begun
Дата 28.12.2020, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 8.1.2007

Репутация: нет
Всего: нет



Naghual,
Спасибо большое. надо же,
так просто когда знаешь.
это для меня большой опыт.
Работает отлично!!

PM MAIL   Вверх
begun
Дата 28.12.2020, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 8.1.2007

Репутация: нет
Всего: нет



Naghual,
отдельное спасибо за указание Purebasic.
PM MAIL   Вверх
begun
Дата 29.12.2020, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 8.1.2007

Репутация: нет
Всего: нет



Naghual
Я извиняюсь, конечно,но по ходу возникла проблема, которую заранее не смог предугадать,чтобы поставить общий вопрос.
Цвета меняются нормально, но вот когда закрываешь EXE фаил и вновь открываешь, цвет лабеля теряется, а мне нужно, чтобы при открывании,
он оставался  таким, каким  был до закрывания .т.е. сохранил свой цвет. 
Это возможно?, или связанно со сложностями?
PM MAIL   Вверх
Akina
Дата 29.12.2020, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453



Цитата(begun @  29.12.2020,  10:58 Найти цитируемый пост)
Это возможно?

Да. Просто нужно где-то сохранять установленное состояние.

Принципиально вариантов два. Первый - внутри Excel-файла (и каждый раз потребуется сохранять при выходе, а если отказаться - потеряется). Второй - снаружи (скажем, в реестре).

В принципе оба варианта несложные. И у каждого свои плюсы и минусы.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
begun
Дата 30.12.2020, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 8.1.2007

Репутация: нет
Всего: нет



Akina,
благодарю вас.
предпочтение  надо отдать, наверно реестру. 
надо мне, где то найти, как это практический сделать.
PM MAIL   Вверх
Akina
Дата 30.12.2020, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453





--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
begun
Дата 30.12.2020, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 8.1.2007

Репутация: нет
Всего: нет



Akina
большое спасибо.

PM MAIL   Вверх
Naghual
Дата 31.12.2020, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Цитата(begun @ 29.12.2020,  09:58)
Это возможно?

Судя по тому, как я понял задачу, вам будет лучше использовать некий файл настроек. Например, файл INI.
Плюс такого способа : переносимость на другую машину (портабельная версия) и избежание проблем с доступом к реестру от прав пользователя.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 31.12.2020, 23:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453



Цитата(Naghual @  31.12.2020,  22:41 Найти цитируемый пост)
Плюс такого способа : переносимость на другую машину (портабельная версия)

Тогда зачем лишний файл? можно всё хранить прямо в файле Excel - благо там для этого есть место.

Кстати, можно предусмотреть хранение и в реестре, и в файле - например, в файле по отдельному запросу именно для переноса.

Цитата(Naghual @  31.12.2020,  22:41 Найти цитируемый пост)
избежание проблем с доступом к реестру от прав пользователя.

GetSetting/SaveSetting работает с HKCU, к которому доступ должен быть без ограничений (или будут такие проблемы, что станет не до эксельного файла.)


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.1318 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.