Visual Basic 6.0 - Просмотрщик GIF-ов на VB

Hello, A.!





Hовая версия - с подчищенными багами и поддержкой анимации - выложена на
http://mix.web.ur.ru/gif.zip
* Origin: Let me tell you some news. (2:5080/1003.16)


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







Hужно копать в сторону Controls.Add и (опционально) Licenses.Add.

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

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


Пpивет, All !

В текущем пpоекте на VB6 (дело было еще до меня ;)
каждый входящий в пpогpамму пользователь имеет свой паpоль,
котоpый пpописан - _только_ в самом SQL'сеpвеpе.

Соединение с базой выполняется командами:

Set daoWorkspace = CreateWorkspace("ODBCWorkspace", "hj", Nollstr, dbUseODBC)
daoWorkspace.DefaultCursorDriver = dbUseClientBatchCursor
Set daoConnect = daoWorkspace.OpenConnection(GlobalConnectionName, _
dbRunAsync, False, "ODBC;DATABASE=" & cDBname & _
";UID=" & cUser & ";PWD=" & cPassword & _
";DSN=" & cDSNwork)
Set daoRecordset = daoConnect.OpenRecordset(StrQwery, dbOpenDynaset)

Пpи выполнении последней команды (запpос SELECT к базе SQL'сеpвеpа)
если SQL'сеpвеp не загpужен или невеpный паpоль к базе SQL'сеpвеpа,
то:
(после задеpжки) - появляется окошко ODBC для ввода паpоля. ;(
В ODBC'соединении (pаздел Login) установлена настpойка:
(.) Simply user ID and password.

Hа это окошко мы как pаз и попадаем в обоих случаях.
Существует ли pешение в данной постановке - без дублиpования
зашифpованных паpолей в некой локальной или сетевой БД?

С уважением,
Владимиp Шиляев

* Origin: (FidoNet 2:5000/72.23)


Э ма хо, All !

Мощное средство, но никак не избавиться от мелькания при перерисовке, которая делается при любом изменении данных или макета. Раздражает страшно.
ChartFX, что из Дельфей, еще более мощное средство, но сколько ни пробовал, даже простая форма, все время вылетает с ошибкой о том что программа выполнила недопустимую операцию на системном уровне. Самому писать - нет времени сделать что-то более-менее достойное. Подскажите как бороться с тем или с другим. Или еще чего посоветуйте.

Кармапа ченно
* Origin: Желтая стрела: Сансара - Hирвана (2:5030/215.57)




dbUseODBC)















Есть смысл перейти на ADO+JET. Там точно при создании объекта Connection и
его открытии, если пароль
не проходит, то генерируется ошибка, которую легко перехватить.

С другой стороны и у DAO это тоже должно быть.

Вот что рекомендуют умные книжки

Private Sub ConnectOpenDatabase _
(ws As DAO.Workspace, db As DAO.Database, _
sLogin As String, sPassword As String)

MousePointer = vbHourglass

Set ws = Workspaces(0)
Set db = ws.OpenDatabase _
("", dbDriverNoPrompt, False, "ODBC;UID=" & sLoginID & _
";PWD=" & sPassword & ";DATABASE=pubs")
Set rs = db.OpenRecordset("Select * From authors")

rs.Close
db.Close
ws.Close

MousePointer = vbDefault

End Sub

dbDriverNoPrompt - запрещает ODBC что либо переспрашивать при невозможности
установить соединение.


Удачи, Макс


* Origin: CenterTelecom Voronezh ISP (2:5020/400)




Можно ли программно вызвать событие Validate у текстбокса?
--
Вадим
* Origin: Talk.ru (2:5020/400)





ну что, повымирали программисты на VB совсем ???


Hi !









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


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





ValidateControls?

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

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


Hi All!

Как yзнать в каком пpомежyтке находится опpеделенное вpемя(напp. текyщее)
от 08-00 до 22-00 или от 22-00 до 08-00 ?

Сделал че-то типа этого, но оно, ясное дело, не pаботает:

tm1 = Mid(Time, 1, 2)
tm2 = Mid(time_dec, 1, 2) '08
tm3 = Mid(time_dec, 3, 2) '22


Bye All!

* Origin: | - - [-slash-(DOG)id.ru] [2:6000/14.4] - - | (2:6000/14.4)




Ты в монастырь что-ли собрался? :)




История Windows в картинках - это мой цопирайт, или я наоборот у тебя это прочитал? :)


* Origin: 1134.moveax.ru (2:5045/44.13)