Visual Basic'te Otomatik Xp tarzı form ve nesneler

Visual Basic'te normalinde VB6 da xp stilini kullanabilmek için manifetst dosyasına gerek vardır.Bu kod sayesinde programımız bunu otomatik oluşturacak.


Aşağıdaki Kodları Form1 içine yapıştırın...

 


 

Option Explicit

Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long[/vb]

[vb]Private Sub Form_Initialize()

Dim fso As Variant

Dim FName As String

FName = App.Path & "" & App.EXEName & ".exe.Manifest"

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists(FName) Then

CreateManifest FName

MsgBox "Did not find a Manifest file, so one has been created for you." _

& vbCrLf & "XP styles will be applied next time you run this application", _

vbOKOnly + vbInformation, "Application manifest file missing"

Else

InitCommonControls

End If

End Sub

Private Sub CreateManifest(ByVal FilePathAndName As String)

Dim ManifestFile As Integer

ManifestFile = FreeFile

Open FilePathAndName For Append As #ManifestFile

Print #ManifestFile, "

& Chr(34) & "UTF-8" & Chr(34) & " standalone=" & Chr(34) & "yes" & Chr(34) & "?>"

Print #ManifestFile, "

Print #ManifestFile, "version=" & Chr(34) & "1.0.0.0" & Chr(34)

Print #ManifestFile, "processorArchitecture=" & Chr(34) & "X86" & Chr(34)

Print #ManifestFile, "name=" & Chr(34) & "Company Name.Application Name.Application Title" & Chr(34)

Print #ManifestFile, "type=" & Chr(34) & "win32" & Chr(34)

Print #ManifestFile, "/>"

Print #ManifestFile, "You Application Name Here"

Print #ManifestFile, ""

Print #ManifestFile, ""

Print #ManifestFile, "

Print #ManifestFile, "type=" & Chr(34) & "win32" & Chr(34)

Print #ManifestFile, "name=" & Chr(34) & "Microsoft.Windows.Common-Controls" & Chr(34)

Print #ManifestFile, "version=" & Chr(34) & "6.0.0.0" & Chr(34)

Print #ManifestFile, "processorArchitecture=" & Chr(34) & "X86" & Chr(34)

Print #ManifestFile, "publicKeyToken=" & Chr(34) & "6595b64144ccf1df" & Chr(34)

Print #ManifestFile, "language=" & Chr(34) & "*" & Chr(34)

Print #ManifestFile, "/>"

Print #ManifestFile, ""

Print #ManifestFile, ""

Print #ManifestFile, ""

Close #ManifestFile

End Sub

 

 

 



İlk yorumu siz yazın !..

  • Yorumunuz en az 30 karakter olmalıdır. (0)
Sitede Ara
  • Genel Matematik | Özdeşlik, Denklemler ve Eşitsizlikler
    cok tesekkur ederim gecenin ucunde odev yapmaya calisirken iyi gidio...
  • Red Dead Redemption 2 Türkçe Yama (v1436.25) Türkçe Karakter Sorunu Çözümü
    Dostum çok teşekkürler sayende oyunum türkçe oldu fakat "Yazı Karakter" sorunu var sebebi nedir?...
  • AÖF AKTS Nedir Nasıl Hesaplanır?
    Ben aof okudum ilk yılım yıllık sistemdi onu kac kredi olduğunu nasil öğrenebilirim ...
  • Kredili Sistemde Ders Geçmek İçin Kaç Almalısınız?
    Benim 1sinifim ilk donem iyi gecti ikinci donem derslerden kaldim 2.yilimda mi kaldigim dersleri mi ver...
  • PHP Array | Dizi İçinde Tekrar Eden Elemanların Sayısını Alma
    Sen kralsın kardeşim :) 5 saattir bunu arıyordum...
  • Türkiye'de Hangi Burçtan Kaç Kişi Var?
    Çok güzel ve doğru ki muhtemelen akrep olduğum içindir. :)...
  • Jako Beslenme Diyeti - Afrika Gri Papağanı neler yer, hangi gıdalar zararlıdır
    harika bir çalışma teşekkürler...