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

> １．フォームA(ラベルとボタンを設置)とフォームB(ボタンを設置)を用意する。
> ２．フォームAに設置したボタンを押すとフォームBが呼び出される。
> ３．フォームBのボタンを押すと、フォームAの関数を呼び出す。

★案 1 ★ イベントを公開する。

//-------- Form1 (呼び出す側) --------
public partial class Form1 : Form
{
    public Form1() { InitializeComponent(); }

    private void button1_Click(object sender, EventArgs e)
    {
        using (Form2 dialog = new Form2())
        {
            dialog.ButtonClicked += new EventHandler(dialog_ButtonClicked);
            dialog.ShowDialog();
        }
    }

    void dialog_ButtonClicked(object sender, EventArgs e)
    {
        MessageBox.Show("Form1 内のメソッド");
    }
}


//-------- Form2 (呼び出される側) --------
public partial class Form2 : Form
{
    public Form2() { InitializeComponent(); }

    public event EventHandler ButtonClicked;
    private void button1_Click(object sender, EventArgs e)
    {
        if (ButtonClicked != null)
            ButtonClicked(sender, e);
    }
}



★案 2 ★ デリゲートを渡す。

//-------- Form1 (呼び出す側) --------
public partial class Form1 : Form
{
    public Form1() { InitializeComponent(); }
    private void OnButtonClicked()
    {
        MessageBox.Show("Form1 内のメソッド");
    }
    private void button1_Click(object sender, EventArgs e)
    {
        using (Form2 dialog = new Form2())
        {
            dialog.ShowDialog(OnButtonClicked);
        }
    }
}


//-------- Form2 (呼び出される側) --------
public partial class Form2 : Form
{
  public Form2() { InitializeComponent(); }

  public delegate void ButtonClicked();
  private ButtonClicked OnButtonClicked;
  public DialogResult ShowDialog(ButtonClicked function)
  {
      OnButtonClicked = function;
      return base.ShowDialog();
  }
  private void button1_Click(object sender, EventArgs e)
  {
      if (OnButtonClicked != null)
          OnButtonClicked();
  }
}

DataGridにノード記号を出さないように実装して、MainテーブルとSubテーブルのレコードを削除するには？


vb.net 2003

どうかよろしければ、私の質問に答えてやってください。
（頑張って表現したつもりではありますが、この文章でうまく伝わるか不安・・）


次のような構造の２つのテーブルを使います。(KEY)は主キーです。
[TMAIN] ------ メインテーブル
	CODE_MAIN(KEY)
	F1
	F2

[TDETAIL] ---- 詳細テーブル
	CODE_MAIN(KEY)
	CODE_SUB(KEY)
	F1
	F2

フォームにデータグリッド[dgMain]を置いて、そこにはメインテーブル[TMAIN]を表示させます。
DataSource = DsMain1
DataMember = TMAIN

表示はうまく出来ました。

このときにグリッドの選択された行を削除するボタンを作ることが目的です。
ただし、
	・メインテーブルに関連して詳細テーブルのレコードも削除されること。
	・DataGridにノード記号[+]を出さないように実装すること。
この２つことを同時に満たしたいのです。


いろいろ考えた末、以下のようなコードが出来上がりました。
txtDetailCodeMain を隠しているのですが、もっと良い方法は無いものでしょうか？

よろしくお願いします。

----------------------------------
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        odaMain.Fill(DsMain1, "TMAIN")
        odaDetail.Fill(DsDetail1, "TDETAIL") '
        'odaDetail.Fill(DsMain1, "TDETAIL")

        txtDetailCodeMain.Width = 0
        dgMain.ReadOnly = True
    End Sub

    Private Sub dgMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles dgMain.Paint
        '行選択
        If Me.BindingContext(DsMain1, "TMAIN").Count > 0 Then
            dgMain.Select(dgMain.CurrentCell.RowNumber)
        End If
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim i As Integer
        Dim mList1 As New ArrayList

        Dim mList2 As New ArrayList

        '選択されたデータグリッドのレコード番号をコレクションに保持
        With dgMain
            Dim mCount As Integer = .BindingContext(.DataSource, .DataMember).Count
            '逆順に入れる
            For i = mCount - 1 To 0 Step -1
                If .IsSelected(i) = True Then
                    mList1.Add(i)            'グリッドのレコード番号
                    mList2.Add(.Item(i, 0))  'CODE_MAIN
                End If
            Next i
        End With

        If mList1.Count = 0 Then
            '//削除しない
            Exit Sub
        ElseIf MessageBox.Show("選択した " & mList1.Count.ToString & " 行を削除してもよろしいですか？" & vbCrLf & vbCrLf & _
                             "※注意）次のテーブルで該当するレコードが全て削除されます。　　　" & vbCrLf & vbCrLf & _
                             "メインテーブル" & vbTab & "[TMAIN]" & vbCrLf & _
                             "詳細テーブル" & vbTab & "[TDETAIL]" & vbCrLf & _
                             "" _
                             , "削除" _
                             , MessageBoxButtons.OKCancel _
                             , MessageBoxIcon.Question _
                             , MessageBoxDefaultButton.Button2) <> DialogResult.OK Then
            '//削除しない
            Exit Sub
        Else

            '//削除処理
            Do While mList1.Count
                '--------------------------------------------------------------------------------------------
                'メインテーブルポジション移動
                Me.BindingContext(DsMain1, "TMAIN").Position = mList1(0)

                '''--------------------------------------------------------------------------------------------
                '''詳細テーブル削除(メインテーブル削除より先に実行する)
                ''Do While Me.BindingContext(DsMain1, "TMAIN.subMainDetail").Count > 0
                ''    Me.BindingContext(DsMain1, "TMAIN.subMainDetail").RemoveAt(0)
                ''Loop


                'DsMain1の中にリレーションシップで、[TDETAIL] を入れると上記のコードでうまく削除できました。
                'が、グリッド[dgMain]の左端に、[+]プラス記号が現れてしまいます。
                '
                'これが嫌なので、もう一つのデータセット[DsDetail1]を作って下記のコードにしてみたら、
                'うまく削除されました。
                'でも、txtDetailCodeMain は、TDETAIL の CODE_MAIN を Bindingして隠したものです。
                'もっと良い方法は無いものでしょうか？

                '--------------------------------------------------------------------------------------------
                '詳細テーブル削除
                i = 0
                Do While i < Me.BindingContext(DsDetail1, "TDETAIL").Count
                    Me.BindingContext(DsDetail1, "TDETAIL").Position = i

                    If Not (mList2(0) = txtDetailCodeMain.Text) Then
                        i += 1
                    Else
                        Me.BindingContext(DsDetail1, "TDETAIL").RemoveAt(Me.BindingContext(DsDetail1, "TDETAIL").Position)
                    End If
                Loop

                '--------------------------------------------------------------------------------------------
                'メインテーブル削除
                Me.BindingContext(DsMain1, "TMAIN").RemoveAt(Me.BindingContext(DsMain1, "TMAIN").Position)
                'Me.BindingContext(DsMain1, "TMAIN").RemoveAt(mList1(0))


                '--------------------------------------------------------------------------------------------
                'コレクションを削除
                mList1.RemoveAt(0)
                mList2.RemoveAt(0)
            Loop

            '再表示
            odaMain.Update(DsMain1, "TMAIN")
            odaDetail.Update(DsDetail1, "TDETAIL") '
            'odaDetail.Update(DsMain1, "TDETAIL")

            DsMain1.Clear()
            odaMain.Fill(DsMain1, "TMAIN")
            DsDetail1.Clear() '
            odaDetail.Fill(DsDetail1, "TDETAIL") '
            'odaDetail.Fill(DsMain1, "TDETAIL")
        End If
    End Sub

> 1番の方法でお願いします

うーむ。提示した3種の中では、もっとも一番難易度が高い気も。(^^;
とりあえず、こんな感じとか。

-------------------------
Option Strict Off
Imports System.Runtime.InteropServices

<ComImport(), Guid("64AB4BB7-111E-11D1-8F79-00C04FC2FBE1")> _
Public Class ShellUIHelper
End Class

Module Module1

  Sub Main()
    Dim url As String = "http://www.google.co.jp/webhp?complete=1&hl=ja"
    Dim title As String = "サジェスト"

    Dim helper As Object = Nothing
    Try
      helper = New ShellUIHelper()

      MsgBox("お気に入りの整理")
      helper.ShowBrowserUI("OrganizeFavorites", 0)

      MsgBox("お気に入りの追加")
      helper.AddFavorite(url, CObj(title))
    Finally
      If helper IsNot Nothing AndAlso Marshal.IsComObject(helper) Then
        Marshal.ReleaseComObject(helper)
      End If
    End Try
  End Sub

End Module
-------------------------

でもって、取り出しについては……
  Dim Path As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
で示されるパスの内容を列挙して、ショートカットを調べるとか。


> ラベルか何かを追加してと検討違いな事を考えていました。
VB2005 で、ApplicationSettings のプロパティ連結機能を使えば、
コントロールの内容を自動セーブ/自動ロードさせる事が可能なので、
その方法でも不可能ではなかったりします。
http://www.microsoft.com/japan/msdn/vs05/vbasic/vbmysettings.aspx


> 3番のファイル入出力の方法について魔界の仮面弁士さんがお勧めの参照ページがありましたら教えて頂けませんか？

ファイル入出力の方法はいろいろありますが、たとえば、XmlSerializer や
BinaryFormatter を使うという方法があります。下記を参照してみてください。

[オブジェクトの内容をXMLファイルに保存、復元する]
http://dobon.net/vb/dotnet/file/xmlserializer.html

[オブジェクトをXMLでシリアライズ]
http://www.atmarkit.co.jp/fdotnet/easyxml/index/index.html

[XML シリアル化の概要]
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/cpguide/html/cpconintroducingxmlserialization.asp
http://msdn2.microsoft.com/ja-jp/library/182eeyhh.aspx

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


> 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();
}