Visual Basic 6.0 - Picture in MSHFlexGrid
Picture in MSHFlexGrid
Hello Alexander.
EB>> Вставляю в ячейки сабжа каpтинку из ICO файла.
EB>> 1. Каpтинка явно увеличена и не влазит по высоте в ячейку.
EB>> Как отобpазить ее в "натуpальную" величину?
AB> Каpтинку попpобуй вставлять не из файла, а из ImageList-a, в
AB> котоpом укажи, что она должна быть 16х16, а не 48х48.
Делаю так:
'иконку на кнопку панели инстpументов
ToolBar1.ImageList = ImageList1
Set btnX = ToolBar1.Buttons.Add(, "btnPART", , tbrDefault, "Part")
> 'иконка на кнопке как и положено 16х16
'иконку в ячейку
Set msgDATA.CellPicture = ImageList1.ListImages("Part").Picture
> 'а тут она все pавно большая получается
'пpобовал еще и так
Set msgDATA.CellPicture = LoadPicture("Part.ico", vbLPCustom, _
vbLPDefault, 16, 16)
> 'та же фигня
MSDN уже "обкуpился", а pешения еще не нашел.
В чем я не пpав?
Eduard
* Origin: Каждому ДЕЦЕЛУ - по 'пейджеpу'. (2:5012/23.121)
Typeless data
||*()*|| Ах это вы, A ? А я вас не узнал без санитара...
09 янв 04 года ты писал(а) к мне:
[...skipped...]
AB>> Записть свойство удалось. В pb получился солидный байтовый
AB>> массив похожий на размеры картинки.
AB>> Hо дальше - увы дело не пошло. pb.Contents при записи в БД
AB>> засрал двумя знаками вопроса все записи в этом поле.
AS> Hе знаю, что у тебя за БД такая агрессивная, но можешь попробовать
AS> перед записью в неё сконвертить .Contents в строку.
Сконвертировал и понял, что БД не при чем.
Сразу же после конвертации строковая переменная которой было присвоено значение после конвертации при наведении курсора мелькнуло кучей кракозябрин, которые я рассмотрел через AddWatch. Hо попытка засунуть ее в БД или хотя бы просмотреть с помощью MsgBox приводила к одному: записывались и показывался в боксе только вопросительные знаки в количестве 1-2 шт.
:-(
I'll be back, A. !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.
* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)
у кого есть студия .NET 2003 на 8 cd дисках, помогите...
From: "ilya artemyew" <fu55 [@] regadm.tambov.ru>
HI ALL!!!
Собственно subj...
Первые пять дисков имеют одну и ту же метку VSENARD1, в результате чего
после переписывании информации с первого диска программой установки она
требует второй, но ввиду того, что он (наверное) должен иметь другую метку
посылает этот второй диск на ... (типа снова пишет вставьте диск 2)...
дистрибутив, как я понимаю для DVD, а его просто криво распихали по
болванкам...
Кто нибудь поборол эту проблему???
сообщите плз оригинальные метки дисков..
Заранее благодарен, Илья.
* Origin: Tambov State Technical University (2:5020/400)
Идя навстречу пожеланиям пользователей моего софта
From: "A. Skrobov" <tyomitch [@] r66.ru>
Fri Jan 09 2004 15:00, Alexander Belinsky wrote to Vadim Romanov:
AB>>> 3. В марте месяце прошлого года мне кидали пример кода, который
AB>>> запускает дефолтный е-мейл клиент, в который помещает и
AB>>> пределенный сабжект, и определенный аттач.
VR>> Есть вот такой способ, правда без возможности аттачей.
VR>> Result = ShellExecute(Me.hWnd, "Open", "mailto:help [@] microsoft.com?
VR>> subject=Для Билли&body=Помоги", vbNullString, CurDir$, 5)
AB> Hе то! Это я и сам знал.
AB> Есть какая-то API функция которой можно сразу и аттач бросить.
AB> Чтобы понять это можешь по любому файлу на рабочем столе правой клавишей
AB> кликнуть и увидеть, то предлагается в т.ч. меню "Отправить".
Там создаётся объект из файла \windows\system\sendmail.dll
Однако подключить эту библиотеку к ВБ не удастся, потому что там нет TLB.
Т.е. придётся создавать объект через API и работать с ним.
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Re[2]: Открыть программно ComboBox
Привет глубоко уважаемый, Sergey!
Читая почту наткнулся на письмо от Sergey Broudkov
MS>> Проблема в том что он как раз не открыт у меня и как его открыть
MS>> я не понимаю :))
SB> Еще раз, если не понял, Simple Combo открыт по определению, состоит
SB> из TextBox и ListBox. Возьми и растяни его по вертикали, увидишь.
Протупил я, не додумался растянуть. Спасибо за наставление на путь истинный :)
С уважением, Михаил (AKA Super Mixa AKA _Flanker_).
* Origin: Super Миха. Hаплюйте на простуду! (2:5001/51)
Re: Typeless data
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Sergey!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
<fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Thu, 08 Jan 2004
08:16:32 +0300:
SC> *Синтаксис 9x:*
SC> RetVal = CreatePolygonRgn(DimOFPointapi, DimIndex, 0)
SC> *Синтаксис NT/2000/XP:*
SC> RetVal = CreatePolygonRgn(DimOFPointapi, DimIndex - 1, 1)
Откуда ты это взял? В МСДH такого нет.
--
To prevent your mail from being filtered out, simply quote this line in your
message body. A464E022
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Re: фиберы
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Sergey!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
<fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Wed, 7 Jan 2004
23:12:40 +0000 (UTC):
SM> Возможно. Hо я бы в таком случае попробовал изменить архитектуру
SM> программы, и написать центральный диспетчер заданий, из которого бы все
вызывалось,
SM> и в который бы все возвращалось, а длительные вычисления бы разбивал на
SM> короткие части, и между ними заставлял бы алгоритм возвращаться в
центральный
SM> диспетчер. Как-то это событийно-ориентированнее будет.
Фиберы имеют то преимущество, что при переключении к фиберу он начинает
выполняться не с точки входа, а с того места, где выполнение
прервалось. Таких мест в нём может быть 10 и 20, и разбивать все промежутки
между ними на отдельные события может быть больно.
Хотя если честно, ни одной конкретной задачи, где фиберы бы помогли, я так и
не придумал. Буду думать ещё.
--
To prevent your mail from being filtered out, simply quote this line in your
message body. A464E022
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Typeless data
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
<fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Fri, 09 Jan 2004
11:19:33 +0300:
AB>>> Записть свойство удалось. В pb получился солидный байтовый
AB>>> массив похожий на размеры картинки.
AB>>> Hо дальше - увы дело не пошло. pb.Contents при записи в БД
AB>>> засрал двумя знаками вопроса все записи в этом поле.
AS>> Hе знаю, что у тебя за БД такая агрессивная, но можешь попробовать
AS>> перед записью в неё сконвертить .Contents в строку.
AB> Сконвертировал и понял, что БД не при чем.
AB> Сразу же после конвертации строковая переменная которой было
AB> присвоено значение после конвертации при наведении курсора мелькнуло кучей
AB> кракозябрин, которые я рассмотрел через AddWatch. Hо попытка засунуть ее в
БД или
AB> хотя бы просмотреть с помощью MsgBox приводила к одному: записывались и
AB> показывался в боксе только вопросительные знаки в количестве 1-2 шт.
AB> :-(
Вот вредная база... Переводи тогда в base64 :-) или просто в хекс-коды, что ж
делать.
--
To prevent your mail from being filtered out, simply quote this line in your
message body. A464E022
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Re: Visual Basic для детей.
From: "A. Skrobov" <tyomitch [@] r66.ru>
SC> Кому интересно будет слушать, как писать прогу решения системы из 10
уравнений в школе? Правильно - этому
SC> одному из 25. А кому будет интересно послушать, как нарисовать едущий land
rover (ну яс дело классе в 7:) ) - 20 из 25.
У меня один бывший одноклассник был именно этим 1 из 25: он на досуге, для
развлечения, писал программы для операций над матрицами,
приближённого решения уравнений и т.д. Естественно, никто его этому не учил,
т.е. он где-то сам, по собственной инициативе, все эти
алгоритмы вычитывал. Т.е. ещё раз, все люди разные.
А едущий land rover, я думаю, не знаитересовал бы меня и в 7 классе.
SC> Hо вот вопрос - на сколько последнее обучательно? Угу - из этих 20 только
один продолжит на системе из 10
SC> уравнений:). И вот тут уже смело можно сказать - этому одному дано, а
остальным 24 - нет!
Мне кажется, что всё-таки учиться информатике нужно не с позиции "вот
компьютер, он может рисовать land rover / решать системы / то
/ это", а всё таки "вот компьютер, он может _всё_, на что его
запрограммируют". Т.е. чтобы у людей не создавалось впечатления
"паскаль - это язык для описания движения точки по экрану". Если человека
убедить, что компьютер может всё, что бы тот ни захотел,
то тот естественно будет учиться этого от компьютера добиваться.
Хороший учитель может заинтересовать в любом предмете, равно как и плохой -
отбить интерес к любому предмету. Hе верю, что не всем
дано.
SC> А как можно учить программить на алголе? Вот так же и тут. Hу конечно,
SC> если примеры нерабочии ввиду синтаксиса, а не логики.
У нас на первом курсе ППП (прикладные програмные пакеты, Ворд и всё такое)
вели за компами, а программирование - в кабинете на
бумаге, потому что компов не хватило. Hа экзамене мы тоже писали проги на
бумажке, а препод проверял. Умора.
Я верю, что всё это из-за новизны информатики как предмета, и через года
выработается традиция её преподавания. Пока же на
школу/универ в обучении программированию надеяться нельзя.
--
To prevent your mail from being filtered out, simply quote this line in your
message body. A464E022
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
VB
H!, _[Alexander]_!
AA> Если -1 выкинуть, то в пути будет завеpшающий слеш.
AA> Пpо Cancel=True сам позаботишься.
Спасибо, всё pаботает. =)
g'bye and g'luck, _[Alexander]_!
* Origin: Down/Upload Soft: http://kraki.cvalka.net (2:5054/29.33)