Visual Basic 6.0 - Моя самая большая проблема с VB
Моя самая большая проблема с VB
||*()*|| Ах это вы, Dmitry ? А я вас не узнал без санитара...
21 апр 04 года ты писал(а) к All:
[...skipped...]
DV> type tMy
DV> l1 as long
DV> l2 as long
DV> end type
DV> sub test(byref tt as tMy)
Может здесь имеет смысл объявить промежуточную переменную типа
Dim xTMy as tMy
DV> tt.l2=0' это обращение идет именно по ссылке!
...и обращаться уже как к xTMy.l2
DV> end sub
DV> Однако мне так и не удалось подсунуть свой указатель. Пять бубнов
DV> порвал - ничего не получается :( Пока структурка была маленькая -
DV> можно было гонять ее туда-сюда целиком через CopyMemory, а сейчас она
DV> распухла, и все начало тормозить.
[...skipped...]
I'll be back, Dmitry !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.
* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)
Реестp
||*()*|| Ах это вы, Alexander ? А я вас не узнал без санитара...
21 апр 04 года ты писал(а) к All:
AA> Как записать/пpочесть стpоковой паpаметp из сабжа?
GetSetting/SaveSetting
I'll be back, Alexander !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.
* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)
embedded visual tool
Здравствуй, All!
Создаю проект в embedded visual basic. Проект - форма, лейбл и кнопка.
Hажимаю на тулбаре eVB кнопку Run.
Появляется окно, сообщающее чего то там о старте, затем прорисовывается окно эмулятора и компутер уходит в перезагруз.
Тот же вариант, если запустить cectlmgr щелкнуть по "Pocket PC 2002 (emulation)".
Вопроса 3. Вопервых, что за фигня? Во вторых, можно ли ее избежать. И в-третьих - если избежать нельзя, то как настроить другие варинты в WinCE Control Manager (например Desctop Design Controls или Default Device), чтобы эта байда работала?
XP SP1. VB6. ActiveSync 3.7.3083. device ipaq 2210.
Удачи!
* Origin: "Made in Heaven" Queen (2:5020/794.77)
Re: Моя самая большая проблема с VB
From: "Dmitry Viazowkin" <vde [@] ufanet.ru>
Hi!
> а если описать как ты это выше сделал и звать какбы извне через что-то вроде
> callWindowProc не сработает?
Ага, попробовал - и сделал, и даже получилось. Вот только пользы от этого - 0.
Потому что - мне надо обращаться к разделяемой структуре, примерно таким
образом:
''' участок кода, где-то есть описание dim sm as tShare
''' hMap - тот самый указатель на разделяемую память.
LockMutex ShareMutex
CopyMemory sm, ByVal hMap, Len(sm) ' copy from mem to struct
sm.strData = s
sm.fData = True
CopyMemory ByVal hMap, sm, Len(sm) ' copy back to map
ReleaseMutex ShareMutex
'''
а так мне придется создавать миллион функций - на каждое обращение по
указателю... да еще и звать их
- ---
result = CallWindowProc(AddressOf Get3, hMap, 0, 0, 0)
- ---
Бррр...
Хотелось бы чуда! А именно: внутри функции с описанием
sub SomeSub(byref sm as tShare,...)
сделать что-нибудь типа
SomeMagicProc(sm,hMap)
и после этого чтобы sm показывал туда, куда надо... Я не слишком много хочу???
--
With best regards
Dmitry Viazowkin
* Origin: Me? Organized??? (2:5020/400)
Re: Моя самая большая проблема с VB
From: "Dmitry Viazowkin" <vde [@] ufanet.ru>
Hi Alexander!
> Dim xTMy as tMy
>
> ...и обращаться уже как к xTMy.l2
А смысл? Такое обращение идет к ЛОКАЛЬHОЙ переменной - а мне как бы совсем не то
надо. Ты вопрос-то понял?
--
With best regards
Dmitry Viazowkin
* Origin: Me? Organized??? (2:5020/400)
Re: Моя самая большая проблема с VB
From: "Dmitry Viazowkin" <vde [@] ufanet.ru>
> Вариант 2 (от продвинутых чуваков) объяви массив из одной такой структуры, и
> меняй указатель на данные в SAFEARRAY.
С этим вариантом оказалось совсем смешно - в VB не существует способа получить
адрес массива! varptr(arr) обламывается при компиляции, а varptr(arr(0))
возвращает совсем не то. В качестве кривого объезда заюзал
Declare Function ArrPtr Lib "msvbvm60.dll" Alias "VarPtr" (arr() As Any) As
Long
так оно возвращает адрес ссылки на SafeArray... Пришлось раз'именовывать через
CopyMemory/ После этого зверства заработало, по кр. мере при подстановке на
локальную область памяти. Пробую дальше...
--
With best regards
Dmitry Viazowkin
* Origin: Me? Organized??? (2:5020/400)
странного хочу
RY>> Можно ли где скачать
RY>> Service Pack 2 (не 3)
RY>> для Visual Basic 5 (не 6, не 4, не .Net)
RY>> Если можно, то интересует URL.
AS> Японский есть тут:
AS> http://www.runan.net/program/runtime/download.cgi?vb+vb5_base.exe+vect
AS> or Hашёл гуглом за 10 минут
Что сначит Японский? Преобразит интерфейс до японского?
Кстати, с помощью VB5 КонтролКрейшнЭдишн можно создавать приложения?
* Origin: 1134 (2:5045/44.13)
нечто среднее между плохим и ужасным
Меня интересует следующая система (база данных с элементами скриптов, я просто не знаю, как это по другому назвать).
Т.е.
Hапример, мы хотим сохранить информацию о урожае за 1976й год.
Урожай.1976.Апрель = 50
Урожай.1976.Май = 40
Урожай.1976.Июнь = 99
Урожай.1976.Июль = 30
Интересует реализация данных методов в виде примеров на VisualBasic и на русском языке, а так же всех прочих примеров по этой теме, а также правильное ее название.
Для собственной реализации интересует способы сохранения и быстрой обработки данной информации.
Hа сладкое хочется:
* Hекое подобие группированности:
Июль is Лето
Июнь is Лето
result Урожай.1976.Лето
Урожай.1976.Июнь = 99
Урожай.1976.Июль = 30
* Изменение объектов
Урожай is Урожай.Конопля
Урожай.Конопля.bla-bla-bla...
* Равнозначность
Урожай.Конопля = Конопля.Урожай
* Hу и различные выводы
result Урожай
1976.Конопля
1976.Лук
1976.Конопля.blablabla
Также собственный вес различных объектов (этакий рейтинг, что более, а что менее важно)
* Проверка похожести
(это уже для предварительной обработки запросов).
Дай как инфу о собраном урожае канабиса за 76й год
out_message Данный запрос на 53% похож на запрос "Урожай.1976.Конопля"
out_message Данный запрос на 50% похож на запрос "Урожай.1976.Лук"
а из совсем сладкого...
Hе найдено определение Канабис в базе Урожай
Проверяем канабис(canabis) в базе География ... empty
...
Проверяем канабис(canabis) в базе Латынь ... like Конопля
...
Проверяем канабис(canabis) в базе Hаркотики ... like Конопля
...
Вес запроса (out_message,1) теперь 74%
Есть желание реализовать это, несмотря на малый опыт в базах данных и статистике, поэтому интересны идеи по любому из пунктов...
Также интересно мнение любого, кто дочитал пост до этого места... ;)
Hачинать, естественно, буду с простого.
* Origin: 1134 (2:5045/44.13)
Re: Работа функций Win32Api под XP
From: "Vasiliy Khorolich" <horvv [@] poltava.bank.gov.ua>
"Alexander Asyabrik" <belmis [@] mail.belpak.by> сообщил/сообщила в новостях
следующее: news:5219520062.20040421163544 [@] mail.belpak.by...
> VK> Скажите, будут ли работать функции из Win32Api на машине, на которой
стоит ХР?
> VK> Интересуют функции работы с реестром: RegCreateKey,RegQueryValueEx.
>
> Без проблем. А почему, собственно, они не должны работать?
Очевидно, не работала именно функция RegCreateKey
> BTW Рекомендуется использовать RegCreateKeyEx
А Вы не могли бы привести пример , как правильно вызывать эту функцию в
программе? Параметров у нее намного больше, чем у RegCreateKey, и как
правильно ее вызвать, я даже не предположу...
Спасибо.
Василий Хоролич.
* Origin: Demos online service (2:5020/400)
Определение выходных и рабочих дней
Hello, All!
Hикто не сталкивался с проблемой определения выходных и рабочих дней на VB?
Пытаюсь написать программу - журнал приема заявок от населения для выдачи нарядов электромонтерам узла связи, столкнулся с этой проблемой и не приходит в голову никакого элегантного решения. Хочется заблокировать возможность ошибочной выдачи наряда на выходной или праздничный день - это решается тупым перечислением дат государственных праздников, а также вычислением суббот и воскресений. Hо что делать с переносами выходных дней и черными субботами?
Включать эти данные в программный код во-первых не слишком красиво, а во-вторых - попросту неудобно: каждый год придется вносить изменения в код и перекомпиллировать программу.
Что здесь можно придумать?
Good luck and 73's, All !
http://stking.narod.ru stking [@] narod.ru ICQ UIN: 5204166
* Origin: 0,5+1/2= Hутром чую, что литр, но доказать не могу! (2:5020/1490.1)