.NETプログラミング研究 第37号

.NET質問箱

「.NET質問箱」では、「どぼん!のプログラミング掲示板」に書き込まれた.NETプログラミングに関する投稿を基に、さらに考察を加え、Q&A形式にまとめて紹介します。

拡張子に関連付けられた実行ファイルのパスを取得するには?

注意

この記事の最新版は「拡張子に関連付けられた実行ファイルのパスを取得する」で公開しています。

【質問】

あるファイルの拡張子に関連付けられている実行ファイルのフルパスを取得するには、どのようにすればよいでしょうか?

【回答】

まず、Win32 APIのFindExecutable関数を使う方法が考えられます。

この場合、次のようなコードで実行ファイルのパスを取得できます。

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
Class MainClass
    <System.Runtime.InteropServices.DllImport("shell32.dll")> _
    Public Shared Function FindExecutable(ByVal lpFile As String, _
        ByVal lpDirectory As String, _
        ByVal lpResult As System.Text.StringBuilder) As Integer
    End Function
 
    '/ <summary>
    '/ エントリポイントです。
    '/ </summary>
    Public Shared Sub Main()
        '関連付けられた実行ファイルを取得するファイル名
        Dim fileName As String = "C:\test.txt"
        '結果を受け取るためのStringBuilderオブジェクト
        Dim exePath As New System.Text.StringBuilder(255)
        'fileNameに関連付けられた実行ファイルのパスを取得する
        If FindExecutable(fileName, Nothing, exePath) > 32 Then
            '成功した時は、exePathの内容を表示する
            Console.WriteLine(exePath.ToString())
        Else
            Console.WriteLine("失敗しました。")
        End If
    End Sub
End Class
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
class MainClass
{
    [System.Runtime.InteropServices.DllImport("shell32.dll")]
    public static extern int FindExecutable(
        string lpFile, string lpDirectory, 
        System.Text.StringBuilder lpResult);
 
    /// <summary>
    /// エントリポイントです。
    /// </summary>
    public static void Main()
    {
        //関連付けられた実行ファイルを取得するファイル名
        string fileName = "C:\\test.txt";
        //結果を受け取るためのStringBuilderオブジェクト
        System.Text.StringBuilder exePath =
            new System.Text.StringBuilder(255);
        //fileNameに関連付けられた実行ファイルのパスを取得する
        if (FindExecutable(fileName, null, exePath) > 32)
        {
            //成功した時は、exePathの内容を表示する
            Console.WriteLine(exePath.ToString());
        }
        else
        {
            Console.WriteLine("失敗しました。");
        }
    }
}

しかし残念ながらFindExecutableには、関連付けられた実行ファイルのパスにスペース文字が含まれる時、はじめのスペースがnull文字で置き換えられてしまうというバグがあります。このために、例えば実行ファイルのパスが、

C:\Program Files\Microsoft Office\WINWORD.EXE

であった場合、FindExecutableは、

C:\Program

という文字列を返したかのようになってしまいます。

FindExecutableのようなWin32 APIを使用しなくても、拡張子の関連付けに関する情報はレジストリに保存されていますので、レジストリを調べれば拡張子に関連付けられた実行ファイルのパスは分かります。

拡張子の関連付けに関する情報は、レジストリのHKEY_CLASS_ROOTにあります。具体的には、"HKEY_CLASS_ROOT\(拡張子)"というキーにその拡張子に関連付けられているファイルタイプ名が格納されており、"HKEY_CLASS_ROOT\(ファイルタイプ名)\shell\(openなどのアクション名)\command"というキーに実行ファイルのパス(コマンドライン引数を含む)が格納されています。

レジストリを調べて拡張子に関連付けられた実行ファイルのパスを取得するコードの例を示します。ここでは実行ファイルのパスだけでなく、コマンドライン引数が付いたまま返しています(つまり、「アクションを実行するアプリケーション」で指定されている文字列をそのまま返します)。

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
'/ <summary>
'/ ファイルに関連付けられた実行ファイルのパスを取得する
'/ </summary>
'/ <param name="fileName">関連付けを調べるファイル</param>
'/ <param name="extra">アクション(open,print,editなど)</param>
'/ <returns>実行ファイルのパス + コマンドライン引数</returns>
Public Shared Function FindAssociatedExecutableFile( _
    ByVal fileName As String, ByVal extra As String) As String
    '拡張子を取得
    Dim extName As String = System.IO.Path.GetExtension(fileName)
    'ファイルタイプを取得
    Dim regKey As Microsoft.Win32.RegistryKey = _
        Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(extName)
    If regKey Is Nothing Then
        Throw New Exception("見つかりませんでした。")
    End If
    Dim fileType As String = CStr(regKey.GetValue(""))
    regKey.Close()
 
    '「アクションを実行するアプリケーション」を取得
    Dim regKey2 As Microsoft.Win32.RegistryKey = _
        Microsoft.Win32.Registry.ClassesRoot.OpenSubKey( _
        String.Format("{0}\shell\{1}\command", fileType, extra))
    If regKey2 Is Nothing Then
        Throw New Exception("見つかりませんでした。")
    End If
    Dim command As String = CStr(regKey2.GetValue(""))
    regKey2.Close()
 
    Return command
End Function 
 
'/ <summary>
'/ ファイルに関連付けられた実行ファイルのパスを取得する
'/ </summary>
'/ <param name="fileName">関連付けを調べるファイル</param>
'/ <returns>実行ファイルのパス + コマンドライン引数</returns>
Public Shared Function FindAssociatedExecutableFile( _
    ByVal fileName As String) As String
    Return FindAssociatedExecutableFile(fileName, "open")
End Function
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
/// <summary>
/// ファイルに関連付けられた実行ファイルのパスを取得する
/// </summary>
/// <param name="fileName">関連付けを調べるファイル</param>
/// <param name="extra">アクション(open,print,editなど)</param>
/// <returns>実行ファイルのパス + コマンドライン引数</returns>
public static string FindAssociatedExecutableFile(
    string fileName, string extra)
{
    //拡張子を取得
    string extName = System.IO.Path.GetExtension(fileName);
    //ファイルタイプを取得
    Microsoft.Win32.RegistryKey regKey =
        Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(extName);
    if (regKey == null)
        throw new Exception("見つかりませんでした。");
    string fileType = (string) regKey.GetValue("");
    regKey.Close();
 
    //「アクションを実行するアプリケーション」を取得
    Microsoft.Win32.RegistryKey regKey2 =
        Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(
        string.Format(@"{0}\shell\{1}\command", fileType, extra));
    if (regKey2 == null)
        throw new Exception("見つかりませんでした。");
    string command = (string) regKey2.GetValue("");
    regKey2.Close();
 
    return command;
}
 
/// <summary>
/// ファイルに関連付けられた実行ファイルのパスを取得する
/// </summary>
/// <param name="fileName">関連付けを調べるファイル</param>
/// <returns>実行ファイルのパス + コマンドライン引数</returns>
public static string FindAssociatedExecutableFile(
    string fileName)
{
    return FindAssociatedExecutableFile(fileName, "open");
}

拡張子に関連付けられている実行可能ファイルパスを取得するためのAPIには、AssocQueryString関数もあります。これを使用するには、Internet Explorer 5以上が必要となります。詳しくは次のリンク先をご覧ください。

○この記事の基になった掲示板のスレッド

ピクチャボックスに表示されている画像をドラッグ&ドロップする

注意

この記事の最新版は「ピクチャボックスに表示されている画像をドラッグ&ドロップする」で公開しています。

【質問】

ピクチャボックスに表示されている画像をワードパッドやWordなどのアプリケーションにドラッグ&ドロップしてデータを渡したいのですが、どのようにすればよいでしょうか?

【回答】

ドラッグ&ドロップの操作を開始するには、コントロールのDoDragDropメソッドを使いますが、ワードパッドやWordにドラッグ&ドロップでデータを渡す場合は、DoDragDropメソッドのドラッグするデータに画像のImageオブジェクトやBitmapオブジェクトをそのまま指定するだけで大丈夫のようです。なお、ドラッグ&ドロップの基本的な方法については、「ドラッグ&ドロップを行う」をご覧ください。

例えば、ピクチャボックス"PictureBox1"のImageプロパティに設定されている画像をドラッグするためのコードは、次のようになります。(ここではPictureBox1のMouseDownイベントハンドラPictureBox1_MouseDownでドラッグを開始しています。)

  1
  2
  3
  4
  5
  6
Private Sub PictureBox1_MouseDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles PictureBox1.MouseDown
    'ドラッグを開始する
    PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.All)
End Sub
  1
  2
  3
  4
  5
  6
private void PictureBox1_MouseDown(
    object sender, System.Windows.Forms.MouseEventArgs e)
{
    //ドラッグを開始する
    PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.All);
}

さらに、画像をアプリケーションにドロップしたときに、画像のイメージに加えさらに画像ファイルのデータを渡すための方法がニュースグループの次のスレッドに投稿されています。

この方法によると、まずピクチャボックスに表示されている画像がファイルに保存されていない時はこれをファイルに保存してから、DataObjectオブジェクトのSetDataにより画像ファイルのパスとイメージを格納し、DoDragDropメソッドによりドラッグを行うというものです。

次にこの方法を使った例を示します。前と同様にピクチャボックス"PictureBox1"のImageプロパティに設定されている画像をドラッグするものとし、この画像はすでに"C:\temp.bmp"というファイルに保存されているものとします。画像が保存されていない場合は、あらかじめSaveメソッドにより保存するようにしてください。

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
Private Sub PictureBox1_MouseDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles PictureBox1.MouseDown
    '画像ファイル名の入ったstring型配列を作る
    Dim fileNames As String() = {"c:\temp.bmp"}
    'ファイルドロップ形式でDataObjectオブジェクトを作成する
    Dim dataObj As New DataObject(DataFormats.FileDrop, fileNames)
    'さらにビットマップ形式でも格納する
    dataObj.SetData(DataFormats.Bitmap, Image.FromFile(fileNames(0)))
    'ドラッグを開始する
    PictureBox1.DoDragDrop(dataObj, DragDropEffects.All)
End Sub
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
private void PictureBox1_MouseDown(
    object sender, System.Windows.Forms.MouseEventArgs e)
{
    //画像ファイル名の入ったstring型配列を作る
    string[] fileNames = {"c:\\temp.bmp"};
    //ファイルドロップ形式でDataObjectオブジェクトを作成する
    DataObject dataObj =
        new DataObject(DataFormats.FileDrop, fileNames);
    //さらにビットマップ形式でも格納する
    dataObj.SetData(
        DataFormats.Bitmap, Image.FromFile(fileNames[0]));
    //ドラッグを開始する
    PictureBox1.DoDragDrop(dataObj,DragDropEffects.All);
}

この方法でドラッグ&ドロップした場合、ドロップ先がエクスプローラである場合はもちろん、ワードパッドなど多くのアプリケーションへのドロップでも単にファイルのドロップとして扱われてしまうようです。

○この記事の基になった掲示板のスレッド

DataGridにLinkLabelを表示するには?

注意

この記事の最新版は「DataGridにLinkLabelを表示する」で公開しています。

【質問】

System.Windows.Forms.DataGridコントロールにLinkLabelを表示して、ハイパーリンクがはられているようにしたいのですが、どのようにすればよいでしょうか?

【回答】

DataGridColumnStyleクラスから派生した新しいクラスを作成することにより実現させる方法が適当だと思いますが、問題はどのようにLinkLabelを表示するかという点でしょう。

一番簡単で分かりやすいのは、DataGridColumnStyleクラスのEditメソッドでLinkLabelコントロールを表示するという方法です。ピラルクさんが掲示板に投稿していただいた方法や、ニュースグループ「microsoft.public.dotnet.framework.windowsforms」に投稿されたTravis Merkelさんの方法がこれです。DOBON.NET .NET Tipsで紹介している「DataGridでComboBoxを使う」のComboBoxをLinkLabelにそのまま代えたという感じです。

この方法はEditメソッドでLinkLabelを表示しているため、セルがアクティブになってからLinkLabelが表示され、はじめからLinkLabelが表示されるわけではありません。

この方法を使った簡単なサンプルを下に示します(かなりの手抜きです)。ここでは、LinkLabelをクリックすると、セルに表示されている文字列をProcess.Startメソッドに渡して呼び出しています。なお、DataGridColumnStyleクラスの使用法に関しては、「DataGridの列の幅を変更する」をご覧ください。

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
Imports System
Imports System.Data
Imports System.Drawing
Imports System.Windows.Forms
 
Namespace Dobon.Samples.Forms
    '/ <summary>
    '/ DataGridにLinkLabelを表示するDataGridColumnStyle
    '/ </summary>
    Public Class DataGridLinkLabelColumn
        Inherits DataGridTextBoxColumn
        'TextBoxの代わりに表示するLinkLabel
        Private _linkLabel As LinkLabel
 
        Public ReadOnly Property LinkLabel() As LinkLabel
            Get
                Return _linkLabel
            End Get
        End Property
 
        Public Sub New()
            _linkLabel = New LinkLabel
            AddHandler _linkLabel.Click, AddressOf _linkLabel_Click
        End Sub
 
        Protected Overloads Overrides Sub Edit( _
            ByVal source As System.Windows.Forms.CurrencyManager, _
            ByVal rowNum As Integer, _
            ByVal bounds As System.Drawing.Rectangle, _
            ByVal [readOnly] As Boolean, _
            ByVal instantText As String, _
            ByVal cellIsVisible As Boolean)
            MyBase.Edit(source, rowNum, bounds, [readOnly], _
                instantText, cellIsVisible)
            'TextBoxの代わりにLinkLabelを表示する
            TextBox.Visible = False
            _linkLabel.Parent = TextBox.Parent
            _linkLabel.Bounds = bounds
            _linkLabel.Text = TextBox.Text
            _linkLabel.Visible = True
            _linkLabel.BringToFront()
            _linkLabel.Focus()
        End Sub
 
        Private Sub _linkLabel_Click( _
            ByVal sender As Object, ByVal e As EventArgs)
            'LinkLabelがクリックされた時は表示されているTextを実行する
            Dim link As LinkLabel = CType(sender, LinkLabel)
            System.Diagnostics.Process.Start(link.Text)
        End Sub
    End Class
End Namespace
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
using System;
using System.Data;
using System.Drawing;
using System.Windows.Forms;
 
namespace Dobon.Samples.Forms
{
    /// <summary>
    /// DataGridにLinkLabelを表示するDataGridColumnStyle
    /// </summary>
    public class DataGridLinkLabelColumn : DataGridTextBoxColumn
    {
        //TextBoxの代わりに表示するLinkLabel
        private LinkLabel _linkLabel;
        public LinkLabel LinkLabel
        {
            get {return _linkLabel;}
        }
 
        public DataGridLinkLabelColumn()
        {
            _linkLabel = new LinkLabel();
            _linkLabel.Click += new EventHandler(_linkLabel_Click);
        }
 
        protected override void Edit(
            CurrencyManager source,
            int rowNum,
            Rectangle bounds,
            bool readOnly,
            string instantText,
            bool cellIsVisible)
        {
            base.Edit(source, rowNum, bounds, readOnly,
                instantText, cellIsVisible);
 
            //TextBoxの代わりにLinkLabelを表示する
            TextBox.Visible = false;
            _linkLabel.Parent = TextBox.Parent;
            _linkLabel.Bounds = bounds;
            _linkLabel.Text = TextBox.Text;
            _linkLabel.Visible = true;
            _linkLabel.BringToFront();
            _linkLabel.Focus();
        }
 
        private void _linkLabel_Click(object sender, EventArgs e)
        {
            //LinkLabelがクリックされた時は表示されているTextを実行する
            LinkLabel link = (LinkLabel) sender;
            System.Diagnostics.Process.Start(link.Text);
        }
    }
}

アクティブなセルだけでなく、すべての行にLinkLabelを表示するには、Paintメソッドで何らかの処理を行う必要があります。具体的には、必要な数だけLinkLabelコントロールを作成するか、あたかもLinkLabelコントロールのように文字列を描画するかということになるでしょう。

必要な数だけLinkLabelコントロールを作成する例が、ニュースグループ「microsoft.public.dotnet.framework.windowsforms.controls」に投稿されています。

この方法は、LinkLabelコントロールを行ごとにHashtableに保存しておき、Paintメソッドで必要に応じて配置するというものです。行ごとにLinkLabelコントロールを作成しているため、行が多くなると、かなりメモリを消費するでしょう。

それが嫌であれば、PaintメソッドでLinkLabelのような文字列を描画すればよいということになります。ここで問題なのは、どうやってクリックされたことを知るかということです。そのためには、例えばDataGridのMouseUpイベントでHitTestInfoメソッドを使ってセル上でマウスボタンが押されたか判断するという方法があります。LinkLabelの動作とはかなり違いますが、仕方のないところでしょう。

以下にPaintメソッドで文字列を描画するDataGridColumnStyleの簡単な例を示します。ここでは、DataGridのMouseMoveイベントでマウスがセル上にあるか調べ、そうであればマウスカーソルをハンドカーソルに変更しています。また、DataGridのMouseUpイベントでクリックされたことにしています。

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
Namespace Dobon.Samples.Forms
    '/ <summary>
    '/ DataGridにLinkLabelを表示するDataGridColumnStyle
    '/ </summary>
    Public Class DataGridLinkLabelColumn2
        Inherits DataGridTextBoxColumn
        Private _margin As New Point(1, 2)
        Private _visitedLinks As System.Collections.ArrayList
        Private _dataGrid As DataGrid
 
        Public Sub New()
            _visitedLinks = New System.Collections.ArrayList
        End Sub
 
        Protected Overloads Overrides Sub Edit( _
            ByVal [source] As CurrencyManager, _
            ByVal rowNum As Integer, _
            ByVal bounds As Rectangle, _
            ByVal [readOnly] As Boolean, _
            ByVal instantText As String, _
            ByVal cellIsVisible As Boolean)
        End Sub
 
        'Paintメソッドをオーバーライドする
        Protected Overloads Overrides Sub Paint( _
            ByVal g As Graphics, _
            ByVal bounds As Rectangle, _
            ByVal [source] As CurrencyManager, _
            ByVal rowNum As Integer, _
            ByVal backBrush As Brush, _
            ByVal foreBrush As Brush, _
            ByVal alignToRight As Boolean)
            '表示する文字列を取得
            Dim [text] As String = _
                GetColumnValueAtRow([source], rowNum).ToString()
 
            Dim sf As New StringFormat
            '配置を指定する
            Select Case Me.Alignment
                Case HorizontalAlignment.Left
                    sf.Alignment = StringAlignment.Near
                Case HorizontalAlignment.Center
                    sf.Alignment = StringAlignment.Center
                Case HorizontalAlignment.Right
                    sf.Alignment = StringAlignment.Far
            End Select
            'テキストの方向を指定する
            If alignToRight Then
                sf.FormatFlags = _
                    sf.FormatFlags Or _
                    StringFormatFlags.DirectionRightToLeft
            End If
            '背景を塗りつぶす
            g.FillRectangle(backBrush, bounds)
 
            '前景色を決める
            Dim textBrush As Brush
            If _visitedLinks.Contains([text]) Then
                textBrush = Brushes.Purple
            Else
                textBrush = Brushes.Blue
            End If 'フォントにアンダーラインをつける
            Dim textFont As New Font( _
                DataGridTableStyle.DataGrid.Font.FontFamily, _
                DataGridTableStyle.DataGrid.Font.Size, _
                DataGridTableStyle.DataGrid.Font.Style _
                Or FontStyle.Underline)
 
            Dim rectf As New RectangleF( _
                bounds.X, bounds.Y, bounds.Width, bounds.Height)
            rectf.Inflate(-_margin.X, -_margin.Y)
 
            '文字列を描画する
            g.DrawString([text], textFont, textBrush, rectf, sf)
 
            sf.Dispose()
            textFont.Dispose()
        End Sub
 
        Protected Overrides Sub SetDataGridInColumn( _
            ByVal value As DataGrid)
            MyBase.SetDataGridInColumn(value)
            AddHandler value.MouseMove, AddressOf DataGrid_MouseMove
            AddHandler value.MouseUp, AddressOf DataGrid_MouseUp
            _dataGrid = value
        End Sub
 
        Protected Overloads Overrides Sub Dispose( _
            ByVal disposing As Boolean)
            MyBase.Dispose(disposing)
            RemoveHandler _dataGrid.MouseMove, _
                AddressOf DataGrid_MouseMove
            RemoveHandler _dataGrid.MouseUp, _
                AddressOf DataGrid_MouseUp
        End Sub
 
        Private Sub DataGrid_MouseMove( _
            ByVal sender As Object, ByVal e As MouseEventArgs)
            'マウスがセル上にあるときは、カーソルを変更する
            Dim hti As DataGrid.HitTestInfo = _
                DataGridTableStyle.DataGrid.HitTest(e.X, e.Y)
            If hti.Type = DataGrid.HitTestType.Cell And _
                hti.Column = _
                    DataGridTableStyle.GridColumnStyles.IndexOf(Me) Then
                DataGridTableStyle.DataGrid.Parent.Cursor = _
                    Cursors.Hand
            Else
                DataGridTableStyle.DataGrid.Parent.Cursor = _
                    Cursors.Default
            End If
        End Sub
 
        Private Sub DataGrid_MouseUp( _
            ByVal sender As Object, ByVal e As MouseEventArgs)
            Dim grid As DataGrid = DataGridTableStyle.DataGrid
            Dim info As DataGrid.HitTestInfo = grid.HitTest(e.X, e.Y)
            'マウスがセル上にあるか調べる
            If info.Type = DataGrid.HitTestType.Cell And info.Column = _
                DataGridTableStyle.GridColumnStyles.IndexOf(Me) Then
                'Process.Startを呼び出す
                Dim cm As CurrencyManager = _
                    CType(grid.BindingContext( _
                    grid.DataSource, grid.DataMember), CurrencyManager)
                Dim str As String = _
                    GetColumnValueAtRow(cm, info.Row).ToString()
                System.Diagnostics.Process.Start(str)
                '訪れたことを記憶する
                _visitedLinks.Add(str)
            End If
        End Sub
    End Class
End Namespace
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
namespace Dobon.Samples.Forms
{
    /// <summary>
    /// DataGridにLinkLabelを表示するDataGridColumnStyle
    /// </summary>
    public class DataGridLinkLabelColumn2 : DataGridTextBoxColumn
    {
        Point _margin = new Point(1, 2);
        private System.Collections.ArrayList _visitedLinks;
        DataGrid _dataGrid;
 
        public DataGridLinkLabelColumn2()
        {
            _visitedLinks = new System.Collections.ArrayList();
        }
 
        protected override void Edit(
            CurrencyManager source,
            int rowNum,
            Rectangle bounds,
            bool readOnly,
            string instantText,
            bool cellIsVisible)
        {
        }
 
        //Paintメソッドをオーバーライドする
        protected  override void Paint(Graphics g, 
            Rectangle bounds, 
            CurrencyManager source, 
            int rowNum, 
            Brush backBrush, 
            Brush foreBrush, 
            bool alignToRight)
        {
            //表示する文字列を取得
            string text =
                GetColumnValueAtRow(source, rowNum).ToString();
 
            StringFormat sf = new StringFormat();
            //配置を指定する
            switch (this.Alignment)
            {
                case HorizontalAlignment.Left:
                    sf.Alignment = StringAlignment.Near;
                    break;
                case HorizontalAlignment.Center:
                    sf.Alignment = StringAlignment.Center;
                    break;
                case HorizontalAlignment.Right:
                    sf.Alignment = StringAlignment.Far;
                    break;
            }
            //テキストの方向を指定する
            if (alignToRight)
                sf.FormatFlags |= StringFormatFlags.DirectionRightToLeft;
 
            //背景を塗りつぶす
            g.FillRectangle(backBrush, bounds);
 
            //前景色を決める
            Brush textBrush;
            if (_visitedLinks.Contains(text))
                textBrush = Brushes.Purple;
            else
                textBrush = Brushes.Blue;
            //フォントにアンダーラインをつける
            Font textFont =
                new Font(DataGridTableStyle.DataGrid.Font.FontFamily,
                DataGridTableStyle.DataGrid.Font.Size,
                DataGridTableStyle.DataGrid.Font.Style
                    | FontStyle.Underline);
 
            RectangleF rectf = new RectangleF(
                bounds.X, bounds.Y, bounds.Width, bounds.Height);
            rectf.Inflate(-_margin.X, -_margin.Y);
 
            //文字列を描画する
            g.DrawString(text, textFont,
                textBrush, rectf, sf);
 
            sf.Dispose();
            textFont.Dispose();
        }
 
        protected override void SetDataGridInColumn(DataGrid value)
        {
            base.SetDataGridInColumn(value);
            value.MouseMove +=
                new MouseEventHandler(DataGrid_MouseMove);
            value.MouseUp +=
                new MouseEventHandler(DataGrid_MouseUp);
            _dataGrid = value;
        }
 
        protected override void Dispose(bool disposing)
        {
            base.Dispose(disposing);
            _dataGrid.MouseMove -=
                new MouseEventHandler(DataGrid_MouseMove);
            _dataGrid.MouseUp -=
                new MouseEventHandler(DataGrid_MouseUp);
        }
 
        private void DataGrid_MouseMove(
            object sender, MouseEventArgs e)
        {
            //マウスがセル上にあるときは、カーソルを変更する
            DataGrid.HitTestInfo hti =
                DataGridTableStyle.DataGrid.HitTest(e.X, e.Y);
            if (hti.Type == DataGrid.HitTestType.Cell &&
                hti.Column ==
                    DataGridTableStyle.GridColumnStyles.IndexOf(this))
                DataGridTableStyle.DataGrid.Parent.Cursor =
                    Cursors.Hand;
            else
                DataGridTableStyle.DataGrid.Parent.Cursor =
                    Cursors.Default;
        }
 
        private void DataGrid_MouseUp(object sender, MouseEventArgs e)
        {
            DataGrid grid = DataGridTableStyle.DataGrid;
            DataGrid.HitTestInfo info = grid.HitTest(e.X, e.Y);
            //マウスがセル上にあるか調べる
            if (info.Type == DataGrid.HitTestType.Cell
                && info.Column ==
                DataGridTableStyle.GridColumnStyles.IndexOf(this))
            {
                //Process.Startを呼び出す
                CurrencyManager cm =
                    (CurrencyManager) grid.BindingContext[
                    grid.DataSource, grid.DataMember];
                string str = GetColumnValueAtRow(cm, info.Row).ToString();
                System.Diagnostics.Process.Start(str);
                //訪れたことを記憶する
                _visitedLinks.Add(str);
            }
        }
    }
}

これらの方法に不満があるならば、市販品を使うのがよいでしょう。LinkLabelを表示できるフリーのライブラリはほとんど見かけませんが、「Extended DataGrid」というものがあります。

○この記事の基になった掲示板のスレッド

コンピュータ雑学

ここでは、話すと人に嫌われるなまぬるいコンピュータに関する雑学 を紹介します。

Windows NTの「NT」の意味は?

Microsoft Windows NTの「NT」の意味に関して、Microsoftは公式にはなんら言及をしていないようですが、Microsoftのいくつかの発行物では、「New Technology」の略で「NT」と説明されているようです。

しかし広く信じられている説には、別のものがあります。それは、「Windows NTの父」と呼ばれるDave CutlerがMicrosoftに来る前にDEC社で開発したOS、VMSのそれぞれのアルファベットを次の文字に進めた「WNT」から由来しているというものです。しかし、Windows NTははじめ「NT OS/2」と呼ばれていたことを考慮すると、この説はただの冗談であるように思われます。

さらには、Windows & .NET Magazine Networkの「WinInfo Daily UPDATE, January 24, 2003」によると、Windows NTの開発者の一人であるMark Lucovskyが「NT」の意味について、開発にi860のエミュレータである「N10」を使っていたため、「N-Ten」で動くことから「NT」と名づけたと明かしています。

一体どれが真実でどれがただの噂話(あるいは冗談)なのか、本当のところは誰にも分からないのかもしれませんね。

コメント



ページ情報
  • カテゴリ : .NET
  • 作成日 : 2004-07-14 (水) 06:00:00
  • 作成者 : DOBON!
  • 最終編集日 : 2010-03-21 (日) 02:33:20
  • 最終編集者 : DOBON!
[ トップ ]   [ 編集 | 凍結 | 差分 | バックアップ | 添付 | 複製 | 名前変更 | リロード ]   [ 新規 | 子ページ作成 | 一覧 | 単語検索 | 最終更新 | ヘルプ ]