Помогите перевести Basic->C#

[Al Prad]

Добрый день!

Пишу программу, которая считывает значения переменных из другого приложения. Застрял в самом начале

На бейсике было:

Код: Выделить всё

Dim Tags As Object
Tags = CreateObject("CCHMITags.HMITags")
TextBox1.Text = Tags("MyVarName").Read


Теперь на С#

Код: Выделить всё

Object Tags = Activator.CreateInstance (Type.GetTypeFromProgID("CCHMITags.HMITags"));
textBox1.Text = Tags("MyVarName").Read ;


В последней строчке получаю
Error 'Tags' is a 'variable' but is used like a 'method'

Подскажите, как сделать правильно ?
Спасибо.

[Ramzes]

textBox1.Text = Tags["MyVarName"].Read();

[Al Prad]

textBox1.Text = Tags["MyVarName"].Read();

Error 1 Cannot apply indexing with [] to an expression of type 'object'

[Ramzes]

Tags это коллекция?

[Al Prad]

Tags это коллекция?

Не могу ответить.
Вопрос выше моего уровня

Есть работающий пример на бейсике, я лишь пытаюсь его использовать, переделав на С.

[Ramzes]

это не Visual Basic .Net?
если нет, тогда тебе в рефлексию (System.Reflection) иначе никак

[Atoman]

Перевел в SharpDevelop'е.
Может так будет работать.

Код: Выделить всё

object Tags = null;
Tags = Interaction.CreateObject("CCHMITags.HMITags");
TextBox1.Text = Tags("MyVarName").Read;

[Ramzes]

Atoman
эээ

[ANDLL]

Tags это коллекция?

Object Tags = Activator.CreateInstance (Type.GetTypeFromProgID("CCHMITags.HMITags"));

object z = Tags.GetType().InvokeMember("", System.Reflection.BindingFlags.GetProperty, null,Tags,new object[]{"MyVarName"});
TextBox1.Text = z.GetType().InvokeMember("Read", System.Reflection.BindingFlags.InvokeMethod, null,z,new object[]{})

[Al Prad]

это не Visual Basic .Net?
если нет, тогда тебе в рефлексию (System.Reflection) иначе никак

Это именно VB.NET 2005

[Al Prad]

Перевел в SharpDevelop'е.
Может так будет работать.

Код: Выделить всё

object Tags = null;
Tags = Interaction.CreateObject("CCHMITags.HMITags");
TextBox1.Text = Tags("MyVarName").Read;

Error 1 The name 'Interaction' does not exist in the current context

[Al Prad]

Tags это коллекция?

Object Tags = Activator.CreateInstance (Type.GetTypeFromProgID("CCHMITags.HMITags"));

object z = Tags.GetType().InvokeMember("", System.Reflection.BindingFlags.GetProperty, null,Tags,new object[]{"MyVarName"});
TextBox1.Text = z.GetType().InvokeMember("Read", System.Reflection.BindingFlags.InvokeMethod, null,z,new object[]{})

Error 1 The name 'Tags' does not exist in the current context
Error 2 The name 'Tags' does not exist in the current context
Error 3 Cannot implicitly convert type 'object' to 'string'. An explicit conversion exists (are you missing a cast?)

[Nord777]

Al Prad

У меня работает.

Код: Выделить всё

    private void Form1_Load(object sender, EventArgs e)
    {
      object Tags = null;
      Tags = Activator.CreateInstance(Type.GetTypeFromProgID("CCHMITags.HMITags"));

      object z = Tags.GetType().InvokeMember(
        "", System.Reflection.BindingFlags.GetProperty,
        null, Tags, new object[] { "MyVarName" });

      textBox1.Text = (string)z.GetType().InvokeMember(
        "Read", System.Reflection.BindingFlags.InvokeMethod,
        null, z, new object[] { });
    }

[Al Prad]

Al Prad

У меня работает.

Код: Выделить всё

    private void Form1_Load(object sender, EventArgs e)
    {
      object Tags = null;
      Tags = Activator.CreateInstance(Type.GetTypeFromProgID("CCHMITags.HMITags"));

      object z = Tags.GetType().InvokeMember(
        "", System.Reflection.BindingFlags.GetProperty,
        null, Tags, new object[] { "MyVarName" });

      textBox1.Text = (string)z.GetType().InvokeMember(
        "Read", System.Reflection.BindingFlags.InvokeMethod,
        null, z, new object[] { });
    }

Компиллируется без ошибок, но при запуске получается такое:

[Ramzes]

Код: Выделить всё

    private void Form1_Load(object sender, EventArgs e)
    {
      object Tags = null;
      Tags = Activator.CreateInstance(Type.GetTypeFromProgID("CCHMITags.HMITags"));

      object z = Tags.GetType().InvokeMember(
        "", System.Reflection.BindingFlags.GetProperty,
        null, Tags, new object[] { "MyVarName" });

      textBox1.Text = z.GetType().InvokeMember(
        "Read", System.Reflection.BindingFlags.InvokeMethod,
        null, z, new object[] { }).ToString();
    }

[Al Prad]

Код: Выделить всё

    private void Form1_Load(object sender, EventArgs e)
    {
      object Tags = null;
      Tags = Activator.CreateInstance(Type.GetTypeFromProgID("CCHMITags.HMITags"));

      object z = Tags.GetType().InvokeMember(
        "", System.Reflection.BindingFlags.GetProperty,
        null, Tags, new object[] { "MyVarName" });

      textBox1.Text = z.GetType().InvokeMember(
        "Read", System.Reflection.BindingFlags.InvokeMethod,
        null, z, new object[] { }).ToString();
    }

YES! Заработало. Как сложно... Это для каждой переменной нужен свой object z? Ну ладно.

Спасибо за помощь с чтением тегов. Еще в принципе есть запись; пока она , вроде не нужна , но вдруг потом пригодится. На VB запись делалась так:

Код: Выделить всё

    Dim Tags As Object
     
    Set Tags = CreateObject("CCHMITags.HMITags")
           
    Tags("TagName1").Write textBox1.Text
    Tags("TagName2").Write textBox2.Text

А как на С#?.
В принципе, если сложно, то не ломайте головы. Я и так уже благодарен всем за помощь.

[Ramzes]

Al Prad
по тому же принципу