Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Yanik1987
6 / 6 / 3
Регистрация: 07.04.2015
Сообщений: 119
#1

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

20.09.2015, 13:44. Просмотров 260. Ответов 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

http://www.cyberforum.ru/washing-machines/thread2139641.html
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):

СМА АТЛАНТ 50С82 и др, Почему зуммер пищит во время стирки
Товарищи коллеги!!! Машины АТЛАНТ собранные на модулях с парт номером...

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

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

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

Перевод изображения в массив чисел
Господа, не сталкивался ранее с графикой в Матлаб(да и вовсе с графикой),...

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

Добавлено через 1 минуту
А проблема в том что ширина картинки не может быть типа double... измени double на integer
0
Yanik1987
6 / 6 / 3
Регистрация: 07.04.2015
Сообщений: 119
20.09.2015, 14:41  [ТС] #3
Спасибо, только поиск не дает ни каких результатов
0
Petr_S
196 / 197 / 87
Регистрация: 21.04.2013
Сообщений: 381
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 / 3
Регистрация: 07.04.2015
Сообщений: 119
21.09.2015, 18:06  [ТС] #5
Спасибо помогло, осталась последняя ошибка. Во вложении...
0
Миниатюры
Зуммер изображения - перевод с C#  
Petr_S
196 / 197 / 87
Регистрация: 21.04.2013
Сообщений: 381
21.09.2015, 18:46 #6
vb.net
1
If _OriginalImage Is Nothing Then
0
Yanik1987
6 / 6 / 3
Регистрация: 07.04.2015
Сообщений: 119
21.09.2015, 21:22  [ТС] #7
Ерунда какая-то, все равно не работает
0
Вложения
Тип файла: rar PictureBox Zoom.rar (74.9 Кб, 1 просмотров)
Petr_S
196 / 197 / 87
Регистрация: 21.04.2013
Сообщений: 381
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
Привет! Вот еще темы с решениями:

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

Перевод изображения в двоичный код
Здравствуйте, форумчане! Прочитав статью о персептеронах...

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

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


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

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

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