VB.NET里最方面的XP风格解决方案

最新推荐文章于 2021-05-04 13:31:44 发布

最新推荐文章于 2021-05-04 13:31:44 发布 · 105 阅读

文章标签：

#VB.NET #VB #XP #.net #Microsoft

本文介绍了一段VB.NET代码，该代码用于在应用程序启动路径中检查并创建一个指定的应用程序manifest文件。如果该文件不存在，则会使用预定义的XML内容进行创建。

将以下代码添加到InitializeComponent()之后

On Error Resume Next
Dim y As Integer
Dim AppName As String
Dim ManFileName As String
Dim FullAppExeNameAndPath As String
FullAppExeNameAndPath = Application.ExecutablePath
y = Application.StartupPath.Length
' y = FullAppExeNameAndPath.LastIndexOf("")
y = y + 1
AppName = FullAppExeNameAndPath.Substring(y, FullAppExeNameAndPath.Length - y)
ManFileName = AppName & ".manifest"

If System.IO.File.Exists(ManFileName) = False Then
FileOpen(1, ManFileName, OpenMode.Binary)
FilePut(1, "<?xml version='1.0' encoding='UTF-8' standalone='yes'?>" & Environment.NewLine)
FilePut(1, "<assembly xmlns='urn:schemas-microsoft-com:asm.v1' manifestVersion='1.0'>" & Environment.NewLine)
FilePut(1, "<assemblyIdentity version='1.0.0.0' processorArchitecture='X86' name='zx.exe' type='win32' />" & Environment.NewLine)
FilePut(1, "<description>zxapplication</description>" & Environment.NewLine)
FilePut(1, "<dependency>" & Environment.NewLine)
FilePut(1, "<dependentAssembly>" & Environment.NewLine)
FilePut(1, "<assemblyIdentity type='win32' name='Microsoft.Windows.Common-Controls' version='6.0.0.0' processorArchitecture='X86' publicKeyToken='6595b64144ccf1df' language='*' />" & Environment.NewLine)
FilePut(1, "</dependentAssembly>" & Environment.NewLine)
FilePut(1, "</dependency>" & Environment.NewLine)
FilePut(1, "</assembly>" & Environment.NewLine)
FileClose(1)
End If