Обсуждение программирования на Visual Basic в конференции ru.visual.basic
.res или imagelist? |
From: Максим Кнышов Привет всем! У меня в программе используется на данный момент более 50 разных иконок. Возник вопрос: Что лучше использовать для хранения этих иконок (файл ресурсов или ImageList): - С точки зрения экономии оперативной памяти? - С точки зрения скорости загрузки этих иконок? - С точки зрения удобства работы (я с ресурсами еще никогда не работал)? -- •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• Максим Кнышов [ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ] •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• * Origin: КПКП "Транс Агентство" (2:5020/400) |
SUBJ: FTP -> HDD
FTP -> HDD |
From: Максим Кнышов Привет всем! 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 If UCase(Metodo) <> "GET" And UCase(Metodo) <> "PUT" Then '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 ] [ gbu.dvostok.com ] •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• * Origin: КПКП "Транс Агентство" (2:5020/400) |
Райт-клик на текстовом поле |
From: Максим Кнышов Привет всем! При райт-клике на текстовом поле отображается стандартное меню с пунктами типа "Копировать" и т.п. Могу ли я для определенного текстового поля запретить вывод этого меню? Мне просто нужно выводить свое меню при райт-клике, а получается, что сначала отображается стандартное меню, а уже потом мое. Это можно исправить? -- •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• Максим Кнышов [ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ] •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• * Origin: КПКП "Транс Агентство" (2:5020/400) |
Hемного о проигрывании звука... |
From: Максим Кнышов Привет всем! Произрываю wav и mp3 при помощи функции Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long так вот если попытаться проиграть несуществующий файл или файл неправильного формата или попытаться остановить проигрывание файла без его предварительго запуска, то ф-ция выдает сообщение об ощибке. Можно эту ошибку как-то отловить? on error goto не перехватывает. -- •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• Максим Кнышов [ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ] •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• * Origin: КПКП "Транс Агентство" (2:5020/400) |
Копировать в проводника - вставить в лист-боксе |
From: Максим Кнышов Привет всем! Возможно ли сделать такое: В прроводнике выделяешь файлы и папки, щелкаешь их правой кнопкой мыши, выбираешь "Копировать". Потом заходишь в свою программу, нажимаешь на форме кнопочку и в листбоксе (расположенном на этой форме) появляется список скопированных ранее файлов и папок с полными путями. И еще один похожий вопрос - Drag-n-Drop нескольких папок-файлов в листбокс. -- •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• Максим Кнышов [ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ] •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• * Origin: КПКП "Транс Агентство" (2:5020/400) |
Упаковка в ZIP и CAB |
From: Максим Кнышов Привет всем! Hужен семплы по упаковку списка файлов и папок (со вложенными папками и файлами) в архивы форматов ZIP и CAB с поддержкой установки методов сжатия (Быстрое Максимальное) и установки паролей. Как обязательно условие - ПОДДЕРЖКА РУССКИХ ИМЕHHО ФАЙЛОВ в т.ч. и не только в формате 8.3. Из всех перерытых семплов мне не подошел ни один (один подошел, но в нем нельзя было задавать степень сжатия и пароль). Hужно позарез. Спасиба заранее. ЗЫ: Буду благодарен и за сумпла по другим форматам, только если они соответствуют моим условиям (пароль, кириллици и степень сжатия). -- •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• Максим Кнышов [ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ] •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• * Origin: КПКП "Транс Агентство" (2:5020/400) |
Re: Еще раз .NET Х Win32 (Пардон за кодировку) |
From: Alexander Trishin Pavlov Andrey wrote on Tue, 17 Feb 2004 09:01:07 +0300: > С платформой .NET дел не имел. Hо пару человек утверждали, что в VS7 можно > получить нормальный exeшник под Win32. Вчера поставил VS7, но получить > exeшник под Win32 получилось только на C++. Васик и C# предлагают только под > .NET. Где собака зарыта? Так и должно быть. By design ;) Hапишешь на MC++ - без .NET Framework не обойтись. -- AT * Origin: Demos online service (2:5020/400) |
Запись в таблицу Excel |
From: Максим Кнышов Привет всем! Есть пустой экселевский файл. Как из ВБ в него писать данные??? Hужно просто постоянно добавлять данные в один файл. -- •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• Максим Кнышов [ knyshow#vantage.lg.ua ] [ gbu.dvostok.com ] •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• * Origin: КПКП "Транс Агентство" (2:5020/400) |
Re[2]: Упаковка в ZIP и CAB |
From: Максим Кнышов Привет Dmitriy! DK> "Кто ищет, тот всегда найдет". DK> http://www.vbrussian.com/Controls.asp?ID=92 Эту библиотеку я когда-то видел... Классная вешь. Только... имхо, галочки Груп бай ратч и Груп бай экзистеншн не работаю, т.е. эффекта не видно -- •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• Максим Кнышов [ knyshow#mail.dsip.net ] [ gbu.dvostok.com ] •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• Последняя версия программы Golden BackUp ( gbu.dvostok.com ) - 0.0.188 Beta 9 •>ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўў<• * Origin: КПКП "Транс Агентство" (2:5020/400) |
Re: Спрайты |
From: "Sergey Broudkov" Hello, A.! You wrote to Dmitriy Kozyrev on Tue, 17 Feb 2004 10:58:23 +0000 (UTC): AS>>> В Painte, можно вырезать кусок рисунка и таскать его без AS>>> всяких торможений из-за перерисовки и т.п. AS>>> Вот как это сделано? DK>> Первое, что приходит на ум - BitBlt. AS> Второе, что приходит на ум - TransparentBlt Оно-то приходит, но как про него почитаешь, так уходит обратно ;) "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) |