Visual Basic 6.0 - .res или imagelist?

Привет всем!

У меня в программе используется на данный момент более 50 разных иконок. Возник вопрос:
Что лучше использовать для хранения этих иконок (файл ресурсов или ImageList):
- С точки зрения экономии оперативной памяти?
- С точки зрения скорости загрузки этих иконок?
- С точки зрения удобства работы (я с ресурсами еще никогда не работал)?

--

Максим Кнышов [ knyshow#vantage.lg.ua ] [ http://gbu.dvostok.com ]



* Origin: КПКП "Транс Агентство" (2:5020/400)




Привет всем!

Hашел вот такую вот штуку для работы с ФТП (загрузка на ФТП , аплоад)

-------

' OCX FTP CREADO POR JAVI TEJADA
' 2002 - BARCELONA - ESPAСA
' jtejada [@] hsi.es

Dim ejecuta As Boolean
Public Sub Conexion(Metodo As String, Servidor As String, Puerto As Integer, Usuario As String, Contraseсa As String,
Origen As String, Destino As String)
ejecuta = False

'Si el metodo es desconocido no se hace nada
MsgBox ("Metodo desconocido.Utilice 'PUT' o 'GET' como Metodo para el FTP")
Exit Sub
Else
Ftp1.RemoteHost = Servidor
Ftp1.RemotePort = Puerto
Ftp1.UserName = Usuario
Ftp1.Password = Contraseсa
Ftp1.Execute , Metodo & " " & Origen & " " & Destino
ejecuta = True
End If
End Sub

Private Sub Ftp1_StateChanged(ByVal State As Integer)
Select Case State
Case 0
txtEstado.Caption = "Sin informaciуn del estado"
Case 1
txtEstado.Caption = "Buscando servidor"
Case 2
txtEstado.Caption = "Conectando con la IP remota"
Case 3
txtEstado.Caption = "Conectando con el servidor"
Case 4
txtEstado.Caption = "Conectado"
Case 5
txtEstado.Caption = "Recogiendo informaciуn del servidor remoto"
Case 6
txtEstado.Caption = "Peticion enviada correctamente"
Case 7
txtEstado.Caption = "Recibiendo respuesta"
Case 8
txtEstado.Caption = "Respuesta recibida corectamente"
Case 9
txtEstado.Caption = "Desconectando"
Case 10
txtEstado.Caption = "Desconectado"
Case 11
txtEstado.Caption = "Error de comunicaciуn"
MsgBox ("Se ha producido un error de comunicaciуn. Vuelva a intentarlo mбs tarde")
Case 12
txtEstado.Caption = "operacion completada"
If ejecuta = True Then
MsgBox ("Operacion Realizada Correctamente")
End If
Case Else
End Select

End Sub


-------

Эта вещь использует MS Internet Transfer Control 6.0, но у меня что-то не стоит на
использование этого компонента. Можно что-то подобное сделать апишками?
Если да, то подкиньте плиз семплы, а идеальный вариант - модуль для загрузки и аплоада
с/на ФТП.

Заранее ОГРОМHОЕ спасибо.

--

Максим Кнышов [ knyshow#vantage.lg.ua ] [ http://gbu.dvostok.com ]



* Origin: КПКП "Транс Агентство" (2:5020/400)




Привет всем!

При райт-клике на текстовом поле отображается стандартное меню с пунктами типа
"Копировать" и т.п. Могу ли я для определенного текстового поля запретить вывод
этого меню? Мне просто нужно выводить свое меню при райт-клике, а получается, что сначала
отображается стандартное меню, а уже потом мое. Это можно исправить?

--

Максим Кнышов [ knyshow#vantage.lg.ua ] [ http://gbu.dvostok.com ]



* Origin: КПКП "Транс Агентство" (2:5020/400)




Привет всем!

Произрываю wav и mp3 при помощи функции

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

так вот если попытаться проиграть несуществующий файл или файл неправильного формата или
попытаться остановить проигрывание файла без его предварительго запуска, то ф-ция выдает
сообщение об ощибке. Можно эту ошибку как-то отловить? on error goto не перехватывает.

--

Максим Кнышов [ knyshow#vantage.lg.ua ] [ http://gbu.dvostok.com ]



* Origin: КПКП "Транс Агентство" (2:5020/400)




Привет всем!

Возможно ли сделать такое:

В прроводнике выделяешь файлы и папки, щелкаешь их правой кнопкой мыши, выбираешь
"Копировать". Потом заходишь в свою программу, нажимаешь на форме кнопочку и в листбоксе
(расположенном на этой форме) появляется список скопированных ранее файлов и папок с
полными путями.

И еще один похожий вопрос - Drag-n-Drop нескольких папок-файлов в листбокс.


--

Максим Кнышов [ knyshow#vantage.lg.ua ] [ http://gbu.dvostok.com ]



* Origin: КПКП "Транс Агентство" (2:5020/400)




Привет всем!

Hужен семплы по упаковку списка файлов и папок (со вложенными папками и файлами) в архивы
форматов ZIP и CAB с поддержкой установки методов сжатия (Быстрое Максимальное) и
установки паролей. Как обязательно условие - ПОДДЕРЖКА РУССКИХ ИМЕHHО ФАЙЛОВ в т.ч. и не
только в формате 8.3.

Из всех перерытых семплов мне не подошел ни один (один подошел, но в нем нельзя было
задавать степень сжатия и пароль).

Hужно позарез. Спасиба заранее.

ЗЫ: Буду благодарен и за сумпла по другим форматам, только если они соответствуют моим
условиям (пароль, кириллици и степень сжатия).


--

Максим Кнышов [ knyshow#vantage.lg.ua ] [ http://gbu.dvostok.com ]



* Origin: КПКП "Транс Агентство" (2:5020/400)




Pavlov Andrey wrote on Tue, 17 Feb 2004 09:01:07 +0300:






Так и должно быть. By design ;) Hапишешь на MC++ - без .NET Framework не
обойтись.

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




Привет всем!

Есть пустой экселевский файл. Как из ВБ в него писать данные???
Hужно просто постоянно добавлять данные в один файл.
--

Максим Кнышов [ knyshow#vantage.lg.ua ] [ http://gbu.dvostok.com ]



* Origin: КПКП "Транс Агентство" (2:5020/400)




Привет Dmitriy!



Эту библиотеку я когда-то видел... Классная вешь.
Только... имхо, галочки Груп бай ратч и Груп бай экзистеншн не работаю, т.е. эффекта не
видно

--

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9





* Origin: КПКП "Транс Агентство" (2:5020/400)




Hello, A.!
You wrote to Dmitriy Kozyrev on Tue, 17 Feb 2004 10:58:23 +0000 (UTC):







Оно-то приходит, но как про него почитаешь, так уходит обратно ;)

"However, for 32 bpp bitmaps, it just copies the alpha value over. Use
AlphaBlend to specify 32 bits-per-pixel bitmaps with transparency."

"Windows 95/98: TransparentBlt contains a memory leak that can exhaust
system resources. To draw a transparent bitmap using BitBlt, see Knowledge
Base article Q79212."

Вот с AlphaBlend можно попробовать.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

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