تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل من الممكن ان تعدلو لي هدا الكود
#1
هدا الكود يعمل مع :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", "[email protected]", "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
الرد
تم الشكر بواسطة:
#2
[HTML]
بدلا من
listbox.items.add(dra)


combobox.items.add(dra)


[/HTML]
الرد
تم الشكر بواسطة: mohammed moh


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أحاول أخذ باك أب لقاعدة البيانات من نوع mySQL ولكن لا أستطيع مرفق الكود dametucorazon 11 116 اليوم, 03:36 AM
آخر رد: elgokr
  هل هناك طريقة لتسريع هذا الكود ابو روضة 1 47 أمس, 09:45 AM
آخر رد: elgokr
  [VB.NET] اريد مساعدتي في تصحيح او تعديل الكود 0theghost0 5 77 18-06-18, 12:29 AM
آخر رد: سعود
Thumbs Up [VB.NET] هل ممكن تغيير رقم الهارد عن طريق الكود رمضان محمد 0 32 15-06-18, 07:33 AM
آخر رد: رمضان محمد
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 15 1,882 15-06-18, 07:28 AM
آخر رد: رمضان محمد
  استفسار في هذا الكود فراس الغزي 1 44 09-06-18, 05:04 AM
آخر رد: elgokr
  ما الخطأ في هذا الكود ؟؟ hichem1 4 69 07-06-18, 02:04 AM
آخر رد: elgokr
  هل يمكن اختصار هذا الكود blida02 6 112 29-05-18, 04:29 PM
آخر رد: blida02
  هل انتم مهتمون ببرنامج يكتب عنكم الكود viv 20 397 27-05-18, 03:48 AM
آخر رد: bidaya
  [سؤال] اين الخطاء في الكود قناص المدينة 7 722 21-05-18, 12:20 AM
آخر رد: عبدالله الدوسري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم