[معاذ_ابراهيم]

(01-10-18, 06:42 PM)asemshahen5 كتب : تفضل أخي الكريم هذا الكود :

كود :

Imports System.Management
Imports System.Runtime.InteropServices

Public Class Form1
   Dim iCount As Integer = 0
   Dim bLevels As Byte()
   Dim arguments As String()
   Public Function GetBrightness() As Integer
       Dim s As New System.Management.ManagementScope("\\.\root\wmi")
       Dim q As New System.Management.SelectQuery("WmiMonitorBrightness")
       Dim mos As New System.Management.ManagementObjectSearcher(s, q)
       Dim moc As System.Management.ManagementObjectCollection = mos.Get()
       Dim curBrightness As Byte = 0
       For Each o As System.Management.ManagementObject In moc
           curBrightness = o.GetPropertyValue("CurrentBrightness")
       Next
       moc.Dispose()
       mos.Dispose()
       Return curBrightness
   End Function
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim iBrightness As Integer = GetBrightness()
       TrackBar1.Value = Val(iBrightness / 10)
       Label1.Text = iBrightness
   End Sub
End Class

اعتذر على الرد المتاخر وشكرا لك سيدي افتني وساعتني في معدلتي فارجو من الله ان يعطيك العافيه