C# と VB.NET の質問掲示板

# 「メソッド」表現と
# 「メッソド」表現が混在しているのが気になりますが、
# それはとりあえず置いといて……。


> DLL 側の引数が byref の object型になっていて、
> 各メソッド内で、object.hoge = "" 等
> DLL 側で値をセットしています。
VB6製DLLにオブジェクトを渡す場合、そのデータ型は、COM として
レジストリに登録されている型である必要があります。指定したクラスが、
COMとして公開されているかどうかを確認してみてください。


> object hoge = new clsHoge();
> vbdll.vbhoge( ref hoge );

こんな感じでどうでしょう。


---------- VB6製DLL (ProgID = "VB6SampleDLL.SampleClass") ----------
Option Explicit
Public Sub vbhoge(ByRef object As Object)
    object.hoge = Format(Now, "yyyy-mm-dd hh:nn:ss")
End Sub

'以下は、Marshal.ReleaseComObject の解放が行われたかのチェック用
Private Sub Class_Initialize()
    Debug.Print "-->"; ObjPtr(Me)
End Sub
Private Sub Class_Terminate()
    Debug.Print "<--"; ObjPtr(Me)
End Sub


---------- C#2.0製コンソールアプリ ----------
using System;
using System.Runtime.InteropServices;

namespace ConsoleApplication1
{
  class Program
  {
    static void Main(string[] args)
    {
      VB6SampleDLL.SampleClass vbdll = null;
      try
      {
        object clsHoge = new Hoge();
        vbdll = new VB6SampleDLL.SampleClassClass();
        vbdll.vbhoge(ref clsHoge);
        Console.WriteLine(((Hoge)clsHoge).hoge);
      }
      catch (Exception ex)
      {
        Console.WriteLine(ex.Message);
      }
      finally
      {
        if ((vbdll != null) && Marshal.IsComObject(vbdll))
        {
          Marshal.ReleaseComObject(vbdll);
        }
      }
      Console.ReadLine();
    }
  }

  [ComVisible(true)]
  //[Guid("{1F4F835B-1702-4df9-8AF8-A782713FD1EC}")]
  //[ClassInterfaceAttribute(ClassInterfaceType.AutoDual)]
  public class Hoge
  {
    public string hoge = String.Empty;
  }
}

# 回答にあらず

> VS2002 VC++ Managed C++アプリケーションで学習しています。
> xp　ではどのような記述（コードの書き方）になるのでしょうか？

Managed C++ なら、コンソールへの色づけはエスケープシーケンスではなく、
Console クラスにて行えます。ただし、(2002 ではなく)2005 が必要ですが。

//-------------------
#include "stdafx.h"
using namespace System;
void main()
{
	Console::BackgroundColor = ConsoleColor::Green;
	Console::ForegroundColor = ConsoleColor::Red;
	Console::WriteLine(L"Enterキーを押してください。");

	Console::ResetColor();
	Console::ReadLine();
}

> セルのコピーだけがうまくいきません。

Range クラスの Copy メソッドの事で良いでしょうか?

だとすれば、Excel 97 までは戻り値の無い(void)メソッドでしたが、
2000 以上ではバリアント(object)を返すメソッドに変更されています。


具体的には、こんな定義です。
-----------------

[uuid(00020846-0001-0000-C000-000000000046)]
interface IRange : IDispatch 
{
   // Excel 8
   // HRESULT _stdcall Copy([in, optional] VARIANT Destination);

   // Excel 9, 10, 11
   HRESULT _stdcall Copy(
         [in, optional] VARIANT Destination, 
         [out, retval] VARIANT* RHS);
}


[uuid(00020846-0000-0000-C000-000000000046)]
dispinterface Range
{
  methods:
    // Excel 8
    // [id(0x00000227)]
    // void Copy([in, optional] VARIANT Destination);

   // Excel 9, 10, 11
    [id(0x00000227)]
    VARIANT Copy([in, optional] VARIANT Destination);
}

> 計量値を読み、ノートに手書きをして電卓で計算する
> この操作は非常に煩雑で、これがうまくいけば面白いんですが…。

手書きの部分で記入誤りが発生したり、
電卓の打ち間違いなどが発生したりしますからね。

それでこの作業をプログラムを使用して自動化したいと思ったのですね。

ちょっと画面サンプルを作ってみました。

画面サンプル--------------------------------------------
　　　　　[計測ボタン] [計測ボタン] [計測ボタン]

　　　　　　　一つ目　|　　二つ目　|　　　三つ目
皿　　　：　　　　11  |　　　　12　|　　　　　13
サンプル：　　　 101　|　　　 102　|　　　　 103
乾燥後　：　　　　51  |　　　　52　|　　　　　53
------------------------------------------------
不揮発分：　　 50.89  |　 　51.88　|　　 　52.87
------------------------------------------------ここまで

一つ目・二つ目・三つ目専用の計測ボタンを用意します。
各計測ボタンはボタンを押すごとに
「皿」「サンプル」「乾燥後」の順に値を設定していきます。
※ここはフラグより計量回数を用意してどこまで計測したかを判断します。
乾燥後の計測が完了してところで、不揮発分に自動で値が設定されます。

このような感じであってますでしょうか？


画面をグリッド系のコントロールを使用すれば
三回限定でなくても可変にすることができますが、
扱いが難しいかもしれませんので

Label や TextBox を使用したほうが、早くできるでしょう。