菜单选择，作法如下。
①用photonshop作一小BMP图，用来表示滚动条中的滑块，取名为hk.bmp。
②在窗体中放一lable控件，设置属性borderdtyle为1-Fixed single，backstyle为0-transparent，caption为空，适当调节lable的高度及宽度，name为Lable1。
③在窗体中紧挨Lable1放置一sspanell控件，调节其高度及宽度与Lable1的高度宽度相等，bevellnner为1-inset，bevellouter为0-none，bevellwidth=1，borderwidth=0，name为sspanell1。
④在sspanell1中放置一picture控件，将borderstyle设置为0-none，调节其宽度及高度为适当值，并在其中放置要选取择的项（用lable控件或imager控件表示），命名为picture1。
⑤在lable1中放image控件，设置picture为hk.bmp，borderstyle为1-fixed single，调节其高度及宽度。
⑥程序如下：
'======================================================================
'当鼠标右键在滚动条的滑块上按下时,将标志置为真
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
vscroll_m = True
End Sub
'=======================================================================
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'滑块可移动范围
temp1 = lable1.height+lable.top-image1.height   '上限
temp2 = lable1.top期                                      '下限
If vscroll_m Then
  top_m = Image1.Top + Y
   If top_m > temp1 Then
     top_m =temp1
    ElseIf top_m < temp2 Then
      top_m = temp2
     End If
'移动滑块
Image1.Top = top_m
'计算滑块移动后,对应的菜单区应移动的距离
Picture1.Top = -(top_m -temp2 ) *picture1.height/lable1.height
End If
End Sub
'=======================================================================
'当鼠标右键在滚动条的滑块上弹起时,将标志置为假
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
vscroll_m = False
End Sub

上一页  [1] [2]