powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Risunak.
5 сообщений из 5, страница 1 из 1
Risunak.
    #33677741
maris10
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Risunak.
    #33679420
Grin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
на форму наверно нада положить Image контрол и в клике кнопки выбора картинки писать чтото типа
m.pic=GETPICT('bmp','','')
thisform.Image.picture=m.pic

картинки в базе можна хранить в поле типа General но лучше хранить ссылку на файл на диске и при перемещении по записям присваивать
thisform.Image.picture=mi_table.pic_path
...
Рейтинг: 0 / 0
Risunak.
    #33679541
AKI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: 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
Risunak.
    #33680688
maris10
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ja paprobival no viprigivaet saapshenie "Property PICTURE is not found"!!
...
Рейтинг: 0 / 0
Risunak.
    #33687643
AKI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
maris10Ja paprobival no viprigivaet saapshenie "Property PICTURE is not found"!!

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


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