?? propscroll.pag
字號:
VERSION 5.00
Begin VB.PropertyPage Scroll
Caption = "Scroll"
ClientHeight = 3495
ClientLeft = 0
ClientTop = 0
ClientWidth = 5925
PaletteMode = 0 'Halftone
ScaleHeight = 3495
ScaleWidth = 5925
Begin VB.TextBox txtSmallChange
Height = 330
Left = 90
TabIndex = 9
Top = 2970
Width = 2700
End
Begin VB.TextBox txtValue
Height = 330
Left = 90
TabIndex = 7
Top = 2320
Width = 2700
End
Begin VB.TextBox txtMax
Height = 330
Left = 90
TabIndex = 5
Top = 1670
Width = 2700
End
Begin VB.TextBox txtMin
Height = 330
Left = 90
TabIndex = 3
Top = 1020
Width = 2700
End
Begin VB.TextBox txtLargeChange
Height = 330
Left = 90
TabIndex = 1
Top = 370
Width = 2700
End
Begin VB.Label lblSmallChange
Caption = "SmallChange:"
Height = 240
Left = 90
TabIndex = 8
Top = 2720
Width = 2700
End
Begin VB.Label lblValue
Caption = "Value:"
Height = 240
Left = 90
TabIndex = 6
Top = 2070
Width = 2700
End
Begin VB.Label lblMax
Caption = "Max:"
Height = 240
Left = 90
TabIndex = 4
Top = 1420
Width = 2700
End
Begin VB.Label lblMin
Caption = "Min:"
Height = 240
Left = 90
TabIndex = 2
Top = 770
Width = 2700
End
Begin VB.Label lblLargeChange
Caption = "LargeChange:"
Height = 240
Left = 90
TabIndex = 0
Top = 120
Width = 2700
End
End
Attribute VB_Name = "Scroll"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private Sub txtSmallChange_Change()
Changed = True
End Sub
Private Sub txtValue_Change()
Changed = True
End Sub
Private Sub txtMax_Change()
Changed = True
End Sub
Private Sub txtMin_Change()
Changed = True
End Sub
Private Sub txtLargeChange_Change()
Changed = True
End Sub
Private Sub PropertyPage_ApplyChanges()
SelectedControls(0).SmallChange = txtSmallChange.Text
SelectedControls(0).Value = txtValue.Text
SelectedControls(0).Max = txtMax.Text
SelectedControls(0).Min = txtMin.Text
SelectedControls(0).LargeChange = txtLargeChange.Text
End Sub
Private Sub PropertyPage_SelectionChanged()
txtSmallChange.Text = SelectedControls(0).SmallChange
txtValue.Text = SelectedControls(0).Value
txtMax.Text = SelectedControls(0).Max
txtMin.Text = SelectedControls(0).Min
txtLargeChange.Text = SelectedControls(0).LargeChange
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -