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

■No69928 (らうむ さん) に返信
> CheckBoxはOnPaintをオーバーライドしてテキストを自前描画できれば・・・と思いましたが、
> 既定のテキスト描画を止めることができませんでした。
> CheckBox、LabelともにDrawMode等も指定できそうになく。

VB.NETですが、OnPaintを使う例です。CheckBoxStateは各状態に合わせ変更してみて下さい。

Public Class CheckBoxEx
    Inherits CheckBox

    Public Sub New()
        SetStyle(ControlStyles.UserPaint, True)
    End Sub

    Protected Overrides Sub OnPaint(pevent As System.Windows.Forms.PaintEventArgs)
        Dim grp = pevent.Graphics
        Using brs As New SolidBrush(Me.BackColor)
            grp.FillRectangle(brs, Me.ClientRectangle)
        End Using
        CheckBoxRenderer.DrawParentBackground(grp, Me.ClientRectangle, Me)
        CheckBoxRenderer.DrawCheckBox(grp, New Point(0, 0), _
                                      New Rectangle(15, 0, Me.Width - 15, Me.Height), _
                                      Me.Text, _
                                      Me.Font, _
                                      Me.Focused, _
                                      VisualStyles.CheckBoxState.CheckedPressed)
    End Sub
End Class

■No69939 (らうむ さん) に返信
> ・ファイル選択ダイアログから指定した場合はファイル名のみを反映したい。
> ・PropertyGrid上でテキスト編集部で直接書き込んだ場合、書き込んだ内容（パス情報も
> ふくむ）のままで値を保存したい。


あらよっと。


using System;
using System.ComponentModel;
using System.Drawing.Design;
using System.IO;
using System.Windows.Forms.Design;

class Class1
{
    [Editor(typeof(FileNameOnlyEditor), typeof(UITypeEditor))]
    public string testFilename1 { get; set; }

    [Editor(typeof(FileNameEditor), typeof(UITypeEditor))]
    public string testFilename2 { get; set; }

    private class FileNameOnlyEditor : FileNameEditor
    {
        public override object EditValue(ITypeDescriptorContext context, IServiceProvider provider, object value)
        {
            return Path.GetFileName(base.EditValue(context, provider, value) as string);
        }
    }
}

    Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileW" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Integer) As Integer

    Sub Main()

        Dim Result As Integer = CopyFile("\\?\C:\A.txt", "\\?\C:\B.txt", 0)

    End Sub

このコードを実行してもResult=0となりコピーできません。
どこを間違えているのでしょうか？

Windows7 64bit SP1
VS Express 2013 for Desktop
を使用しています。