Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 16.08.2006
Сообщений: 256

Конвертирование цвета из &H80000009& в Long

04.07.2007, 20:51. Показов 902. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Как конвертировать идентификатор цвета из такого вида:
&H80000009&
в формат Long?
Заранее спасибо.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.07.2007, 20:51
Ответы с готовыми решениями:

Запрос не хочет работать (sSql = 'SELECT * FROM PhoneBase WHERE Phone LIKE '' & txtPhone sSql = sSql & '%' AND Name LIKE '' & txtName & '%' AND Stre)
Всем привет! У меня следующая проблема. Я написал телефонный справочник и хочу, чтобы искать в нем можно было по разным параметрам....

Проблема с запросом: TRec.Open 'SELECT * FROM таблица Where ((таблица.дата) Like ' & Date & ' & '%') ', DBgen
Люди, подскажите что сиё такое и можно ли как то с этим бороться. Создаю следующий запрос: TRec.Open 'SELECT * FROM таблица Where...

Set rs = db.OpenRecordset('SELECT * FROM ' & strNom1 & ' ORDER BY Nomer')
В визуал бэйсике рекордсет открывается так: Set rs = db.OpenRecordset('SELECT * FROM Nom1 ORDER BY Nomer') Как мне вместо стринга...

3
Karamba
04.07.2007, 20:57
Debug.Print CLng('&H80000009')

последнего знака & не надо
0 / 0 / 0
Регистрация: 16.08.2006
Сообщений: 256
04.07.2007, 21:13  [ТС]
А обратно?
0
Karamba
04.07.2007, 21:19
ну чтож.. можно и обратно...

Dim lVal As Long
lVal = CLng('&H80000009')
Debug.Print '&H' & CStr(Hex(lVal))
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.07.2007, 21:19
Помогаю со студенческими работами здесь

Timeout expired & AdoDB & RecordSet
добрый день! Подскажите пожалуйста - столкнулся с проблемой. Пытаюсь запустить хранимую процедуру из базы на MS Server 2008. На тестовой...

Ошибка в коде rs.FindFirst '3:1 = '' & strfind & '''
Пользуюсь VB6 Пишу rs.FindFirst '3:1 = '' & strfind & ''' где: rs-рекордсет '3:1'-название поля(таблица уже открыта) ...

Не работает: Set rs = db.OpenRecordset('SELECT Name,Data1,Data2,Data3,Data4,Data5,Data6 FROM Films WHERE Name LIKE ' & txtName.Text & '*'')
Не могу понять в чём ошибка, русские имена ищет не правильно. Set rs = db.OpenRecordset('SELECT...

AdoDB & RecordSet & TimeOut
люди... есть такой вот код... Public Function GetPR(ByVal PRName As String, ByVal Params As String) As ADODB.Recordset Set GetPR = New...

Form_Initialize() && Form_Paint ()
Form_Initialize() Form_Paint () что они делают если можно подробнее ! Принцип их работы и для чего они служать


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru