Question

我尝试从生成的Windows表单应用程序中设置图标，这是我的代码。

Private Sub CompileSourceCode()

        Dim cProvider As CodeDomProvider = New VBCodeProvider
        Dim cParams As New CompilerParameters
        Dim cResult As CompilerResults
        Dim sourceCode As String = generate_exe.final_winform

        With cParams
            .GenerateInMemory = False
            .GenerateExecutable = True
            .OutputAssembly = "test.exe"
            .CompilerOptions = "/target:winexe /win32icon:eye.ico"
            .ReferencedAssemblies.AddRange({"System.dll", "System.Windows.Forms.dll", "Microsoft.VisualBasic.dll"})
            .MainClass = "MyNamespace.form1"
        End With

        cResult = cProvider.CompileAssemblyFromSource(cParams, sourceCode)
        cProvider.Dispose()

        If cResult.Errors.HasErrors Then
            MsgBox(cResult.Errors(0).Line.ToString & ", " & cResult.Errors(0).ErrorText)
        End If

    End Sub

问题： 第一次运行它时，它会创建带有我选择的图标的EXE。第二次，如果我只是更改我想要使用的图标但将其保留为相同的OutputAssembly名称（test.exe），则会创建EXE，但使用旧图标，不会更新。

修改：找到了一个非常好的解决方案，虽然我的问题已经很长时间了，但我认为使用SHChangeNotify可以帮助其他人解决同样的问题。将其添加到代码顶部：

Const SHCNE_ASSOCCHANGED As Integer = &H8000000
    Const SHCNF_IDLIST As Integer = 0
    Private Class NativeMethods
        <DllImport("shell32")>
        Public Shared Sub SHChangeNotify(ByVal wEventId As Integer, ByVal flags As Integer, ByVal item1 As IntPtr, ByVal item2 As IntPtr)
        End Sub
    End Class

用法：（在编译命令之前或之后）


NativeMethods.SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, Nothing, Nothing)

在VB.NET中从生成的exe设置图标

0 个答案: