Visual Basic 6.0 - Подскажиет таку вещь
Re: Подскажиет таку вещь
From: "Igor Evgrafov" <fornews [@] systems21.ru>
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: ievgrafo<AT>systems21{DOT}ru
* Origin: Cronyx Plus ISP (2:5020/400)
Re: VBA
From: "Stok" <stok1 [@] tolcom.ru>
"Misha Mitrohin" <Misha.Mitrohin [@] p6.f312.n5025.z2.fidonet.org>
сообщил/сообщила в новостях следующее:
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 семестр (http://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 семестр (http://www.avalon.ru) (2:5030/1212)
Re: VB.NET пpогpаммисты
From: Alexander Trishin <trialFORSPAM [@] trishin.com>
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 <trialFORSPAM [@] trishin.com>
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 !
http://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)