» Visual Basic 6

Уважаемые знатоки, подскажите, как в ListView добавить новый элемент картинку книги, например, нажал кнопку "добавить книгу" и открывается стандартное меню открытия файлов нашел нужную книгу и она добавилась в ListView в виде картинки. А при нажатии на эту картинку нужно чтоб книга открывалась другой *.exe программой (читалкой).
Очень надо помогите, кто чем сможете, просто скапилось большая библиотека книг пробовал разные программы но меня они не устроили. Сам я не программист, поэтому если можно то ответ поподробней. Заранее спасибо !!!!!!!!!!

Vanya8
Свойство MultiLine textbox'а во время выполнения программы доступно только для чтения. Во время создания его можно изменить в окне Properties Window: меню View/Properties Window или F4.

Joseph007
Что то не соображу как с запуском IE посредством Shell без указания пути можно обойтись. Попробуй через API:
Код: ' объявления
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

' код
ShellExecute 0, "open", "www.google.com", "", "iexplore", SW_SHOWNORMAL

Joseph007
Путь на iexplore.exe можно получить из регистров
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications\iexplore.exe\shell\open\command

Добавлено:
maod111
Если не програмист и не стоит задача обучения, то лучше и не начинать. Такая задача не решается 2-3-я строчками. Поищи готовый каталогизатор. Их масса и наверняка есть(кажется даже видел когда-то) отвечающий твоим условиям. Вот посмотри Каталогизаторы Дисков . Если там еще нет подходящего, то там же и спроси.
Поиск по форуму
BookSeer
Book Collector
Movie Collector
Data@CD
WhereIsIt

Ребята, помогите разобраться плиз.

Как вставить Flash анимацию с расширением swf
в visual basic?
пробывал через components/flash documents,заливаю на форму, выдает ошибку.

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

ЛЮДИ!!!! НАДО СРОЧНО!!!! как вывести из DataGrid отчет на печать и еще можно ли подганять размер столбцов по тексту автоматически. Ну и на последок можно ли путь к базе прописать с помощью APP.PATH пробовал че то не получается

mistx
Ты же открывал тему о флеше. Я тебе там пример выкладывал.
http://forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=6941#1

как с помощью VB добавит рег файл в регистр? точнее не файл а содержание файла который должно быт в самом теле программы на VB

допустим надо добавит следующее:

--------------------------------------------------------
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\adpu160m]
"ErrorControl"=dword:00000001
"Group"="SCSI miniport"
"Start"=dword:00000004
"Tag"=dword:0000003c
"Type"=dword:00000001
--------------------------------------------------------

Заранее благодарю

sauno
Какой VB? Если до .Net, то в HKEY_LOCAL_MACHINE штатными функциями работы с регистрами не добавить. Я когда-то воспользовался _http://www.vbaccelerator.com/home/VB/Code/Libraries/Registry_and_Ini_Files/Complete_Registry_Control/article.asp

dneprcomp
да. очень благодарен за пример.

Как передать координаты по щелчку мыши из Adobe Photoshop например в Excel.

Varroa
А причем тут VB?
По существу:
1. Через Win API
2. Через Adobe SDK(вероятно)
3.Через Adobe скриптовый язык(если существует и если позволит сделать)

dneprcomp
А можно по точнее или ссылку дать, где об этом написано.

Varroa

Цитата:

А можно по точнее или ссылку дать

Точнее не получается. Ты же програмист. С какой точностью спрашиваешь, с такой и получаешь ответ. Не большей
Задача не описана, что сделать пытаешься не понятно. И на вопрос о VB ответа нет. Может тебе вообще в другой раздел надо обращаться.

Народ, подскажите простую вещь (VB6):
Как сконвертить Long в Integer?
Понимаю, что просто, но додуматься не получается.
В Long записано число 65535. После конвертации в Integer должно получиться -1. Но как сконвертировать я не догоняю. Ни через CInt, ни через переменную Variant не получается. Подскажите тормозу.

ItsJustMe

Код:
Public Function myCInt(ByVal Value As Long) As Integer
If (Value < -32768) Or (Value > 32767) Then
myCInt = -1
Else
myCInt = CInt(Value)
End If
End Function

Значит, не очень просто. Я думал, способ есть
AndVGri, твой способ не подходит и вот почему. Нужно 2 последних байта переменной Long записать в переменную Integer (так, как это делает C). Число 32768 должно конвертиться в -32768, 32769 -> -32767 and so on. А у тебя все -1 выходит
Ладно, будем память копировать....

ItsJustMe

Цитата:

Число 32768 должно конвертиться в -32768, 32769 -> -32767 and so on. А у тебя все -1 выходит

А так разве нельзя?

Код:
If Value > 32768 And Value < 65535 Then
myCInt = Value - 65536
ElseIf Value >= 65535 Then
myCInt = -1
End If

Мысль та же. Правда, в таком случае, ее следует развить и рассмотреть ситуацию, когда Value > 65536. Ты решил ее не рассматривать и просто возвращать -1. Но посмотри, 589830, к примеру, должно стать 6. Как тут быть? И что делать, к примеру, с числом -129000? Как ты его сконвертишь?
PS: На данный момент я не знаю другого решения, кроме копирования памяти. А оно вообще есть, это другое решение?

ItsJustMe
Собственно, ты не объяснил толком, какая задача должна решаться. Поэтому и ответы соответственные.
Тебе надо, чтобы любое число диапазона типа Long укладывалось в диапазон типа Integer? Или что-то еще?

Добавлено:
Если просто нужно попадание в диапазон %:
myCInt = Value Mod 32768

Цитата:

Собственно, ты не объяснил толком, какая задача должна решаться.

Цитата:

Нужно 2 последних байта переменной Long записать в переменную Integer (так, как это делает C).

Как выразиться по-другому я не знаю.

В любом случае, я уже допер, как это сделать без копирования памяти. Спасибо всем за советы.

Может этот вопрос не в тему но всеже
Как из VB создать инсталяционный пакет с интеграцией туда файлов других приложений к примеру базы данных и файлов справки так что бы в файлах справки кодировка вставала правельно?

Flog22

Цитата:

в файлах справки кодировка вставала правельно

А чего бы она вставала не правильно? Для страховки, проверь справку на другой машине, может проблемы со шрифтами. А так, мастер создания инсталляций в VS6 есть. Указываешь какие файлы входят в проект мастера, куда их складывать при инсталляции. ActiveX, используемые в проекте VB, он сам находит и помещает в проект.

Цитата:

Для страховки, проверь справку на другой машине

на другой машине проверял, заместо русских бук крякозябы одни


Цитата:

мастер создания инсталляций в VS6 есть

- это имеется ввиду Package & Deployment Wizard?

при инсталяции созданного пакета, когда обращается к файлам не относящимся к проэкту предположем к базе данных, пишет ошибку и отменяет установку, может мастер подгатавливает файлы для установки не преднозначенные для Win xp

Flog22

Цитата:

на другой машине проверял, заместо русских бук крякозябы одни

Значит проблемы с самим файлом справки, точнее с выставленным языком. Если писал справку в Help&Manual, то сходи в Help&Manual там описывалось, как и что нужно выставить для корректного результата.

Цитата:

предположем к базе данных

Х-м, странно, я когда пользовался VB6, без проблем закидывал. Там на каком-то шаге предлагается включить дополнительные файлы, так я Access базы, тексты, растры добавлял без проблем. Хотя сейчас вряд ли смогу помочь чем в этом вопросе, года два как на VB.Net перешёл.

Цитата:

Если писал справку в Help&Manual

нет справку писал в стандартном VS Help Workshop

Flog22
А чёрт его знает. Никогда им не пользовался. Посмотри свойства проекта на то, чтобы везде было Russian в определениях проекта и разделов, шрифтов. Сложно судить, не имея на руках примера, ведущего к ошибке. Хотя, если ты имел в виду HTML Help Workshop, то посмотри для примера, вроде как на всех близлежащих WinXP отображается без проблем. Там принудительно расставлены свойства шрифтов в Russian

AndVGri
файл который дали посмотреть недоступен
самое главное, пункты созданного меню русские, а вложения в неправельной кодировке, на некоторых компах нормально показывает, а восновном на русских WinXP крякозябы

Flog22
Погоди, ты же писал

Цитата:

нет справку писал в стандартном VS Help Workshop

Если файл у тебя формате chm, то есть плагин к TC, который позволяет всё это хозяйство от туда выдернуть, а потом, после правки, по новой запаковать.
Посмотри, на тех машинах, где нормально показывает, данные в реестре по FontSubstitute, возможно с подстановкой шрифтов что-то спецефическое. Не изменена ли подстановка ключа 1252 с с_1252.nls на c_1251.nls (некоторые так делают, для программ, не дружащих с русским). Может шрифт какой использовали, которого нет в стандартной поставке WinXP, а система заменяет на первый попавшийся... Вариантов, если подумать, можно и ещё накидать. А нельзя ли тех, кто дал напрячь на предмет обеспечения работоспособности?

Цитата:

А нельзя ли тех, кто дал напрячь на предмет обеспечения работоспособности?

а кто дал? я этот файл справки сам делаю, текст который крякозябами пишет набирается в ворде формата rtf, какие могут там быть не стандартные шрифты непонятно, пишу Times New Roman все по русски

подскажите как из текстбокса вытащить текст посимвольно?