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

開発環境：VS2005
言語　　：VB.NET

指定したフォルダ内の変更や作成されたファイルを取得し、複製する処理を作成しています。
動作はするようになったのですが、起動時の動作が不可解なので質問させてください。

起動時にファイルリストを取得しているはずなのに
・起動時にファイルリストを取得
・対象フォルダのファイルを変更
・ボタンを押して新たにファイルリストを取得

以上の処理が終わった後、
変更前と変更後のファイルリストを比較しても内容が同じままです。
どうやら起動時にファイルリストがきちんと取れていないようなのですが、
コメント化してある値のチェックを行うことで意図した値が取得できます。

どうにも原因がつかめないので、どなたかアドバイスをお願いします。

' 以下ソース
Imports System.IO
Public Class Form1
    ' ファイルリスト格納用
    Private FileList As New List(Of FileInfo)
    Private Const strTargetFolder = "D:\Data\FolderWatch\1\"

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' 既存のファイルリストを取得
        FileList.AddRange(New DirectoryInfo(strTargetFolder).GetFiles)
        ' ------------------------------------------
        ' ここを有効にすることで正しく動作する
        ' 既存のファイルリストを出力
        'For Each f As FileInfo In FileList
        '    Debug.WriteLine(f.Name & ":" & f.Length)
        'Next
        ' ------------------------------------------
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' 最新のファイルリストを取得
        Dim NewFileList As New List(Of FileInfo)
        NewFileList.AddRange(New DirectoryInfo(strTargetFolder).GetFiles)
        ' 前回のファイルリストを出力
        For Each f As FileInfo In FileList
            Debug.WriteLine(f.Name & ":" & f.Length)
        Next
        ' 最新のファイルリストを出力
        For Each f As FileInfo In NewFileList
            Debug.WriteLine(f.Name & ":" & f.Length)
        Next
        ' データ更新
        FileList = NewFileList
    End Sub
End Class

VB2005, WinFormです。

ToolStripButtonで▼の部分を押さないとドロップダウンリストが開かないのですが、
これを見出しの部分も含めてどこをクリックしてもドロップダウンリストが開くようにしたいです。
かつ、見出しと▼の分割線も消したいです。

デザイナ上でToolStripButtonをクリックした時にはこの動作になるようですが…
何か方法はありますでしょうか？

※図で補足

現状
  --------------
  |ファイル |▼|
  --------------
             ^^
             ↑DropDownListが開くのはここだけ
希望
  --------------
  |ファイル  ▼|
  --------------
   ^^^^^^^^^^^^
    ↑全部  ↑分割線も消したい


※訂正
×ToolStripButton
○ToolStripSplitButton

こんな感じで DataGridview を表示しているときに

+------+-------------+
|  ID  |    NAME     |
+------+-------------+
| 0033 | 刈歩菜良    |
+------+-------------+
| 0034 | R・田中一郎 |
+------+-------------+
| 0051 | ぽぴ王子    |
+------+-------------+
| 0054 | シャノン    |
+------+-------------+
| 0076 | とりこびと  |
+------+-------------+
| 0095 | 片桐 継     |
+------+-------------+
|                    |
|                    | ← ここが空白になるので、何かほしい
|                    |
|                    |
|                    |
|                    |
|                    |
+--------------------+

ってことなのかな？と思いました。
だとすると、データソースとして与えるテーブルにダミーの行を追加する
ぐらいしか思いつきません。
あ、あと表示のみの場合に限ります。編集されると困るし。

田中さんも書かれていますが、質問したいことが相手に伝わらないと
回答を得るのも難しいんじゃないかと思います。
言いたいことが伝わるかどうか、質問内容を投稿する前に一度読み直して
みるのもいいんじゃないでしょうか。

■No5788 (nana* さん) に返信
> ある特定のプリンタのポート番号をＩＰアドレス\ポート番号形式で取得したいと考えています。
(中略)
> WMIを使用すれば取得可能らしいのですが、WMIに関する技術力不足のため

WMI でよければ、これでどうでしょう。


Option Explicit
Private Sub Form_Load()
    Dim prn As Object
    For Each prn In GetObject("winmgmts:").InstancesOf("Win32_Printer")
        Debug.Print "名前="; prn.Name
        Debug.Print "モデル="; prn.DriverName
        Debug.Print "ポート="; prn.PortName
        Debug.Print "---------------"
    Next
End Sub


http://msdn2.microsoft.com/en-us/library/Aa394363.aspx

■No5836 (HIRO さん) に返信

ご返答ありがとうございます！

> ReadXMLでDataSetにデータを読み込めているんですよね？
> DataSetにDataTableが出来ていると思うのですが、そのDataTableの値を変更してWriteXMLするのが簡単かと思います。（但し、細かい処理をするには不向きかもしれません）
> 
> 特定のタグを探す場合はDataTableのSelectメソッドが使用できるかと思います。

DataTableは自動的に作成されているのでしょうか？
うまく値を取り出せません・・・。
以下にソースコードを記述します。

//ソースコード--------
DataSet dtSet = new DataSet();
StreamReader reader = new StreamReader("test.xml",System.Text.Encoding.GetEncoding("Shift_Jis"));

dtSet.ReadXml(reader);

//---------------------

間違いがあればご指摘下さい。
なお、XmlDocumentを使用することも考えたのですが
DataSetの方が特定のタグを検索するのが容易なようだったので
DataSetを使用しています。
認識は正しいでしょうか？

以上、よろしくお願い致します。

いつもお世話になっています。
Visual Studio 2005 C#でXMLファイルのエディタを作成しています。
そこで、DataSetにてXMLファイルを読み込み、データを追加する際に
構造ごと（DataTableごと）指定した位置に追加したいのですが
うまくいきません。

// ソースコード↓↓↓
DataSet aDtSet = new DataSet();
StreamReader aReaderv= new StreamReader("sample.xml",System.Text.Encoding.GetEncoding("Shift_Jis"));

//XMLファイル読み込み
aDtSet.ReadXml(Reader);

//テーブルの追加？？？

//sample.xmlの構造
//<ProjectFile>
//  <ProjectInfo>
//    <Type>1</Type>
//    <Version>1.0</Version>
//  </ProjectInfo>
//  <ModelData>
//    <Element>
//       <Name>aaa</Name>
//       　<Value> --------------------- ※このValueを構造も含めコピーし
//          　<Data>1<Data>            | 　Name以下に複数追加したい
//       　</Value> --------------------
//       </Name>
//    </Element>
//  </ModelData>
//</ProjectFile>

DataTableの扱い方が分からずうまくできません。
ご教授よろしくお願い致します。

> プログラマが根本的に理解していないようでは、やはりバグが生まれると思うからです。
至極もっともなご意見で恐れ入ります。私自身.NETでの開発経験がないのでメンバーにレクチャー
できるかどうか自信がないのでなんとか手法で逃げようとしていたのかも知れません。

> SQLServerから出し入れするときに小数部2桁で扱うということですよね？
> プログラム内部では小数部3桁以上を持つことになると思います。(でないと丸め方を選べない)

最初は下記のようにSQL Serverの結果と一致するように固定小数点型をエミュレート？するような
ものを考えていたのですが、何か方向性が違うような気がしていた次第です。


-----------------------------------------------------------------------------------
Option Strict On

Imports System.Data.SqlTypes

Public Class Class1

    Shared Sub main()

        Dim d As Decimal = 1D
        Dim d2 As Decimal = d / 3D
        Dim d3 As Decimal = d2 * 3D
        Dim d4 As Decimal = (1D / 3D) * 3D

        MessageBox.Show(d3.ToString & "：" & d4.ToString)

        Dim c As New Currency(19, 4)
        Dim c2 As New Currency(19, 4)
        Dim c3 As New Currency(19, 4)
        Dim c4 As New Currency(19, 4)

        c.Value = 1D
        c2.Value = c.Value / 3D
        c3.Value = c2.Value * 3D
        c4.Value = (1D / 3D) * 3D

        MessageBox.Show(c3.Value.ToString & "：" & c4.Value.ToString)

    End Sub

End Class

Public Structure Currency

    Private _Value As SqlDecimal
    Private _Presition As Integer
    Private _Scale As Integer

    Public Sub New(ByVal p As Integer, ByVal s As Integer)
        _Presition = p
        _Scale = s
    End Sub

    Public Property Value() As SqlDecimal
        Get
            Return _Value
        End Get
        Set(ByVal sd As SqlDecimal)
            _Value = SqlDecimal.ConvertToPrecScale(sd, _Presition, _Scale)
        End Set
    End Property

End Structure

-----------------------------------------------------------------------------------

【SQL Server】

declare @d decimal(19,4) 
declare @d2 decimal(19,4) 
declare @d3 decimal(19,4) 
declare @d4 decimal(19,4)

set @d = 1.
set @d2 = @d / 3.
set @d3 = @d2 * 3.
set @d4 = (1. / 3.) * 3.

select str(@d3,19,4) + ':' + str(@d4,19,4)

結果：0.9999:1.0000