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

ありがとうございます。


詳細な原理は理解できていませんが、
とりあえず、
No85096 で示してくださったStructureをコピーして使ってみました。

しかし、この方法だとファイルがコピーされなくなりました。

x86でコンパイルしており、ファイルパスは全て半角文字を使っています。

コピー用のFunctionは以下の物を用いています。

何が原因でしょうか？




    Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer


    Public Function SH_Copy(ByVal sPath As String, ByVal dPath As String) As Integer

        Dim shf As SHFILEOPSTRUCT

        With shf
            .wFunc = FO_COPY
            .pFrom = sPath & vbNullChar
            .pTo = dPath & vbNullChar
            .fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR
            .lpszProgressTitle = "Sending " & sPath & " to " & dPath
        End With

        Return SHFileOperation(shf)

    End Function

親フォームを最小化した後に子フォームを開きたいです。
どのようにすれば良いのか、ご教授のほどお願いします。

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.SetBounds(0, 0, 1000, 800, BoundsSpecified.All)
        'このフォームを MDI コンテナとして設定 
        Me.IsMdiContainer = True
    End Sub

    '子フォーム Test1を開く
    Private Sub Test1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Test1ToolStripMenuItem.Click
        Dim frmchild As New Form2
        frmchild.MdiParent = Me
        frmchild.Show()

        '自分自身のフォームを最小化
        'Me.WindowState = FormWindowState.Minimized
    End Sub
End Class

Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SetBounds(300, 100, 500, 200, BoundsSpecified.All)
    End Sub

    'このフォームを閉じる
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class