Современные решения

для защиты Windows приложений

и восстановления исходного кода

Visual Basic 6.0 - имя процедуры как аргумент....


имя процедуры как аргумент....

From: "Alexander Korolev" <gluck [@] sigaret.net>


Tue Nov 18 2003 08:51, Vitaly Bogomolov wrote to Andrew Matrosov:

VB> * Hi, Andrew!


VB> * писАл Andrew Matrosov к All

VB> * про "имя процедуры как аргумент...."


AM>> Есть ActiveX dll, есть прога которая ее юзает.

AM>> кусок проги:

AM>> ..........

AM>> myActiveXobject.test (progaSub)

AM>> ..........

AM>> public sub progaSub()

AM>> msgbox "ura"

AM>> end sub

AM>> --------------------------------------------

AM>> кусок Дллки:

AM>> ............

AM>> private sub test (tmpprogaSub as ???)

AM>> call tmpprogaSub

AM>> end sub

AM>> ............

AM>> --------------------------------------------


AM>> т.е. нужно из дллки вызвать процедуру проги имя которой передано в

AM>> качестве аргумента... может кто то понял что я хотел спросить? :)


Оформи в программе процедуру как метод какого-либо класса, создай объект этого
класса и передай его твоему ActiveX ByRef.

С уважением, А. Королев

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)

Re: Доступ к файлам

Мы где-то виделись, Michael?

16 Nov 03 02:41:11 в RU.VISUAL.BASIC Michael Zaytsev -> All:


MZ> Товаpищи!


Даже не надейся. ;)

MZ> Подскажите, как из VB получить доступ к файлам в винде? (с помощью

MZ> опеpации click пpи помощи кнопки).


Это смотря что тебе надо с ними делать. Если читать/писать - см. в хелпе
операторы Open, Get, Put, Print, Close (это неполный список). Если
перемещать/копировать/удалять - Name As, FileCopy, Kill.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Помогите плз

Приветствую тебя, _Андрей_ !


Андрей Y и Vitaliy Pryahin сидели дома,пили пиво и болтали на тему _Re: Помогите плз_.


VP>> есть на форме: DBGrid1 и DATA1, к ним подключена БД с колонками

VP>> "Name" и "Telefon"

VP>> как осуществить поиск в колонке "Name" слова


АY> Я бы не мудрствуя сделал SQL запросом. Если же надо искать не из самой

я не работал ни когда с SQL, я не знаю даже что для этого нужно.
АY> БД, а из DBGrid1, то просто перебором и сравнением всех полей "Name".

АY> (for...if...)

наверное так и придется, хотя с SQL это было бы проще и наверняка бытрее.
VP>> и так чтоб он открыл в отдельном

VP>> окне этот DBGrid1, в котором были бы перечислены найденые слова.


АY> Открывается новая форма (или копия той же - что уж Вам удобнее) и в нее

АY> построчно переносятся найденные значения.

это мне пришло в голову,кады я спать ложился :)
VP>> 2. как бы осуществить сортировку в колонке Name?


АY> Если поиск велся посредством SQL, то сортировка может быть задана в

АY> самом тексте SQL запроса. Если же посредствеом VB кода, то любым из

АY> десятков общепринятых алгоритмов сортировки. При этом сортировку (в

АY> зависимости от выбранного алгоритма) можно сделать как в самом цикле

АY> поиска (код короче), так и в виде отдельного цикла (код понятнее).

а вот тут можно пример,плз.

Hе скучай,_Андрей_. С уважением,Виталий.

* Origin: (2:5096/19)

Как?????????

Приветствую тебя, _All_ !


Каким кодом можно узнать запись в первом столбце пятой ячейки в DBGrid1?


Hе скучай,_All_. С уважением,Виталий.

* Origin: (2:5096/19)

Re: размер массива

Привет глубоко уважаемый, Alexander!

Читая почту наткнулся на письмо от Alexander Zatvornitskiy

AZ> как узнать сабж?



=== поскипано ===
Функция UBound
UBound(ArrayName[,Dimension])

Функция служит для определения верхней границы(индекса самого последнего элемента) массива по заданному измерению

Возвращаемое значение
Возвращает значение типа Long,содержащее наибольший возможный верхний индекс для указанного измерения массива

Параметры Элемент Описание
ArrayName Обязательный.Имя переменной массива,соответствующее стандартным соглашениям о наименовании переменных.При задании в качестве аргумента переменной,не являющейся массивом,генерируется ошибка времени исполнения Type mismatch
Dimension Hеобязательный. Значение типа Variant(Long). Целое число,указывающее,для какого из измерений возвращается верхняя граница.Первому измерению соответствует 1,второму - 2 и т. д.Если параметр Dimension опущен,предполагается значение равное 1
=== поскипано ===

С уважением, Михаил (AKA Super Mixa AKA _Flanker_).

* Origin: Главное, чтобы КИHДЕР не стал СЮРПРИЗОМ!!! (2:5001/51)

Re: Помогите плз

From: Андрей Y <andreyz [@] matchem.kth.se>


Vitaliy Pryahin пишет:

>>> 2. как бы осуществить сортировку в колонке Name?


>> Если поиск велся посредством ... посредствеом VB кода, то любым из

>> десятков общепринятых алгоритмов сортировки.

> а вот тут можно пример,плз.


Hу примеров может быть море. Скажем Вы уже вывели свои данные в новую
форму на MSFlexGrid Control с именем в колонке 0 и телефоном в колонке
1. Тогда сортировку можно вести в самой MSFlexGrid (медленно, но
наглядно). Hу и, если уж решили использовать что попроще - сортировка
методом попарных перестановок (тоже медленно в большинстве случаев):

With MSFlexGrid
Do
Flag = False
For i% = 0 To .Rows - 2
If .TextMatrix(i%, 0) > .TextMatrix(i% + 1, 0) Then

A$ = .TextMatrix(i%, 0)
.TextMatrix(i%, 0) = .TextMatrix(i% + 1, 0)
.TextMatrix(i% + 1, 0) = A$
A$ = .TextMatrix(i%, 1)
.TextMatrix(i%, 1) = .TextMatrix(i% + 1, 1)
.TextMatrix(i% + 1, 1) = A$
Flag = True
End If
Next i%
Loop While Flag
End With

--
Объяснение принципов помогает думать. Примеры учат обезьянничать.
Если надумаете е-мылить - лучше andreyz2000#hotmail com

* Origin: Talk.ru (2:5020/400)

Вопрос ?

From: "Mihail Borisov" <skull [@] amur.ru>


Hi All,

Кто ни будь может объяснить почему при передачи текста (String) через
Winsock размер его возрастает? Перед передачей текста например 30 441 символ
подсчитываю функцией Len, получаю 33 326 или еще больше когда как, почему
так?

Bye All Мыло: mihailborisov(ДОГ)hotmail(ТЧК)ru

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)

[*] Re: Декомпилятоp

Мы где-то виделись, Andrey?

19 Nov 03 09:18:58 в RU.VISUAL.BASIC Andrey Kolomoyets -> All:


AK> Существует ли декомпилятоp к VB6?


"Hет". (c) реклама. И вообще, "звезду Суворову Александру Васильевичу" (с)
реклама. В соответствии со статьей N 13 оффтопик-листа. "Понятно?" (с)
реклама.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: Вопрос ?

From: Alexander Trishin <trialFORSPAM [@] trishin.com>


Mihail Borisov wrote on Thu, 20 Nov 2003 12:40:35 +0000 (UTC):

> Кто ни будь может объяснить почему при передачи текста (String) через

> Winsock размер его возрастает? Перед передачей текста например 30 441 символ

> подсчитываю функцией Len, получаю 33 326 или еще больше когда как, почему

> так?


Потому что руки.

--
AT
* Origin: Demos online service (2:5020/400)

Re: размер массива

Здоровья тебе, #/Alexander/#.
XC: #RU.VISUAL.BASIC, #CC.MY.ECHOMAIL

16 Hоя 03, в 07:56, *Alexander Zatvornitskiy* писал я к _All_:


AZ> как узнать сабж?


imho: size = UBound(array)-LBound(array)


Удачи, #*/Дмитрий/*#.
[SPBGPU 3083/1]
* Origin: It's all gone. What is left behind on the desert we (2:5030/1450.6)