• 如何在VB中使用XP的視覺樣式

說明

    在原始VB設計下，一個表單配置大概是這樣


    而在Windows XP下,物件實際上也有新的視覺樣式


    是不是美觀許多呢 這在VB底下也是做得到喔 只要透過一個manifest檔以及InitCommonControls這個API就可以做到了 這個manifest的內容如下

      <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
      <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
        <assemblyIdentity
          version="1.0.0.0"
          processorArchitecture="X86"
          name="VBNote.Honey's.Project1"
          type="win32"
        />
        <description>your app description</description>
        <dependency>
          <dependentAssembly>
            <assemblyIdentity
              type="win32"
              name="Microsoft.Windows.Common-Controls"
              version="6.0.0.0"
              processorArchitecture="X86"
              publicKeyToken="6595b64144ccf1df"
              language="*"
            />
          </dependentAssembly>
        </dependency>
      </assembly>

    註:如果你的應用程式檔名是Project1.exe 這個manifest檔檔名就改為Project1.exe.manifest 然後跟執行檔放到同個目錄下 然後將程式編譯成執行檔 執行該執行檔就可以看到xp的視覺效果了

程式

    '請自行放上需要的元件
    Option Explicit

    Private Declare Sub InitCommonControls Lib "comctl32" ()

    Private Sub Form_Initialize()
        Call InitCommonControls
    End Sub

程式下載

文件撰寫

    Honey

整理時間

    2003'2,1.

VB心得筆記歡迎各位的指教,如果您有任何文章或資料願意提供給我們的,請來信到VBNote

如果對本站有任何建議,歡迎來信給Honey,我們會盡快給您答覆