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
  • Finansal Yönetim Ders Notları | 1-7
    gerçekten emeğinize sağlık çok güzel bir anlatım olmuş....
  • Yazımı Karıştırılan Sözcükler | TDK Yazım Kılavuzu | Doğru Kelime Klavuzu
    Atölye Fransızca'dan dilimize geçmiş bir isimdir. Fransızca atelier olarak yazılır. Evet atelye ...
  • Online Cetvel Sitesi
    Bu ayarları yaptıktan sonra elimdeki cetvelle test ettim gerçekten doğru gösteriyor. Ekrana tuttuğum ce...
  • Doğal Varlık Nedir - Anlamı ve Örnekler
    Çook sevdim bu siteyi... ...
  • 2019 Yeni Golf MK8 Ne Zaman Çıkacak?
    Yabancı para piyasayı allak bullak etti. 2017 yılında golf 7.5 aldım, opsiyonlarıyla birlikte 115.500₺y...
  • İşlemci Veriyolu Hızı Nedir ? Nasıl Çalışır
    İyi bir bilgi olmuş teşekkürler! ...
  • Tevbe İstiğfar Duası
    Allah razı olsun çok mutlu oldum...