VB中Slider控件的问题,在线等
PrivateSubForm_Load()DimstyAsLongsty=GetWindowLong(Me.hwnd,GWL_EXSTYLE)sty=styOrWS_EX...
Private Sub Form_Load()
Dim sty As Long
sty = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
sty = sty Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, sty
SetLayeredWindowAttributes Me.hwnd, 0, 200, LWA_ALPHA
End Sub
这段代码倒数第二段有一个 200,我想用Slider控件来控制这个值的变化
Slider控件的属性如下:
Max:255
Min:0
SelStart(初始位置的值):55
如果把Slider控件往右拖动,则那个“200”的值变小,往左拖动则变大
也就是说Slider控件往右拖动1,则“200”的值减小为“199”
还有,上面那段代码的初始值是“200”
Slider控件的SelStart(初始位置的值)是“55 ”
只有在拖动Slider控件的时候,那些值才发生变化
并且将Slider控件拖动,所变化的值显示在 Label 控件上
要定义的变量名就定义为:abc 展开
Dim sty As Long
sty = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
sty = sty Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, sty
SetLayeredWindowAttributes Me.hwnd, 0, 200, LWA_ALPHA
End Sub
这段代码倒数第二段有一个 200,我想用Slider控件来控制这个值的变化
Slider控件的属性如下:
Max:255
Min:0
SelStart(初始位置的值):55
如果把Slider控件往右拖动,则那个“200”的值变小,往左拖动则变大
也就是说Slider控件往右拖动1,则“200”的值减小为“199”
还有,上面那段代码的初始值是“200”
Slider控件的SelStart(初始位置的值)是“55 ”
只有在拖动Slider控件的时候,那些值才发生变化
并且将Slider控件拖动,所变化的值显示在 Label 控件上
要定义的变量名就定义为:abc 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询