Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Risunak. / 5 сообщений из 5, страница 1 из 1
19.04.2006, 22:08
    #33677741
maris10
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Risunak.
U mena ests knopka "open" ana atkrivaet akno gde mozhna vibrats risonak kakoi stavits. Ja vibiraju no na "form1" on nepakazivaetsa.
Ja izpolzuju funkciju GETPICT(''). Kak mne sahranits vibranuju fotku v tablice i shtobi ana pakazivalas na "form1".
...
Рейтинг: 0 / 0
20.04.2006, 14:29
    #33679420
Grin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Risunak.
на форму наверно нада положить Image контрол и в клике кнопки выбора картинки писать чтото типа
m.pic=GETPICT('bmp','','')
thisform.Image.picture=m.pic

картинки в базе можна хранить в поле типа General но лучше хранить ссылку на файл на диске и при перемещении по записям присваивать
thisform.Image.picture=mi_table.pic_path
...
Рейтинг: 0 / 0
20.04.2006, 15:02
    #33679541
AKI
AKI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Risunak.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
cPicFile = GETFILE('jpg', 'выберите фото:', 'Bыбрать', 1 )

DO CASE
	CASE EMPTY(cPicFile)
		= MESSAGEBOX('Ничего не выбрали!!!', 0 + 48 + 0 , 'Ó Â À Ã À!!!')
	Thisform.cJpeg = ALLTRIM(Exponats.cPicture)
	OTHERWISE
	Thisform.cJpeg = cPicFile
ENDCASE

Thisform.Jpeg1.picture = Thisform.cJpeg
* єто и есть контрол-имидж на форме
Thisform.Refresh()

...
Рейтинг: 0 / 0
20.04.2006, 21:21
    #33680688
maris10
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Risunak.
Ja paprobival no viprigivaet saapshenie "Property PICTURE is not found"!!
...
Рейтинг: 0 / 0
25.04.2006, 08:57
    #33687643
AKI
AKI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Risunak.
maris10Ja paprobival no viprigivaet saapshenie "Property PICTURE is not found"!!

1 - Property PICTURE - создай сам
2 - читай книжки
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Risunak. / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]