Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > Как присоеденить графический файл к программе


Автор: REVOLT 19.5.2006, 12:59
Мой призыв к понимающим людям, такой: "Помогите бедному студенту, с димломом"
Нет, не пугайтесь всё уже сделанно и готово, т.е. программа на VB она готова. Смысл её такйо, типо склад, магазин, заказ автомобилей и продажа. Короче программа хорошая и даже работает, но туда надо вставить ещё какую нибудь штуку, с помошью которой можно будет глянуть на машину которая продаётся, т.е. база данных храниться в Аccess, ну так вот, помогите мне подправить порграмму, я в вас уверен... просто я с писоеденением граффики не когда не работал...

есле будут люди которым это интересно, я вышлю проект в исходном коде полный...

Люди, профессионал, надеюсь на вас 

Автор: JetDirect 19.5.2006, 13:22
Если я тебя правельно понял то так
Создаеш в форме окно с рисунком PictureBox 
командой Pic.Picture = LoadPicture("c:\BUILD.BMP") открываеш в него рисунок
где
pic - name PictureBox
a c:\BUILD.BMP соттветственно имя и путь файла  smile  

Автор: Flotskiy 20.5.2006, 07:27
REVOLT,  Привет!Насколько я понял - к каждой марке автомобила нужна своя картинка, тогда совет JetDirect не подойдет.  В программе Microsoft Visual Studio\VB98 есть БД NWIND.NDB. Там есть пример, наподобие твоего, разберись. Если не подойдет, пиши, сброшу небольшую прогу, любезно присланную мне нашим товарищем - bom 
С уважением

  

Автор: REVOLT 20.5.2006, 11:04
Ребята, а можно ли сделать так чтобы, например при добовлении нового автомобиля в магазин, т.е. пишем его характеристики, прочие сведения, и там же делаем кнопку, например добавить фото, открывается окно, там выбираем фотографию, нажимаем ОК, и фотография добовлялась или в БД или сохранялась в папку с программой, но с каким нибудь левым расширением. И чтобы припросмотре автомобилей в магазине фотография считывалась у каждого автомобиля своя.

Пы Сь: Кому надо исходник, киньте мыло!
Я намылю 

Автор: cardinal 20.5.2006, 13:05
Цитата(REVOLT @  20.5.2006,  10:04 Найти цитируемый пост)
сохранялась в папку с программой, но с каким нибудь левым расширением.

Это проще всего. Помоему если засунуть картинку в базу, то база сильно много места будет занимать (непропорционально много). Но это я точно не знаю...
Код

Option Explicit

Private Sub Command1_Click()
Dim Picturec As IPictureDisp
Set Picturec = LoadPicture(App.Path & "\PorscheCarrera.x")
Picture1.PaintPicture Picturec, 0, 0, Picturec.Width / 5, Picturec.Height / 5
End Sub

где PorscheCarrera.x это на самом деле PorscheCarrera.jpg smile 
Цитата(REVOLT @  20.5.2006,  10:04 Найти цитируемый пост)
И чтобы припросмотре автомобилей в магазине фотография считывалась у каждого автомобиля своя.

Присвой каждому автомобилю свой ID. Например 42654. Тогда фотка для него будет лежать в файле 42654.x. Если файла нет, то фотки к автомобилю соответственно тоже нет... 

Автор: REVOLT 21.5.2006, 09:11
А не могли бы вы подробно расписать, этот процесс?

Т.е. кидаем на форму там где происходит добовление авто ПиктуреБокс, далее нужно сделать кнопку, добовления фото, и в кнопке сохранить нужно вписать код.

Далее в форме где спромсходит собственно продажа, нужно сделать пиктуребокс, и считать их их файла...

Ребята, извините, может туплю, но совершенно не знаю как сделать 

Автор: REVOLT 21.5.2006, 22:39
Люди, человеки, я конечно прекрасно знаю что на форуме плататься нельзя, но попогите, у меня практическая часть стоит на месте, помогите, я ведь знаю что вы то можите! 

Автор: Flotskiy 22.5.2006, 04:50
REVOLT,  я тебе предложил готовую прогу на эту тему, а ты не соизволил даже ответить.   

Автор: REVOLT 23.5.2006, 11:28
Flotskiy, вот мыло [email protected] ЖДУ
Жду программу!!! 

Автор: REVOLT 25.5.2006, 11:13
Flotskiy, ПЛИЗ, очень прошу....
Скинь плиз, жил бы ты в Бузулуке, я бы пивом отдал!!!
Уважаемый, не дай мне умереть!!! smile  smile  smile 
 smile  smile  smile  

Автор: Akina 25.5.2006, 12:55

M
Akina
Все, надоело. До свидания.
 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)