vb.net调节屏幕亮度 win调节屏幕亮度
VB怎么做调节亮度的程序？代码
'下面是改变屏幕的亮度的代码。
创新互联专注于乐昌企业网站建设,响应式网站设计,商城系统网站开发。乐昌网站建设公司,为乐昌等地区提供建站服务。全流程定制制作，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
'新建文本文档，复制下面代码，另存为form1.frm，然后双击打开。
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1890
ClientLeft = 120
ClientTop = 420
ClientWidth = 5775
LinkTopic = "Form1"
ScaleHeight = 1890
ScaleWidth = 5775
StartUpPosition = 3 '窗口缺省
Begin VB.HScrollBar HScroll1
Height = 495
Left = 240
Max = 255
TabIndex = 2
Top = 480
Value = 128
Width = 5295
End
Begin VB.CommandButton Command2
Caption = "Exit"
Height = 615
Left = 2880
TabIndex = 1
Top = 1080
Width = 2655
End
Begin VB.CommandButton Command1
Caption = "Reset"
Height = 615
Left = 240
TabIndex = 0
Top = 1080
Width = 2655
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Private Declare Function GetDeviceGammaRamp Lib "GDI32.DLL" (ByVal hDC As Long, lpRamp As Any) As Long
Private Declare Function SetDeviceGammaRamp Lib "GDI32.DLL" (ByVal hDC As Long, lpRamp As Any) As Long
Private Type Word
HiByte As Byte
LoByte As Byte
End Type
Private Type Dword
HiWord As Word
LoWord As Word
End Type
Private Type iLong
Value As Long
End Type
Private Sub Command1_Click()
HScroll1.Value = 128
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Function SetBrightness(ByVal hDC As Long, ByVal wBrightness As Integer) As Long
Dim GammaArray(255, 2) As Word
Dim hGammaDC As Long, nIndex As Long
Dim wValue As iLong, dValue As Dword
hGammaDC = hDC
If hDC = 0 Then hGammaDC = Me.hDC
If hGammaDC Then
For nIndex = 0 To 255
wValue.Value = nIndex * (wBrightness + 128)
If wValue.Value 65533 Then wValue.Value = 65533
LSet dValue = wValue
GammaArray(nIndex, 0) = dValue.HiWord
GammaArray(nIndex, 1) = dValue.HiWord
GammaArray(nIndex, 2) = dValue.HiWord
Next
SetBrightness = SetDeviceGammaRamp(hGammaDC, GammaArray(0, 0))
End If
End Function
Private Sub Form_Unload(Cancel As Integer)
Call Command1_Click
End Sub
Private Sub HScroll1_Change()
Call SetBrightness(Me.hDC, HScroll1.Value)
Me.Caption = HScroll1.Value
End Sub
vb.net 高亮度显示文本
选中就是高亮，首先得到你找到的文本字符的起始位置和长度，然后
TextBox.Select(start,length)
或
TextBox.SelectionStart = start
TextBox.SelectionLength = length
显示屏亮度怎么调节？显示屏亮度调节方法
显示屏亮度因使用环境的需要而进行调节，这样更有利于对我们眼睛的保护，那么如何进行 显示屏亮度调节 呢？今天就随我来看看 显示屏亮度调节 方法，以供大家参考哦。
一、显示屏亮度调节——台式机
1、 打开“控制面板”，双击相应的显示器管理程序，例如本经验中的“Inter GMA Driver”。
2、 在打开的“图像和媒体控制面板”窗口中，切换到“显示”选项卡。然后点击“颜色增强”项，接着就可以在右侧就可以看到亮度调节功能了，通过滑动”亮度调节滑块“就可以改变屏幕的亮度。
3、 其实，更为有效快捷的方法就是通过显示器上面的按键进行调节。
在显示器面板上，有一排按键，每个按键上都标有图案。其中标有“太阳光”图案的按键通常是用来调节屏幕亮度的。
4、 在调节屏幕亮度的过程中，会发现按键下方有一对方向相向的箭头，这说明通常按这一组键，可调整屏幕的亮度。
5、 对于显示器屏幕上 其它 按钮的调节方法，大家可以参考显示器说明书或指导手册来操作。
二、显示屏亮度调节——笔记本
1、 桌面空白处右键属性－在显示属性窗口，找到并单击设置选项框，在设置选项框中再次找到并单击高级按扭
2、 找到选项卡最右边的显卡选项卡，点击选项卡中的启动NVIDTA控制面板。或者在开始菜单-控制面板中也是可以找到NVIDIA控制面板是一样可以打开
3、 调整桌面颜色设置的设置，其中就有一项是亮度设置。这里是按百分比设置的，直接用鼠标拖即可立即生效。拖到自己调到的亮度即可。
4、注意事项： 笔记本自带的系统可以直接使用Fn+方向键上的亮度大小即可调节显示器亮度(有些电脑可能不是上下的方向键，可能是F5 F6具体可以查看键盘上的图标是小太阳+和-)；如果不是笔记本自带的系统的话，而又没有NVIDTA控制面板，可以在重起电脑时，在还没有进入系统之前就直接按Fn+方向键即可调节显示器亮度
关于 显示屏亮度调节 的相关信息就为大家介绍到这里了，希望这篇文章对大家有所帮助。如果大家还有什么不明白的地方可以在下方给我留言哦，我们会尽快为您解答。
怎么调屏幕亮度？
可以通过以下三种方法调节屏幕亮度：
一、 在使用的操作系统中调节亮度的方法（以Win10为例）：
【方法1】：点击开始菜单栏，然后依次选择 设置——系统——显示选项，右侧可以看到亮度级别，用鼠标左右拖动亮度条，可以调整屏幕的亮度。
【方法2】：点击任务栏右侧里的通知功能按钮，在弹出的界面找到亮度调节功能按钮，用鼠标左键点击亮度调节功能按钮，可以实现亮度25%，50%，75%，100%四个选项的修改。
二、 在使用的电脑类型中调节亮度的方法（以Lenovo笔记本为例）：
【方法一：快捷键调节】
1、目前主流的Lenovo笔记本一般通过F11、F12快捷键调节屏幕亮度。如需增加亮度可按F12，降低亮度则按F11。
使用方法：如需增加亮度则按Fn+↑；如需降低亮度则按Fn+↓。
【方法二：使用系统电源选项调节屏幕亮度】
适用范围：Win10/8.1/8/7（注：Windows XP系统不支持）
1、在任务栏右下角找到电源状态图标并单击鼠标右键，在弹出的菜单中点击“调整屏幕亮度”。
2、在弹出的电源选项窗口，使用鼠标左键拖动底部“屏幕亮度”的滑杆进行调节。
三、 在使用的显卡类型中调节亮度的方法（以Intel显卡为例）
1、桌面空白处单击鼠标右键，点击“图形属性”；
2、调出界面后点击“显示器”；
3、进入显示器界面后点击“颜色设置”；
4、然后进行亮度等设置调整；
四、 如果以上方法都不能调节亮度，可能是显卡驱动未安装或驱动异常，可以重装显卡驱动。
vb改屏幕亮度
下面是改变屏幕的亮度的代码。
复制下面代码，保存为form1.frm，然后双击打开，并运行，即可看到效果。
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3660
ClientLeft = 60
ClientTop = 450
ClientWidth = 5865
LinkTopic = "Form1"
ScaleHeight = 3660
ScaleWidth = 5865
StartUpPosition = 3 '窗口缺省
Begin VB.VScrollBar Vb
Height = 375
Left = 4920
TabIndex = 9
Top = 1680
Width = 255
End
Begin VB.VScrollBar Vg
Height = 375
Left = 4920
TabIndex = 8
Top = 1200
Width = 255
End
Begin VB.VScrollBar vr
Height = 375
Left = 4920
TabIndex = 7
Top = 720
Width = 255
End
Begin VB.VScrollBar vAll
Height = 375
Left = 4920
TabIndex = 6
Top = 240
Width = 255
End
Begin VB.TextBox tBlue
Height = 375
Left = 4200
TabIndex = 5
Top = 1680
Width = 735
End
Begin VB.TextBox tGreen
Height = 375
Left = 4200
TabIndex = 4
Top = 1200
Width = 735
End
Begin VB.TextBox tRed
Height = 375
Left = 4200
TabIndex = 3
Top = 720
Width = 735
End
Begin VB.TextBox rgbAll
Height = 375
Left = 4200
TabIndex = 2
Top = 240
Width = 735
End
Begin VB.CommandButton Command2
Caption = "设置"
Height = 495
Left = 240
TabIndex = 1
Top = 1920
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "恢复"
Height = 495
Left = 240
TabIndex = 0
Top = 1320
Width = 1215
End
Begin VB.Label Label1
Caption = "蓝"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = H00FF0000
Height = 375
Index = 3
Left = 3480
TabIndex = 13
Top = 1680
Width = 375
End
Begin VB.Label Label1
Caption = "绿"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = H0000C000
Height = 375
Index = 2
Left = 3480
TabIndex = 12
Top = 1200
Width = 375
End
Begin VB.Label Label1
Caption = "红"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = H000000FF
Height = 375
Index = 1
Left = 3480
TabIndex = 11
Top = 720
Width = 375
End
Begin VB.Label Label1
Caption = "全部调整"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 3000
TabIndex = 10
Top = 240
Width = 975
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Gamma Type
Private Type Gamma
Red As Integer
Green As Integer
Blue As Integer
End Type
Private GammaDay As Gamma 'Day Gamma
Private GammaNight As Gamma 'Night Gamma
'Gamma APIs
Private Ramp1(0 To 255, 0 To 2) As Integer
Private Ramp2(0 To 255, 0 To 2) As Integer
Private Declare Function GetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Function SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
'Set Gamma
Public Sub SetGamma(ByVal intRed As Integer, ByVal intGreen As Integer, ByVal intBlue As Integer)
Dim i As Integer
Dim ScrDC As Long
'Get Screen's DC
ScrDC = GetDC(GetDesktopWindow)
intRed = intRed / 2
intGreen = intGreen / 2
intBlue = intBlue / 2
'Change Ramp
For i = 0 To 255
If intRed 0 Then Ramp2(i, 0) = ConvToSignedValue(ConvToUnSignedValue(Ramp1(i, 0)) * (100 - Abs(intRed)) / 100)
If intRed = 0 Then Ramp2(i, 0) = Ramp1(i, 0)
If intRed 0 Then Ramp2(i, 0) = ConvToSignedValue(65535 - ((65535 - ConvToUnSignedValue(Ramp1(i, 0))) * (100 - intRed) / 100))
If intGreen 0 Then Ramp2(i, 1) = ConvToSignedValue(ConvToUnSignedValue(Ramp1(i, 1)) * (100 - Abs(intGreen)) / 100)
If intGreen = 0 Then Ramp2(i, 1) = Ramp1(i, 1)
If intGreen 0 Then Ramp2(i, 1) = ConvToSignedValue(65535 - ((65535 - ConvToUnSignedValue(Ramp1(i, 1))) * (100 - intGreen) / 100))
If intBlue 0 Then Ramp2(i, 2) = ConvToSignedValue(ConvToUnSignedValue(Ramp1(i, 2)) * (100 - Abs(intBlue)) / 100)
If intBlue = 0 Then Ramp2(i, 2) = Ramp1(i, 2)
If intBlue 0 Then Ramp2(i, 2) = ConvToSignedValue(65535 - ((65535 - ConvToUnSignedValue(Ramp1(i, 2))) * (100 - intBlue) / 100))
Next
'Set Gamma
SetDeviceGammaRamp ScrDC, Ramp2(0, 0)
End Sub
'Save Gamma
Public Sub SaveGamma()
Dim ScrDC As Long
'Get Screen's DC
ScrDC = GetDC(GetDesktopWindow)
'Reset it
GetDeviceGammaRamp ScrDC, Ramp1(0, 0)
End Sub
'RestoreGamma
Public Sub RestoreGamma()
Dim ScrDC As Long
'Get Screen's DC
ScrDC = GetDC(GetDesktopWindow)
'Reset it
SetDeviceGammaRamp ScrDC, Ramp1(0, 0)
End Sub
Private Function ConvToSignedValue(lngValue As Long) As Integer
'Cheezy method for converting to signed integer
If lngValue = 32767 Then
ConvToSignedValue = CInt(lngValue)
Exit Function
End If
ConvToSignedValue = CInt(lngValue - 65535)
End Function
Private Function ConvToUnSignedValue(intValue As Integer) As Long
'Cheezy method for converting to unsigned integer
If intValue = 0 Then
ConvToUnSignedValue = intValue
Exit Function
End If
ConvToUnSignedValue = intValue + 65535
End Function
Private Sub Command1_Click()
rgbAll.Text = 0
Command2_Click
'GammaDay.Red = 0
'GammaDay.Green = 0
'GammaDay.Blue = 0
'SetGamma GammaDay.Red, GammaDay.Green, GammaDay.Blue
End Sub
Private Sub Command2_Click()
GammaNight.Red = Val(tRed.Text)
GammaNight.Green = Val(tGreen.Text)
GammaNight.Blue = Val(tBlue.Text)
SetGamma GammaNight.Red, GammaNight.Green, GammaNight.Blue
End Sub
Private Sub Form_Load()
SaveGamma
rgbAll.Text = vAll.Value
tRed.Text = vr.Value
tGreen.Text = Vg.Value
tBlue.Text = Vb.Value
End Sub
Private Sub Form_Unload(Cancel As Integer)
RestoreGamma
End Sub
Private Sub rgbAll_Change()
tRed.Text = rgbAll.Text
tGreen.Text = rgbAll.Text
tBlue.Text = rgbAll.Text
End Sub
Private Sub vAll_Change()
rgbAll.Text = vAll.Value
End Sub
Private Sub vr_Change()
tRed.Text = vr.Value
End Sub
Private Sub vg_Change()
tGreen.Text = Vg.Value
End Sub
Private Sub vb_Change()
tBlue.Text = Vb.Value
End Sub
本文标题：vb.net调节屏幕亮度 win调节屏幕亮度
分享URL：http://myzitong.com/article/hjgihp.html