| Вопрос: буква CD-rom | Добавлено: 02.07.04 18:04 |
Автор вопроса:  Ragnasaur
|
| Ответы | Всего ответов: 28 |
|
Номер ответа: 16 Автор ответа: Ragnasaur Вопросов: 4 Ответов: 6 |
Профиль | | #16 | Добавлено: 04.07.04 11:29 |
| Разобрался. Всем ответивним спасибо. | ||
|
Номер ответа: 17 Автор ответа: dNW Вопросов: 30 Ответов: 683 |
Профиль | | #17 | Добавлено: 04.07.04 18:02 |
| to sne: Дай примерчик по GdiTransparentBlt, а то я как не мучался - возвращается false | ||
|
Номер ответа: 18 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #18 | Добавлено: 04.07.04 23:13 |
вот я пользовал, когда-то в молодости 
Сейчас уже перешел на использование ImageList (Api разумеется 
Или, на худой конец, ручное рисование на виртуальном DC (CreateCompatibleDC)... TranspPicture UserControl.hdc, lx / Screen.TwipsPerPixelX, ly / Screen.TwipsPerPixelY, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, UserControl.MaskColor Public Function TranspPicture(ByVal destHDC As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal destWidth As Long, ByVal destHeight As Long, ByVal srcHDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal srcWidth As Long, ByVal srcHeight As Long, ByVal TransparentColor As Long) As Long TransparentBlt destHDC, XDest, YDest, destWidth, destHeight, srcHDC, XSrc, YSrc, srcWidth, srcHeight, TransparentColor End Function |
||
|
Номер ответа: 19 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #19 | Добавлено: 05.07.04 07:33 |
| Thank | ||
|
Номер ответа: 20 Автор ответа: alexis_b ICQ: 232969505 Вопросов: 10 Ответов: 74 |
Профиль | | #20 | Добавлено: 05.07.04 13:56 |
|
Если ты знаеш имя своей папки то можно просто проверить ее существование на диске:
Set fs = CreateObject "Scripting.FileSystemObject"
If fs.FolderExists(temp_folder) Then здесь открываеш End If |
||
|
Номер ответа: 21 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #21 | Добавлено: 05.07.04 16:18 |
Ох... еще один любитель FSO 
Два способа проверки существования папки/файла: 1. if len(dir("Path" ) then...
2. Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" ( _ ByVal pszPath As String) As Long if PathFileExists("Path" then...
|
||
|
Номер ответа: 22 Автор ответа: alexis_bICQ: 232969505 Вопросов: 10 Ответов: 74 |
Профиль | | #22 | Добавлено: 05.07.04 16:30 |
|
а про проверку существования у файлового объекта есть такой метод
objFSO.FolderExist("путь"
возвращает true если такая папка есть иначе false вот и делаеш как написанно раньше в цикле перебираеш буквы cd-rom и проверяеш если есть такая папка то открываеш ее если нет то идеш дальше
А вот что интересно а куда делся мой предыдущий пост? |
||
|
Номер ответа: 23 Автор ответа: alexis_bICQ: 232969505 Вопросов: 10 Ответов: 74 |
Профиль | | #23 | Добавлено: 05.07.04 16:33 |
| Я не любитель FSO а если ты такой гуру в винАПИ посмотри сюда http://vbnet.ru/forum/show.aspx?id=48092 может у тебя есть идея решения данной проблемы? | ||
|
Номер ответа: 24 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #24 | Добавлено: 05.07.04 18:00 |
|
1. я не гуру, в АПИ. По сему считаю что ими должны интересоваться, прежде всего, простые программеры!
2. Зачем из-за простейшей проблеммы прибегать к FSO !? 3. Ты так жудко сформулировал тот вопрос, что мне даже не хочется "влезать" в это... я прочитал, не понял вообще предмета разговора, и на этом закрыл этот топик... То ли с инсталятором у тя проблеммы, то ли с использованием АПИ... А гдавное каких АПИ, и как ты их использовал... |
||
|
Номер ответа: 25 Автор ответа: alexis_bICQ: 232969505 Вопросов: 10 Ответов: 74 |
Профиль | | #25 | Добавлено: 06.07.04 09:36 |
|
Вопрос сформулирован нормально:
1 проблемма в скомпилированном коде не работают винАпишные функции. 2. при инсталяции инсталятор выдает ошибку номер... Что тут не понятного? |
||
|
Номер ответа: 26 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #26 | Добавлено: 06.07.04 12:44 |
|
дык пользуйся др. инсталятором, причем тут вообще инсталятор?
Напиши свой! |
||
|
Номер ответа: 27 Автор ответа: alexis_bICQ: 232969505 Вопросов: 10 Ответов: 74 |
Профиль | | #27 | Добавлено: 06.07.04 13:19 |
| Мда! Ладно я думаю пора завязывать с оьсуждением данного вопроса т.к. меня либо не хотят понять либо на самом деле не понимают. | ||
|
Номер ответа: 28 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #28 | Добавлено: 06.07.04 13:38 |
|
видимо на самом деле
попробуй прочитать свой вопрос, и подумай с какой стороны его можно понять... |
||