Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Visual Basic 6

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9

Открыть новую тему     Написать ответ в эту тему

maod111

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

Всего записей: 1 | Зарегистр. 28-05-2006 | Отправлено: 18:53 28-05-2006
Troitsky



Водник Водкин
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
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


----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам!

Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 20:12 28-05-2006
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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
 

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 03:18 30-05-2006 | Исправлено: dneprcomp, 03:31 30-05-2006
mistx

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята, помогите разобраться плиз.
 
Как вставить Flash анимацию с расширением swf
в visual basic?
пробывал через components/flash documents,заливаю на форму, выдает ошибку.
 
Спасибо заранее.

Всего записей: 765 | Зарегистр. 13-01-2005 | Отправлено: 15:06 31-05-2006
M0rg0t

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

Всего записей: 1 | Зарегистр. 08-06-2006 | Отправлено: 21:06 08-06-2006
dneprcomp



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

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 02:11 09-06-2006
sauno

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
как с помощью VB добавит рег файл в регистр? точнее не файл а содержание файла который должно  быт в самом теле программы на VB
 
допустим надо добавит следующее:
 
--------------------------------------------------------
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\adpu160m]
"ErrorControl"=dword:00000001
"Group"="SCSI miniport"
"Start"=dword:00000004
"Tag"=dword:0000003c
"Type"=dword:00000001
--------------------------------------------------------
 
Заранее благодарю

Всего записей: 22 | Зарегистр. 07-06-2006 | Отправлено: 02:29 09-06-2006
dneprcomp



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

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 03:35 09-06-2006
mistx

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dneprcomp
да. очень благодарен за пример.

Всего записей: 765 | Зарегистр. 13-01-2005 | Отправлено: 11:37 11-06-2006
Varroa



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как передать координаты по щелчку мыши из Adobe Photoshop например в Excel.

Всего записей: 53 | Зарегистр. 18-03-2005 | Отправлено: 21:14 12-06-2006
dneprcomp



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

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 22:06 12-06-2006
Varroa



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dneprcomp
А можно по точнее или ссылку дать,  где об этом написано.

Всего записей: 53 | Зарегистр. 18-03-2005 | Отправлено: 22:47 12-06-2006
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Varroa

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

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 23:13 12-06-2006
ItsJustMe

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

Всего записей: 2028 | Зарегистр. 02-09-2005 | Отправлено: 16:40 25-05-2007 | Исправлено: ItsJustMe, 16:45 25-05-2007
AndVGri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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
 

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 17:01 25-05-2007
ItsJustMe

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

Всего записей: 2028 | Зарегистр. 02-09-2005 | Отправлено: 17:33 25-05-2007
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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
 


Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 17:53 25-05-2007 | Исправлено: Rush, 17:55 25-05-2007
ItsJustMe

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

Всего записей: 2028 | Зарегистр. 02-09-2005 | Отправлено: 01:09 26-05-2007
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ItsJustMe
Собственно, ты не объяснил толком, какая задача должна решаться. Поэтому и ответы соответственные.
Тебе надо, чтобы любое число диапазона типа Long укладывалось в диапазон типа Integer? Или что-то еще?
 
Добавлено:
Если просто нужно попадание в диапазон %:
myCInt = Value Mod 32768

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 08:57 26-05-2007
ItsJustMe

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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


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

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

Всего записей: 2028 | Зарегистр. 02-09-2005 | Отправлено: 01:54 27-05-2007
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Visual Basic 6


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru