Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic .NET

Войти
Регистрация
Восстановить пароль
 
Yanik1987
6 / 6 / 2
Регистрация: 07.04.2015
Сообщений: 116
#1

Зуммер изображения - перевод с C# - Visual Basic .NET

20.09.2015, 13:44. Просмотров 240. Ответов 7
Метки нет (Все метки)

Всем привет, есть программа на c#, конвертирую её в vb.net и все равно выдает ошибку. Программа во вложении. В чем может быть проблема?
Вот эта часть кода
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
      Dim sourceWidth As Integer = _OriginalImage.Width
            Dim sourceHeight As Integer = _OriginalImage.Height
            Dim targetWidth As Integer
            Dim targetHeight
            Dim ratio
            If sourceWidth > sourceHeight Then
                targetWidth = picImage.Width
                ratio = DirectCast(targetWidth, Double) / sourceWidth
                targetHeight = DirectCast((ratio * sourceHeight), Integer)
            ElseIf sourceWidth < sourceHeight Then
                targetHeight = picImage.Height
                ratio = DirectCast(targetHeight, Double) / sourceHeight
                targetWidth = DirectCast((ratio * sourceWidth), Integer)
            Else
                targetHeight = picImage.Height
                targetWidth = picImage.Width
            End If
0
Миниатюры
Зуммер изображения - перевод с C#  
Вложения
Тип файла: rar PictureBoxZoom.rar (124.3 Кб, 7 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.09.2015, 13:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Зуммер изображения - перевод с C# (Visual Basic .NET):

Перевод изображения в спектр - Mathematica
Написать программу для вычисления Преобразования Фурье для входного изображения. Вывести на экран полученный спектр. Вывести матрицы...

Перевод изображения в монохромное - C#
Добрый день. Имеется следующая задача: необходимо из одного пикчербокса (вебкамера) перенести изображение во второй, преобразовав его в ЧБ...

Перевод изображения в текст - JavaScript
Привет всем! Помогите пожалуйста закодировать картинку в текст с возможностью раскодирования.

Перевод растрового изображения в векторное - CorelDRAW
Добрый день. Как можно перевести растровое изображение, например, jpg в векторное, используя CorelDRAW?

Перевод изображения в матрицу по пикселям - C#
в шапрпах совсем не разбираюсь, помогите:Имеется некоторое квадратное изображение 32х32 с белым фоном, подскажите, как перевести его в...

Перевод изображения в массив чисел - Matlab
Господа, не сталкивался ранее с графикой в Матлаб(да и вовсе с графикой), поэтому пока не могу разобраться с задачкой, надеюсь на Вашу...

7
Yury Komar
Модератор
2213 / 2018 / 321
Регистрация: 27.01.2014
Сообщений: 3,582
Завершенные тесты: 1
20.09.2015, 13:57 #2
Yanik1987, тут есть такой PictureBox уже. Тока написан изначально на VB. найди в темах и не парься.

Добавлено через 1 минуту
А проблема в том что ширина картинки не может быть типа double... измени double на integer
0
Yanik1987
6 / 6 / 2
Регистрация: 07.04.2015
Сообщений: 116
20.09.2015, 14:41  [ТС] #3
Спасибо, только поиск не дает ни каких результатов
0
Petr_S
194 / 194 / 88
Регистрация: 21.04.2013
Сообщений: 378
20.09.2015, 19:47 #4
Насколько я понимаю, ratio - это Double
vb.net
1
ratio = DirectCast(targetWidth, Double) / sourceWidth
Здесь происходит расширяющееся преобразование.
Поэтому надо:
vb.net
1
2
3
ratio = targetWidth / sourceWidth
'или если очень хочется, то
ratio = CDbl(targetWidth) / sourceWidth
0
Yanik1987
6 / 6 / 2
Регистрация: 07.04.2015
Сообщений: 116
21.09.2015, 18:06  [ТС] #5
Спасибо помогло, осталась последняя ошибка. Во вложении...
0
Миниатюры
Зуммер изображения - перевод с C#  
Petr_S
194 / 194 / 88
Регистрация: 21.04.2013
Сообщений: 378
21.09.2015, 18:46 #6
vb.net
1
If _OriginalImage Is Nothing Then
0
Yanik1987
6 / 6 / 2
Регистрация: 07.04.2015
Сообщений: 116
21.09.2015, 21:22  [ТС] #7
Ерунда какая-то, все равно не работает
0
Вложения
Тип файла: rar PictureBox Zoom.rar (74.9 Кб, 1 просмотров)
Petr_S
194 / 194 / 88
Регистрация: 21.04.2013
Сообщений: 378
22.09.2015, 08:09 #8
Yanik1987, что Вы хотите получить в обоих PictureBox?

Пока, что нашел:
vb.net
1
2
3
4
5
6
7
8
        Private Sub ResizeAndDisplayImage()
            PictureBox1.BackColor = _BackColor
            PictureBox2.BackColor = _BackColor
            If _OriginalImage Is Nothing Then
                Return
            End If
            PictureBox1.Image = _OriginalImage
            Return
Для чего второй Return? Из-за него не будет работать процедура.

vb.net
1
Private Sub UpdateZoomedImage(ByVal e As MouseEventArgs)
Что-то подозрительно с аргументами и где Handles?

Для чего нужен TrackBar1?
0
22.09.2015, 08:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.09.2015, 08:09
Привет! Вот еще темы с ответами:

Перевод цветного изображения в черно-белое - C#
Здравствуйте, нужно перевести цветное изображение в черно-белое (не в серо-белое), но я в этом особо ничего не понимаю, помогите...

Перевод цветного изображения в черно-белое - C++ Qt
Нуждаюсь в помощи для реализации такой задачи: визуализировать изображение в оттенки серого. Qt для меня, как темный лес:sorry: и я совсем...

Перевод Jpeg или gif изображения в 3d Max 2011 - 3D моделирование
Как перевести Jpeg или gif изображение в 3D формат в 3d Max 2011 ?

Чтение заголовка bmp и перевод изображения в серые тона - C++ Builder
Доброго времени суток! Продлема состоит следующем: 1. Есть изоброжение в формате bmp, нужно вывести в Memo название каждого поля...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru