السلام عليكم
اخوان ممكن كود اضهار نافذة التحكم باللغة عند الضغطعلى الزر
وكوداضهار نافذة التحكم بالوقت والتاريخ
وكيفية جعل الكومبو يأخذ بيانات او اسماء الطابعات الموجودة على الجهاز واختيارها كطابعة افتراضية للبرنامج
ولكم كل الشكر مقدما[/color]
السلام عليكم ورحمة الله وبركاته
اضهار نافذة التحكم باللغة :
PHP كود :
System.Diagnostics.Process.Start("intl.cpl")
نافذة التحكم بالوقت والتاريخ:
PHP كود :
System.Diagnostics.Process.Start("timedate.cpl")
بقية نوافذ لوحة التحكم يمكنك فتحها بالأكود التالية :
PHP كود :
'خيارات الوصول
System.Diagnostics.Process.Start("access.cpl")
'أضافة جهاز
System.Diagnostics.Process.Start("hdwwiz.cpl")
'أضافة وإزالة برامج
System.Diagnostics.Process.Start("appwiz.cpl")
'تحديثات تلقائية
System.Diagnostics.Process.Start("appwiz.cpl")
'خصائص العرض
System.Diagnostics.Process.Start("desk.cpl")
'جدار الحماية
System.Diagnostics.Process.Start("firewall.cpl")
'خصائص الأنترنيت
System.Diagnostics.Process.Start("inetcpl.cpl")
'الخيارات الأقليمية وخيارات الغة
System.Diagnostics.Process.Start("intl.cpl")
'أجهزة تحكم التسالي
System.Diagnostics.Process.Start("joy.cpl")
'خيارات الماوس
System.Diagnostics.Process.Start("main.cpl")
'خصائص الأصوات وأجهزة الأصوات
System.Diagnostics.Process.Start("mmsys.cpl")
'أتصالات شبكة الأتصالات
System.Diagnostics.Process.Start("ncpa.cpll")
'معالج شبكة الأتصالات
System.Diagnostics.Process.Start("netsetup.cpl")
'حسابات المستخدمين
System.Diagnostics.Process.Start("nusrmgr.cpl")
'إدارة مصار البيانات
System.Diagnostics.Process.Start("odbccp32.cpl")
'خيارات الطاقة
System.Diagnostics.Process.Start("powercfg.cpll")
'خصائص النظام
System.Diagnostics.Process.Start("sysdm.cpl")
'خيارات الهاتف والمودم
System.Diagnostics.Process.Start("telephon.cpl")
'خصائص التاريخ والوقت
System.Diagnostics.Process.Start("timedate.cpl")
'مركز أمان ويندوز
System.Diagnostics.Process.Start("wscui.cpl")
'التحديثات التقائية
System.Diagnostics.Process.Start("wuaucpl.cpl")
****
***
**
*
بالنسبة للطابعات :
ملء الـ ComboBox بأسماء الطابعات :
PHP كود :
Private Sub GetPrinters()
Dim strPrinter As String
ComboBox1.Items.Clear()
If Printing.PrinterSettings.InstalledPrinters.Count > 0 Then
For Each strPrinter In Printing.PrinterSettings.InstalledPrinters
ComboBox1.Items.Add(strPrinter)
Next
Else
MsgBox("لا توجد طابعات مثبتة علي جهاز الحاسوب")
End If
End Sub
لتعيين طابعة ما كطابعة افتراضية نستخدم دالة الـ API التالية :
PHP كود :
Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Boolean
نختار اسم الطابعة من الـ ComboBox مثلا ونجعلها افتراضية كالتالي :
PHP كود :
Dim setDefaul As Boolean = False
setDefaul = SetDefaultPrinter(ComboBox1.SelectedItem.ToString)
اسندنا القيمة الراجعة لمتغيير من نوع Boolean لأن دالة الـ API تعود بقيمة منطقية .
****
***
**
*
اخوية بارك الله فيك
والف رحمة على والديك