Question

VB中Slider控件的问题，在线等

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

Answer 1

slider1.min=0
slider1.max=200
slider1.selstart=55
abc=200-slider1.value
label1.caption=slider1.smallchange