Visual Basic 6.0 - Копировать в проводника - вставить в лист-боксе

Мы где-то виделись, Максим?










Можно. Hо через API. :) В рантайме эхотага это не реализовано.




Выставь .OLEDropMode в Manual и в событии OLEDragDrop перебирай коллекцию
Data.Files.

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

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




Привет Dmitriy!


1. Hе сочти полным ламером, но объясни пож смысл словосочетания "в рантайме эхотага"
2. Семпла с использованием этих самых апишек нету?


С этим повожусь, пасиба.

--

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



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




Привет Dmitriy!


Кидани прямую ссылку плиз, а то на этом сайте если ищещь что-то конкретное то хрен
найдешь, в отличие от vbnet или vb.kiev

--

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



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




Привет всем!

У меня в программе используется на данный момент более 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)