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

はじめまして。
asp.net/VB.netを始めて1ヶ月くらいのものです。

初歩的な質問かと思いますが、どうぞよろしくお願いします。

asp.net/VB.netでプログラムしています。

次のようなDataTable(dt1)があったとして、

(dt1)
日付 | 種類 | 内容１| 内容２
----------------------
1/1  |  A   |  1   | 1’
1/2  |  B   |  2   | 2’
1/2  |  A   |  3   | 3’
1/3  |  C   |  4   | 4’
1/4  |  A   |  5   | 5’
1/4  |  C   |  6   | 6’


日付と種類で分類して、内容を一覧表示させたいと考えています。

    | A    |   B  |  C  |
1/1 | 1 1’|      |     | 
1/2 | 3 3' | 2 2' |     |
1/3 |      |      | 4 4’|
1/4 | 5 5’|      | 6 6’|

横軸と縦軸は決まった数のため、動的に変動させる必要はありません。
ただし、各セルの該当レコード数は、可変です。

実現の方法として、
横軸が「種類」、縦軸が「日付」のテーブルを作成し、
各セルにDataGridを配置し、dt1のDataViewで必要な行を表示する、
といったことしか思いつきませんでした。

この場合、実際は、縦が７横が８あるため、56個のDataGridが必要になります。
DataGridを56個も置くというのは、非現実的でしょうか？
あるいは、何らかの問題があるのでしょうか？

それとも、普通ではない方法をしようとしていますでしょうか？
どなたか、ご教示お願いいたします。

いつもお世話になっております。

TCP/IP通信で、Client側で、BinaryFormatterを使用しシリアライズした構造体のデータを
Server側で受信したいと思っております。
下記のように記述した場合
「フィールド'Sample_Server.Form1.StructTEST.str1'は割り当てられません。常に既定値
nullを使用します。」
の警告がコンパイル時に表示されるのですが、どのように記述すれば、値を割り当てること
ができるのでしょうか？
(先日、送信でこちらの掲示板で質問させていただいたのですが、今度は受信側です。。。)

ご教授を頂ければ幸いです。

--------------------
/* Server側のプロジェクト */
// データ受信箇所抜粋
private Socket mySock;
private NetworkStream netStream;

netStream = new NetworkStream(mySock);
BinaryFormatter formatter = new BinaryFormatter();
StructTEST sTest = new StructTEST();
sTest = (StructTEST)formatter.Deserialize(netStream);

// 構造体
[Serializable]
struct StructTEST
{
	public string str1;
	public string str2;
}

--------------------
また、Clietn側は問題なく動いているように見えますが、下記のようにしてデータを渡しています。
/* Client側のプロジェクト */
// データ送信箇所抜粋
private NetworkStream netStream

StructTEST sTest = new StructTEST();
sTest.str1 = "123";
sTest.str2 = "456";
BinaryFormatter formatter = new BinaryFormatter()
formatter.Serialize(netStream, sTest);

// 構造体
[Serializable]
struct StructTEST
{
	public string str1;
	public string str2;
}

お世話になっております。

BinaryFormatterの使用方法がいまいちわからないので、投稿させて頂きました。

TCP/IPで通信をしており、構造体をBinaryFormatterでシリアライズしようとして
いるのですが、コンパイルエラーが発生してしまいます。。
(エラー内容から"AssembleyInfo.cs"を見てみたのですが、どこをどのように変更
 すればよいのかもわからないです。。。)

アドバイス等頂ければ幸いです。

下記のように記述しています。
(.NET2005、WindowsXP)
----------------
        private TcpClient tcpC = new TcpClient();
        private NetworkStream netStream;
        private string IP = "";
        private Int32 port;

        // 接続ボタン
        private void btn_connect_Click(object sender, EventArgs e)
        {
            port = Int32.Parse(tbox_port.Text.Trim());
            IP = tbox_ip.Text.Trim();

            tcpC.Connect(IP, port);
            netStream = tcpC.GetStream();
        }
	
	// 構造体
        struct StructTEST
        {
            public string str1;
            public string str2;
        }

        // BinaryFomatterで送信テスト
        private void button1_Click(object sender, EventArgs e)
        {
            StructTEST sTest = new StructTEST();
            sTest.str1 = "123";
            sTest.str2 = "456";

            BinaryFormatter formatter = new BinaryFormatter();
            formatter.Serialize(netStream, sTest);
            /* 
                 ↑で、アセンブリ'Sample_Client, Version=1.0.0.0, Culture=neutral,
               　publicKey Token=null'の型'Sample_Client.Form1+StructTEST'はシリアル
            　   化可能として設定されていません。
            */
        }

コンパイルしたアプリ、あるいは *.vshost.exe の方は、
リリース/デバッグで何か大きな違いはありそうですか?


> 再現した僕の環境は:
プロダクトID が異なるとはいえ、環境自体は同じですね。
が、やはり当方では再現しませんでした。

強いてあげるならば、当方では KB912019 の hoffix を適用しているのですが、
もしかして、これが関係してくるのかな?
(hotfix を適用していない環境が手元に無いので、比較はできませんが…)

----------------
Microsoft Visual Studio 2005
  Version 8.0.50727.42  (RTM.050727-4200)
Microsoft .NET Framework
  Version 2.0.50727
インストールされている Edition: Enterprise
 (中略)
Microsoft Visual Studio 2005 Tools for the Microsoft Office System 日本語 用の Hotfix (KB912019)   
  この Hotfix は Microsoft Visual Studio 2005 Tools for the Microsoft Office System 日本語 用です。＼n
  後で最新版の Service Pack をインストールした場合、この Hotfix は自動的にアンインストールされます。＼n
  詳細については、http://support.microsoft.com/kb/912019 を参照してください。
----------------

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