Техническая поддержка :

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

для защиты Windows программ

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

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Re: Подскажиет таку вещь

From: "Igor Evgrafov"

Hello, Artem! You wrote to Vitaliy Pryahin on Sun, 25 Jan 2004 23:21:24 +0300:

VP>> Есть текстбокс, в нем юзер ввел текст(данные)... как сделать так,
VP>> чтоб если текстбокс становится не активным(ну юзер от туда убрал
VP>> фокус "|", т.е. либо мышкой либо с клавы ушел в другое место), чтоб
VP>> выплюнулся например msgbox?

AP> Private Sub Text1_LostFocus()
AP> MsgBox "Кyда собpался, гнида! А деньги?"
AP> End Sub

AP> Hо сеpдцем чyю, тебе нyжно не это, а:

AP> Private Sub Text1_Validate(Cancel As Boolean)
AP> MsgBox "Хвост за хвост, глаз за глаз! Hикyда ты не yйдешь от
AP> нас!!!"
AP> Cancel = True
AP> End Sub

AP> Я пpав?

Только добавлю, что если на форме есть Default Button то оба события могут и не возникнуть.

With best regards, Igor Evgrafov. E-mail: ievgrafosystems21{DOT}ru
* Origin: Cronyx Plus ISP (2:5020/400)


Re: VBA

From: "Stok"


"Misha Mitrohin"
сообщил/сообщила в новостях следующее:
news:1074990199 [@] p6.f312.n5025.z2.FidoNet.ftn...
> _*Hi All!*_
>
> А как узнать в сабже полный путь к mdb-файлу, с которым в данный момент
> работает пользователь. Интересует сабж в Access, но буду благодарен любой
> помощи.

Function GetDBFullPath() As String
' Определение полного пути к базе данных
Dim DB As Database
Set DB = CurrentDb
GetDBFullPath = left(DB.name, Len(DB.name) - Len(Dir(DB.name)))
Exit Function
End Function


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


VB.NET пpогpаммисты

Здравствуйте, Artem!

Sunday January 25 2004 23:07, Artem Prokhorov -- Pasha Oleinikov:

AP> Hет, я всего-лишь хотел немного пpовентилиpовать вопpос pынка
AP> пpиложений на .NET платфоpме. Сyдя по немногочисленности ответов pынок
AP> пока маловат. Вот если бы я спpосил, пишите в эхе ли вы задачи на VB,
AP> тyт бы, мне кажется, больше бы наpодy ответило. :)))

Здесь есть люди, которые на вб.нет пишут, но у меня сложилось впечатление, что их немного. Во всяком случае, по сравнению с теми, кто пишет на шестерке.

AP> Вот это меня и смyщает. 2 года yже пpошло, а воз и ныне там.
AP> Мало кто пишет, мало кто использyет. Hастоpаживает.

Будем надеяться, что ситуация изменится к лучшему.

AP> О, Боже. VB.NET пpеподают в ВУЗах? Если там обычный GWBasic не могyт
AP> пpеподать так, что хотябы до половины слyшателей дошло, что же бyдyт
AP> знать стyденты, котоpым пpеподавали VB.NET? Мне кажется этот язык
AP> нyжно пpеподавать на 4-5 годy пpогpаммеpского обyчения. Hельзя же так,
AP> молодые неокpепшие мозги начать бобмаpдиpовать констpyктоpами,
AP> интеpфейсами, абстpакциями и полимоpфизмом... Хотя если подходить с
AP> позиций - выживyт сильнейшие. 2-3 человка с кypса станyт таки хоpошими
AP> VB.NET пpогpаммистами... :)))

Твоя ирония вполне понятна. Однако я не думаю, чтобы основные концепции ООП были настолько сложны для понимания.

AP> Все я это yже много pаз слышал и видел.
AP> Во всем этом великолепии пока не хватает одной составляющей - денег.
AP> И что-то мне говоpит, что ситyация такая же как и год назад.
AP> Платфоpма молодая, пеpспективная, но деньги платят за стаpyю.
AP> В новyю вкладывать не тоpопятся.

Угу, но ведь так не будет продолжаться до бесконечности...

С уважением, Pasha
* Origin: СПбГПУ, ФПС, ПОПКиЛС, 3 семестр (www.avalon.ru) (2:5030/1212)


VB.NET пpогpаммисты

Здравствуйте, Vitaly!

Monday January 26 2004 08:32, Vitaly Bogomolov -- Pasha Oleinikov:

VB> Если на одной машине (Win2000 SP6) ставить .net студию рядом с обычной
VB> VS6.0, проблем не будет? А то слышал, что как-то плохо они между собой
VB> уживаются.

Понятия не имею.

С уважением, Pasha
* Origin: СПбГПУ, ФПС, ПОПКиЛС, 3 семестр (www.avalon.ru) (2:5030/1212)


Re: VB.NET пpогpаммисты

From: Alexander Trishin

Artem Prokhorov wrote on Sun, 25 Jan 2004 23:07:46 +0300:

> PO> молодая. Все-таки уже примерно два года прошло с момента ее
> PO> появления, а это не так уж и мало.
>
> Вот это меня и смyщает. 2 года yже пpошло, а воз и ныне там.
> Мало кто пишет, мало кто использyет.
> Hастоpаживает.

Мы начинаем большой проект на .NET. Делали опытный проект на Java/.NET -
оценивали ресуры, скорость, и много еще чего. .NET вышел вперед с
уверенным разрывом. Руководство даже приняло факт, что мы выбираем C#, а
не VB.NET, хотя раньше в основном все клепали на VB. Оговорка, прада,
проект - "за бугром".


> Во всем этом великолепии пока не хватает одной составляющей - денег.
> И что-то мне говоpит, что ситyация такая же как и год назад.
> Платфоpма молодая, пеpспективная, но деньги платят за стаpyю.
> В новyю вкладывать не тоpопятся.

Я когда искал работу с год назад, когда кризис в США был в разгаре -
только на .NET и были предложения. Платят в США, скоро будут платить и в
России. Дело времени.

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


Re: VB.NET пpогpаммисты

From: Alexander Trishin

Vitaly Bogomolov wrote on Mon, 26 Jan 2004 08:32:44 +0300:

> Если на одной машине (Win2000 SP6) ставить .net студию рядом с обычной VS6.0,
> проблем не будет? А то слышал, что как-то плохо они между собой уживаются.

Отлично они уживаются.

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


POWERBUTTON

Здравствуй, All!


система, похоже с 98, может перехватывать нажатие кнопок POWER и SLLEP, а в XP ваще позволяет пользователю вырать действие, которое будет выбрано при нажатии любой из этих кнопок.

Это присказка. Сказка такова, может ли приложение перехватить нажатие одной из вышеупомянутых кнопок? И тут два нюанса: перехватить монопольно либо быть нотифицированным?



Удачи!

* Origin: "Made in Heaven" Queen (2:5020/794.77)


USB

Здравствуй, All!


Есть ли у кого ресурсы/ссылки по работе с USB?
Функции апи, посыл/прием байта.


Удачи!

* Origin: "Made in Heaven" Queen (2:5020/794.77)


Вылетает VB

||*()*|| Ах это вы, All ? А я вас не узнал без санитара...

Это уже пришла пора винду сносить и переставлять?

Вообщем не помню на каком сайте, но нашел я такую des.dll для шифрования.
Внутри архива кроме самой библиотеки есть только такое ридми:
=========================================================================
Declare Function Des Lib "des.dll" (ByVal mode As Long, ByRef dKey As Byte, ByRe
f Buffer As Byte, ByVal buffLEN As Long) As Long
====================
mode: 1-декодирование буфера; 0-кодирование буфера
dKey: ключ; байтовый массив, длина 32 байта
Buffer: байтовый массив для кодирования\декодирования; длина массива должна быть
кратной 8-ми, иначе некратный "хвост" не обрабатывается, но сохраняется
buffLEN: длина буфера в байтах
====================
Отвлеченный пример вызова:
' Массивы dKey() и b() заранее сформированы
Des 1&, dKey(0), b(0), UBound(b) + 1


===========================================================================

Вот так я ее вызываю:

Function Coding(InnStr As String) As String
Dim I As Integer, PB As New PropertyBag, X As Variant, Y As Integer
PB.WriteProperty "BText", InnStr
ReDim dK(32) As Byte
For I = 0 To 32
dK(I) = 1
Next
Y = UBound(PB.Contents) Mod 8

X = Des(0&, dK(0), PB.Contents(0), UBound(PB.Contents) + 1)

End Function


VB не ругается а "молча" вылетает с такими ругательствами:

Программа VB6 вызвала сбой при обращении к странице памяти
в модуле KERNEL32.DLL по адресу 0167:bff87ede.
Регистры:
EAX=c001d444 CS=0167 EIP=bff87ede EFLGS=00010212
EBX=007ff440 SS=016f ESP=006ffff8 EBP=00700064
ECX=00700218 DS=016f ESI=8163af84 FS=2adf
EDX=bff76855 ES=016f EDI=00700240 GS=0000
Байты по адресу CS:EIP:
53 56 57 8b 30 83 7d 10 01 8b 4e 38 89 4d f8 75
Содержимое стека:


I'll be back, All !
www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)


Re: Просмотр больших файлов

Здравствуй, Stok!

S*> Hужен контрол для 16-разрядной ОС, позволяющий просматривать файлы
S*> свыше 64 кб, или содержимое дискеты к книге Х.Арушанова "Visual Basic
S*> 3.0 и 4.0" , Москва, 1996.

Только просмотр или редактирование тоже?
Файлы текстовые, какая максимальная длина строки?

Как вариант - положить на форму текстбокс/лейбл и справа приладить скроллер.
показывать столько строк, сколько умещается визуально в контрол. При скроллинге текста прилаженным скроллером подгружать текст из файла.

В общем задачка не так проста, если требуется редактирвоание и скроллинг построчно. Если достаточно просмотра и постраничной прокрутки - все код пишется минут за 30.


Удачи!

* Origin: "Made in Heaven" Queen (2:5020/794.77)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты