29-09-12, 01:05 AM
هدا الكود يعمل مع :listbox
انا اريد ان اجعله يعمل مع :combobox
Imports DMSoft
Public Class Form1
Public SkinOb As DMSoft.SkinCrafter
Dim App_Path As String = New System.IO.FileInfo(Application.ExecutablePath).DirectoryName & "\skins\"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim di As New IO.DirectoryInfo(App_Path)
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
Dim search, where
search = ".skf"
where = InStr(dra.Name, search)
If where Then
ListBox1.Items.Add(dra)
End If
Next
End Sub
Public Sub New()
DMSoft.SkinCrafter.Init()
SkinOb = New DMSoft.SkinCrafter
'These function parameters are used for Skincrafter DEMO
SkinOb.InitLicenKeys("SKINCRAFTER", "SKINCRAFTER.COM", "support@skincrafter.com", "DEMOSKINCRAFTERLICENCE")
SkinOb.InitDecoration(1)
InitializeComponent()
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
SkinOb.LoadSkinFromFile(App_Path & ListBox1.Text)
SkinOb.ApplySkin()
End Sub
End Class
انا اريد ان اجعله يعمل مع :combobox
Imports DMSoft
Public Class Form1
Public SkinOb As DMSoft.SkinCrafter
Dim App_Path As String = New System.IO.FileInfo(Application.ExecutablePath).DirectoryName & "\skins\"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim di As New IO.DirectoryInfo(App_Path)
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
Dim search, where
search = ".skf"
where = InStr(dra.Name, search)
If where Then
ListBox1.Items.Add(dra)
End If
Next
End Sub
Public Sub New()
DMSoft.SkinCrafter.Init()
SkinOb = New DMSoft.SkinCrafter
'These function parameters are used for Skincrafter DEMO
SkinOb.InitLicenKeys("SKINCRAFTER", "SKINCRAFTER.COM", "support@skincrafter.com", "DEMOSKINCRAFTERLICENCE")
SkinOb.InitDecoration(1)
InitializeComponent()
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
SkinOb.LoadSkinFromFile(App_Path & ListBox1.Text)
SkinOb.ApplySkin()
End Sub
End Class