Перевод кода C# -> VB.NET

@Дядя Корней · Регистрация: 14.08.2014

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

Всем привет!

Ребят, есть метод:

C#
1
2
3
4
5
6
7
8
9
10
        private int Index(TabPage page)
        {
            for(int i = 0; i < TabPages.Count; i++)
            {
                if(TabPages[i] == page)
                    return i;
            }
 
            return -1;
        }

Переконвертировал его и шарпа в VB.NET:

VB.NET
1
2
3
4
5
6
7
8
    Private Function Index(ByVal page As TabPage) As Integer
        For i As Integer = 0 To TabPages.Count - 1
            If TabPages(i) = page Then
                Return i
            End If
        Next
        Return -1
    End Function

Всё один в один, но студия ругается:

Оператор "=" не определен для типов "TabPage" и "TabPage".

Почему в шарпе всё ок, а в бейсике аналогичная запись не катит?
И самое главное - как это можно пофиксить?

Буду благодарен за любую помощь.

@Orlangur · 10.02.2018, 00:03

Дядя Корней, попробуйте вместо = поставить is

@Rius · 10.02.2018, 00:06

Есть же готовый TabControl.TabPages.IndexOf(TabPage page)

@Дядя Корней · 10.02.2018, 00:13 **[ТС]**

Orlangur1991, спасибо!
Ёлы-палы, я и забыл про is ))

Fakels · 12.02.2018, 23:56

Посдскажите как это перевести в vb

C#
1
2
3
4
BeginInvoke(new MethodInvoker(delegate
{
// тут код
}));

конвертер мне сделал так

VB.NET
1
2
3
BeginInvoke(New MethodInvoker(
...
))

что такое BeginInvoke ? студия мне его подчеркивает

Добавлено через 6 минут
сам исходник вот нужен только делегат

C#
1
2
3
4
5
6
7
8
9
10
11
12
private void sortOutputHandler(object sendingProcess, DataReceivedEventArgs outLine)
{
    //используем делегат для доступа к элементу формы из другого потока
    BeginInvoke(new MethodInvoker(delegate
    {
        if (!String.IsNullOrEmpty(outLine.Data))
        {
            //выводим результат в консоль
            txtOutput.AppendText(outLine.Data + Environment.NewLine);
        }
    }));
}

@XIST · 13.02.2018, 07:38

Fakels, делегаты, а ошибка скорее всего указана в IS. Т.к. поток, нужно импортировать

Code
1
Imports System.Threading

@OwenGlendower · 13.02.2018, 14:22

Сообщение от Fakels

сам исходник вот нужен только делегат

VB.NET
1
BeginInvoke(New MethodInvoker(AddressOf UpdateOutput))

VB.NET
1
2
3
4
5
    Sub UpdateOutput()
        If Not String.IsNullOrEmpty(outLine.Data) Then
            txtOutput.AppendText(outLine.Data + Environment.NewLine)
        End If
    End Sub

Сообщение от Fakels

что такое BeginInvoke ? студия мне его подчеркивает

Метод класса Control - https://msdn.microsoft.com/en-... .110).aspx
Раз подчеркивает, то видимо ты не там код пишешь или BeginInvoke тебе не нужен на самом деле

Сообщение от XIST

Т.к. поток, нужно импортировать Imports System.Threading

Это ни при чем

Добавлено через 6 часов 14 минут
Fakels, вариант попроще с многострочным анонимным методом

VB.NET
1
2
3
4
5
BeginInvoke(Sub()
                If Not String.IsNullOrEmpty(outLine.Data) Then
                    txtOutput.AppendText(outLine.Data + Environment.NewLine)
                End If
            End Sub)

Fakels · 13.02.2018, 17:25

Сообщение от OwenGlendower

Раз подчеркивает, то видимо ты не там код пишешь или BeginInvoke тебе не нужен на самом деле

ага я потом разобрался что надо дописать контрол.
но что-то у меня не пошло дело, ошибку выдавало что-то там о создаваемом дескрипторе окна... и я забил болт)
вот отсюда брал код , задача была вывести в реалтайме сообщения поступаемые из консоли в винформ.
http://www.csharpcoderr.com/20... nform.html

@OwenGlendower · 13.02.2018, 17:47

Сообщение от Fakels

ошибку выдавало что-то там о создаваемом дескрипторе окна

Видимо ты пытался работать с элементом управления раньше чем он был создан ОС. Возможно из конструктора формы. Безопаснее это делать в событии Load или после него, но до закрытия формы.

@XIST · 13.02.2018, 20:41

Сообщение от OwenGlendower

Это ни при чем

а да, забудьте, что написал, чет мне с утра потоки мерещатся

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Orlangur Лень — мое второе и 3228 / 2416 / 687 Регистрация: 28.11.2014 Сообщений: 3,601 Записей в блоге: 3
	10.02.2018, 00:03
	Сообщение было отмечено Дядя Корней как решение Решение Дядя Корней, попробуйте вместо = поставить is 1

@Rius 13114 / 7675 / 1674 Регистрация: 25.05.2015 Сообщений: 23,409 Записей в блоге: 14
	10.02.2018, 00:06
	Есть же готовый TabControl.TabPages.IndexOf(TabPage page) 1

@Дядя Корней 399 / 318 / 53 Регистрация: 14.08.2014 Сообщений: 1,010
	10.02.2018, 00:13 [ТС]
	Orlangur1991, спасибо! Ёлы-палы, я и забыл про is )) 0

Перевод кода C# -> VB.NET

Решение