Private Sub Form_SIPChange(bSIPVisible As Boolean)
'Recalculate the scrollbar dimensions Call setupScrollBar
End Sub
Public Sub setupScrollBar() 'Define the size of the scrollbar If (Form1.SIPVisible = True) Then 'Set size of scrollbar VScroll1.Height = MINSCROLLSIZE 'The maximum scroll value places bottom of frame 'at bottom of screen VScroll1.Max = Frame1.Height - MINSCROLLSIZE Else 'Set size of scrollbar VScroll1.Height = MAXSCROLLSIZE 'The maximum scroll value places bottom of frame 'at bottom of screen VScroll1.Max = Frame1.Height - MAXSCROLLSIZE End If
'Set minimum to zero VScroll1.Min = 0
'Set our increments to be ratio of current maximums VScroll1.SmallChange = VScroll1.Max / 100 VScroll1.LargeChange = VScroll1.Max / 10
End Sub
Private Sub VScroll1_Change() 'On scroll bar change move the frame w/r to the form 'Frame1.Top = -VScroll1.Value Frame1.Move 0, -VScroll1.Value End Sub
จากคุณ
:
sup98 [2008-10-21 23:56:58]
ความคิดเห็น #27191 (จาก IP: 58.9.127.246)
ขอบคุณคุณ sup98 มากครับ scroll bar ทำได้แล้วครับ แต่ว่าปัญหา variable is undefined นั้นยังเหมือนเดิมครับ คือมันไม่รู้จักคำว่า val(text1.text) เลยแหละครับ
New Article
อัตราค่าโฆษณา
กระทู้ #2348 [Palm/PocketPC] (จาก IP: 58.9.124.79)
ความคิดเห็น #27186 (จาก IP: 58.8.184.196)
