Перенос фото V.B.6.0

@Игорь435 · Регистрация: 12.09.2016

Author24 — интернет-сервис помощи студентам

Помогите. Вот моя ситуация,необходимо продублировать фотографию с формы 2 на форму один из PictureBox.Испробовал много вариантов, но так и не допёр. Подскажите,пожалуйста.

~~Shersh~~ · 12.10.2016, 08:26

Сообщение от Игорь435

Испробовал много вариантов, но так и не допёр

И хоть бы один показали.
Будем гадать.
Это пробовали -

Visual Basic

1	Set Form1.Picture1.Picture = Form2.Picture1.Picture

?

@Игорь435 · 12.10.2016, 08:43 **[ТС]**

Да,так пробовал.

~~Shersh~~ · 12.10.2016, 09:12

Сообщение от Игорь435

пробовал.

И что?
У меня получилось, будем продолжать гадать на пустом месте?

@Игорь435 · 12.10.2016, 09:26 **[ТС]**

Вы вставляли это на кнопку или в FormLoad?

@Игорь435 · 12.10.2016, 09:35 **[ТС]**

Опишу подробнее,извините что нее сделал так сразу. Необходимо чтобы по нажатию на кнопку "Вставить фото" переходило на вторую форму,где можно было выбрать это фото и обрезать до нужного размера. Далее по нажатию на кнопку готово фото перетекало на 1 форму в PictureBox и открывалась первая форма.Скриншоты для наглядности.

~~Shersh~~ · 12.10.2016, 09:36

Куда только не вставлял - везде работает.

@Игорь435 · 12.10.2016, 09:40 **[ТС]**

Сейчас у меня нет возможности сделать видео-запись. Я могу сделать её ближе к вечеру. Этот код почему-то не хочет работать.

~~Shersh~~ · 12.10.2016, 09:43

Не видео, а проект в виде архива - сочинять Ваши баги, добавляя свои при этом желания никакого

@Игорь435 · 12.10.2016, 09:48 **[ТС]**

Вот архив,спасибо за помощь

SoftIce · 12.10.2016, 09:59

Все у Вас работает, Вы в номерах Picture запутались...

@Игорь435 · 12.10.2016, 10:08 **[ТС]**

А вы не могли бы меня "тыкнуть" носом,где я перепутал номера,то блин в упор не вижу

SoftIce · 12.10.2016, 10:13

Сообщение от Игорь435

в упор не вижу

Посмотрите на скрине

@Игорь435 · 12.10.2016, 10:30 **[ТС]**

Прописал как у Вас, фото дублируется из Picture1(большой картинки),а не Picture2 (маленькой).

~~Shersh~~ · 12.10.2016, 10:31

Visual Basic

Private Sub Form_Load()'FORM1
Picture1.AutoRedraw = TRUE
'''''''
end sub

Visual Basic

Private Sub Command2_Click() 'FORM2
'Form1.Picture1.Picture = Form2.Picture2.Picture
Form1.Picture1.PaintPicture Picture1, 0, 0, 1815, 1815, 0, 0, , , vbSrcCopy
 
Form2.Hide
Form1.Show
 
 
End Sub

@Игорь435 · 12.10.2016, 10:36 **[ТС]**

Огромнейшее,Вам,спасибо!

SoftIce · 12.10.2016, 10:37

Сообщение от Игорь435

Прописал как у Вас, фото дублируется из Picture1(большой картинки),а не Picture2 (маленькой).

Тогда у всех Picture поставьте autoredraw=true и добавьте в код одну строчку

~~Shersh~~ · 12.10.2016, 10:55

В проекте обнаружена занятная функция -

Visual Basic

Function ConvertDec(heximal) As Long
ConvertDec = VAL("&h" & heximal & "&")
 
' Dim Simvol As String
'Dim DesChislo As Long
'
'Dim x As Long
'ConvertDec = 0
'For x = 1 To Len(heximal)
'Simvol = Mid(heximal, x, 1)
'If UCase(Simvol) = "A" Then
'DesChislo = 10
'ElseIf UCase(Simvol) = "B" Then
'DesChislo = 11
'ElseIf UCase(Simvol) = "C" Then
'DesChislo = 12
'ElseIf UCase(Simvol) = "D" Then
'DesChislo = 13
'ElseIf UCase(Simvol) = "E" Then
'DesChislo = 14
'ElseIf UCase(Simvol) = "F" Then
'DesChislo = 15
'Else
'DesChislo = Val(Simvol)
'End If
'ConvertDec = ConvertDec + DesChislo * 16 ^ (Len(heximal) - x)
'Next x
 
End Function

25 строк можно заменить одной.

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.10.2016, 10:37	17
	Сообщение от Игорь435 Прописал как у Вас, фото дублируется из Picture1(большой картинки),а не Picture2 (маленькой). Тогда у всех Picture поставьте autoredraw=true и добавьте в код одну строчку Миниатюры 1

@Игорь435 0 / 0 / 0 Регистрация: 12.09.2016 Сообщений: 13
		1
	Перенос фото V.B.6.0 11.10.2016, 17:55. Показов 1281. Ответов 17 Метки нет (Все метки) Помогите. Вот моя ситуация,необходимо продублировать фотографию с формы 2 на форму один из PictureBox.Испробовал много вариантов, но так и не допёр. Подскажите,пожалуйста. 0

@Игорь435 0 / 0 / 0 Регистрация: 12.09.2016 Сообщений: 13
	12.10.2016, 08:43 [ТС]	3
	Да,так пробовал. 0

~~Shersh~~ Заблокирован
	12.10.2016, 09:12	4
	Сообщение от Игорь435 пробовал. И что? У меня получилось, будем продолжать гадать на пустом месте? 1

@Игорь435 0 / 0 / 0 Регистрация: 12.09.2016 Сообщений: 13
	12.10.2016, 09:26 [ТС]	5
	Вы вставляли это на кнопку или в FormLoad? 0

@Игорь435 0 / 0 / 0 Регистрация: 12.09.2016 Сообщений: 13
	12.10.2016, 09:35 [ТС]	6
	Опишу подробнее,извините что нее сделал так сразу. Необходимо чтобы по нажатию на кнопку "Вставить фото" переходило на вторую форму,где можно было выбрать это фото и обрезать до нужного размера. Далее по нажатию на кнопку готово фото перетекало на 1 форму в PictureBox и открывалась первая форма.Скриншоты для наглядности. Миниатюры 0

~~Shersh~~ Заблокирован
	12.10.2016, 09:36	7
	Куда только не вставлял - везде работает. 1

@Игорь435 0 / 0 / 0 Регистрация: 12.09.2016 Сообщений: 13
	12.10.2016, 09:40 [ТС]	8
	Сейчас у меня нет возможности сделать видео-запись. Я могу сделать её ближе к вечеру. Этот код почему-то не хочет работать. 0

~~Shersh~~ Заблокирован
	12.10.2016, 09:43	9
	Не видео, а проект в виде архива - сочинять Ваши баги, добавляя свои при этом желания никакого 1

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.10.2016, 09:59	11
	Все у Вас работает, Вы в номерах Picture запутались... 1

@Игорь435 0 / 0 / 0 Регистрация: 12.09.2016 Сообщений: 13
	12.10.2016, 10:08 [ТС]	12
	А вы не могли бы меня "тыкнуть" носом,где я перепутал номера,то блин в упор не вижу 0

	12.10.2016, 10:55

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.10.2016, 10:13	13
	Сообщение от Игорь435 в упор не вижу Посмотрите на скрине Миниатюры 1

@Игорь435 0 / 0 / 0 Регистрация: 12.09.2016 Сообщений: 13
	12.10.2016, 10:30 [ТС]	14
	Прописал как у Вас, фото дублируется из Picture1(большой картинки),а не Picture2 (маленькой). 0

@Игорь435 0 / 0 / 0 Регистрация: 12.09.2016 Сообщений: 13
	12.10.2016, 10:36 [ТС]	16
	Огромнейшее,Вам,спасибо! 0

Перенос фото V.B.6.0

Решение