ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Масштабирование PictureBox
12 сообщений из 12, страница 1 из 1
Масштабирование PictureBox
    #38390979
KPEATOP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KPEATOP
Гость
Строю график X-Y на PictureBox. Хочу чтобы при движении мышью по графику в строке состояния отображалось значение Y.
Вроде ничего сложного :

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
X1min = 1
         X1max = 100
    Y1min = 50
    Y1max = 5
    
    Form3.Picture3.Cls
    Form3.Picture3.Scale (X1min, Y1min)-(X1max, Y1max)
    Form3.Picture3.DrawWidth = Hplot1
    Form3.Picture3.Line (X1min, Y1min)-(X1min, Y1max)
    Form3.Picture3.Line (X1min, Y1min)-(X1max, Y1min)
    Form3.Picture3.DrawWidth = Hplot2
    Form3.Picture3.Line (X1max, Y1min)-(X1max, Y1max)
    Form3.Picture3.Line (X1min, Y1max)-(X1max, Y1max)
    
          For i = 1 To 10
             Form3.Picture3.Circle (i * 9, i * 4), Form3.Picture4.ScaleWidth / RCirclDKID, QBColor(ColCirclDKID)
         Next i



И событие мыши:

Код: vbnet
1.
2.
3.
Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
         MDIForm1.StatusBar1.Panels(1).Text = "Значение " & Y 
End Sub



Что получается: при движении мышью по графику значение отображается, вроде все нормально, НО когда я дохожу мышью до нижней границы графика, должно показывать значение 5, а у меня показывает 5,12....... А когда дохожу до верхней границы графика - все нормально, показывает 50
Почему внизу 5,1.... а не ровно 5 ?????
...
Рейтинг: 0 / 0
09.09.2013, 14:09
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38390989
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
У меня не наблюдается, приложите тестовый проект. Возможно связано с тем, что там со ScaleMode
...
Рейтинг: 0 / 0
09.09.2013, 14:15
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38391008
KPEATOP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KPEATOP
Гость
ScaleMode у PictureBox = 1 , т.е. в твипах. Исходник приложить не могу. Слишком большая программа.
...
Рейтинг: 0 / 0
09.09.2013, 14:26
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38391014
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Никто не просит выкладывать ВЕСЬ проект. Урежьте до размеров воспроизводимости ошибки. Повторяю, я этого на своем компе на вашем коде не наблюдаю.
...
Рейтинг: 0 / 0
09.09.2013, 14:29
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38391143
KPEATOP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KPEATOP
Гость
приложил пример. У меня VB 5.0
...
Рейтинг: 0 / 0
09.09.2013, 15:39
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38391174
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Посмотрел.
Это погрешность округления при переводе из экранных пикселов в твипы.
Предлагаю работать в пикселах, все равно движение мыши точнее чем один пиксел вы не получите.
...
Рейтинг: 0 / 0
09.09.2013, 15:59
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38391179
KPEATOP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KPEATOP
Гость
Почему же тогда, когда мышь доходит до верхней границы PictureBox , значение в строке состояния показывает ровно 50 ???
...
Рейтинг: 0 / 0
09.09.2013, 16:01
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38391192
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Зато все промежуточные значения дробные
Честно говоря, я бы лично не стал возиться с Picture1.Scale и делал бы пересчет по-своему в момент движения мыши
...
Рейтинг: 0 / 0
09.09.2013, 16:12
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38391683
KPEATOP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KPEATOP
Гость
вообщем, никто так и не может объяснить почему на нижней границе PictureBox показывает значение 5,11.... , а не ровно 5. Жаль
...
Рейтинг: 0 / 0
10.09.2013, 08:31
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38391688
KPEATOP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KPEATOP
Гость
Кстати также получается и со значением X. Минимум 1, максимум 100. На левой границе графика показывает нормально 1, а на правой показывает чуть меньше 99,88....
...
Рейтинг: 0 / 0
10.09.2013, 08:36
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38391988
13-й квартал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
13-й квартал
Гость
KPEATOP,

к сожалению кому-то лениво взять листочек в клеточку, и понять, что происходит.
В качестве подсказки:
Код: vbnet
1.
2.
3.
    Picture1.Scale (X1min, Y1min)- _
                   (X1max + (X1max - X1min) / Picture1.ScaleX(Picture1.Width, vbTwips, vbPixels), _
                    Y1max + (Y1max - Y1min) / Picture1.ScaleY(Picture1.Height, vbTwips, vbPixels))

P.S. Точности Single всё равно не хватает. А рекомендации работать в пикселах игнорируются.
...
Рейтинг: 0 / 0
10.09.2013, 12:08
| Ответить | Цитировать | Написать  
Масштабирование PictureBox
    #38392045
13-й квартал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
13-й квартал
Гость
Даже не так. А вот так:
Код: vbnet
1.
2.
3.
    Picture1.Scale (X1min, Y1min)- _
                   (X1max + (X1max - X1min) / (Picture1.ScaleX(Picture1.Width, vbTwips, vbPixels) - 1), _
                    Y1max + (Y1max - Y1min) / (Picture1.ScaleY(Picture1.Height, vbTwips, vbPixels) - 1))
...
Рейтинг: 0 / 0
10.09.2013, 12:33
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Масштабирование PictureBox
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38391683&tid=2156772]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 266ms
total:  393ms
созд. / загр.: 393ms
x
x
Закрыть


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