home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form DateFrm
- Caption = "Data Entry Controls"
- ClientHeight = 7395
- ClientLeft = 1155
- ClientTop = 1740
- ClientWidth = 8190
- Height = 7800
- Left = 1095
- LinkTopic = "Form1"
- ScaleHeight = 7395
- ScaleWidth = 8190
- Top = 1395
- Width = 8310
- Begin VB.CommandButton Command5
- Caption = "Set Date"
- Height = 495
- Left = 2520
- TabIndex = 19
- Top = 2400
- Width = 975
- End
- Begin VB.CommandButton Command4
- Caption = "Clear"
- Height = 375
- Left = 2760
- TabIndex = 8
- Top = 3960
- Width = 1095
- End
- Begin VB.CommandButton Command3
- Caption = "Stop Clock"
- Height = 375
- Left = 1440
- TabIndex = 7
- Top = 3960
- Width = 1095
- End
- Begin VB.CommandButton Command2
- Caption = "Start Clock"
- Height = 375
- Left = 120
- TabIndex = 6
- Top = 3960
- Width = 1095
- End
- Begin VB.CommandButton Command1
- Caption = "Calendar"
- Height = 495
- Left = 2520
- TabIndex = 1
- Top = 1080
- Width = 975
- End
- Begin VB.Label Label13
- Caption = "United States"
- Height = 255
- Left = 4320
- TabIndex = 33
- Top = 4800
- Width = 3015
- End
- Begin VB.Label Label12
- Caption = "United Kingdom"
- Height = 255
- Left = 4320
- TabIndex = 32
- Top = 5520
- Width = 3015
- End
- Begin VB.Label Label11
- Caption = "Germany"
- Height = 255
- Left = 4320
- TabIndex = 31
- Top = 6360
- Width = 3015
- End
- Begin PVCurrencyLib.PVCurrency PVCurrency3
- Height = 375
- Left = 4320
- TabIndex = 30
- Top = 5040
- Width = 3015
- _Version = 65541
- _ExtentX = 5318
- _ExtentY = 661
- _StockProps = 244
- Text = "$0.00"
- Appearance = 1
- FormatNegative = 1
- Value = 0
- End
- Begin PVMaskEditLib.PVMaskEdit PVMaskEdit2
- Height = 390
- Left = 240
- TabIndex = 29
- Top = 6720
- Width = 3705
- _Version = 65541
- _ExtentX = 6535
- _ExtentY = 688
- _StockProps = 244
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- name = "MS Sans Serif"
- charset = 0
- weight = 400
- size = 12
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- Appearance = 1
- DisplayFormat = 1
- Text = ""
- Mask = "###-##-####"
- HighlightColor = 12632256
- End
- Begin PVMaskEditLib.PVMaskEdit PVMaskEdit1
- Height = 375
- Left = 240
- TabIndex = 28
- Top = 5880
- Width = 3615
- _Version = 65541
- _ExtentX = 6376
- _ExtentY = 661
- _StockProps = 244
- Appearance = 1
- DisplayFormat = 5
- Text = ""
- Mask = "(###) ###-#### Ext ####"
- BackColor = 0
- ForeColor = 16776960
- HighlightColor = 12632256
- End
- Begin VB.Label Label10
- Caption = "The masked input field is perfect for phone numbers, social security numbers or other formatted values."
- Height = 375
- Left = 120
- TabIndex = 27
- Top = 5400
- Width = 3855
- End
- Begin PVLINE3DLib.PVLine3D PVLine3D4
- Height = 30
- Left = 120
- TabIndex = 26
- Top = 5280
- Width = 3975
- _Version = 65536
- _ExtentX = 7011
- _ExtentY = 53
- _StockProps = 8
- End
- Begin PVCurrencyLib.PVCurrency PVCurrency2
- Height = 375
- Left = 4320
- TabIndex = 25
- Top = 6720
- Width = 3015
- _Version = 65541
- _ExtentX = 5318
- _ExtentY = 661
- _StockProps = 244
- Text = "DM0,00"
- Appearance = 1
- Format = 12
- Symbol = "DM"
- DecimalSeparator= ","
- Value = 0
- End
- Begin VB.Label Label9
- Caption = "Use the currency control for insertion of various international currencies with different formats."
- Height = 495
- Left = 4320
- TabIndex = 24
- Top = 4080
- Width = 3495
- End
- Begin PVCurrencyLib.PVCurrency PVCurrency1
- Height = 375
- Left = 4320
- TabIndex = 23
- Top = 5880
- Width = 3015
- _Version = 65541
- _ExtentX = 5318
- _ExtentY = 661
- _StockProps = 244
- Text = "
- 0.00"
- Appearance = 1
- Format = 25
- Symbol = "
- Value = 0
- End
- Begin PVLINE3DLib.PVLine3D PVLine3D3
- Height = 30
- Left = 4080
- TabIndex = 22
- Top = 3960
- Width = 4095
- _Version = 65536
- _ExtentX = 7223
- _ExtentY = 53
- _StockProps = 8
- End
- Begin PVLINE3DLib.PVLine3D PVLine3D2
- Height = 7215
- Left = 4080
- TabIndex = 21
- Top = 120
- Width = 30
- _Version = 65536
- _ExtentX = 53
- _ExtentY = 12726
- _StockProps = 8
- LineOrientation = 1
- End
- Begin PVLINE3DLib.PVLine3D PVLine3D1
- Height = 30
- Left = 120
- TabIndex = 20
- Top = 3120
- Width = 3975
- _Version = 65536
- _ExtentX = 7011
- _ExtentY = 53
- _StockProps = 8
- End
- Begin VB.Label Label8
- Caption = "The Time Edit control can be used as a clock or a data entry control for time values."
- Height = 495
- Left = 120
- TabIndex = 18
- Top = 3360
- Width = 3855
- End
- Begin VB.Label Label7
- Caption = "Numeric Control with Odometer Display Style"
- Height = 255
- Left = 4320
- TabIndex = 17
- Top = 3240
- Width = 3135
- End
- Begin PVNumericLib.PVNumeric NumEdit4
- Height = 375
- Left = 4320
- TabIndex = 16
- Top = 3480
- Width = 3120
- _Version = 65541
- _ExtentX = 5503
- _ExtentY = 661
- _StockProps = 244
- Text = "0"
- Appearance = 1
- DisplayFormat = 3
- End
- Begin VB.Label Label6
- Caption = "Floating point with upper and lower limits"
- Height = 255
- Left = 4320
- TabIndex = 15
- Top = 2400
- Width = 3015
- End
- Begin VB.Label Label5
- Caption = "Integer"
- Height = 255
- Left = 4320
- TabIndex = 14
- Top = 1560
- Width = 3015
- End
- Begin VB.Label Label4
- Caption = "Real"
- Height = 255
- Left = 4320
- TabIndex = 13
- Top = 720
- Width = 2895
- End
- Begin PVNumericLib.PVNumeric NumEdit3
- Height = 495
- Left = 4320
- TabIndex = 12
- Top = 2640
- Width = 3015
- _Version = 65541
- _ExtentX = 5318
- _ExtentY = 873
- _StockProps = 244
- Text = "0"
- Appearance = 1
- End
- Begin PVNumericLib.PVNumeric NumEdit2
- Height = 495
- Left = 4320
- TabIndex = 11
- Top = 1800
- Width = 3015
- _Version = 65541
- _ExtentX = 5318
- _ExtentY = 873
- _StockProps = 244
- Text = "0"
- Appearance = 1
- DecimalMax = 0
- End
- Begin PVNumericLib.PVNumeric NumEdit1
- Height = 495
- Left = 4320
- TabIndex = 10
- Top = 960
- Width = 3015
- _Version = 65541
- _ExtentX = 5318
- _ExtentY = 873
- _StockProps = 244
- Text = "0"
- Appearance = 1
- End
- Begin VB.Label Label3
- Caption = "The numeric edit control can be formatted for different numeric types and display styles."
- Height = 495
- Left = 4200
- TabIndex = 9
- Top = 120
- Width = 3855
- End
- Begin PVTIMELib.PVTime Time1
- Height = 615
- Left = 720
- TabIndex = 5
- Top = 4440
- Width = 2295
- _Version = 65536
- _ExtentX = 4048
- _ExtentY = 1085
- _StockProps = 228
- Appearance = 1
- DisplayStyle = 1
- ShowSeconds = -1 'True
- End
- Begin PVDATELib.PVDate DateEdit2
- Height = 495
- Left = 120
- TabIndex = 4
- Top = 2400
- Width = 2175
- _Version = 65541
- _ExtentX = 3836
- _ExtentY = 873
- _StockProps = 228
- Appearance = 1
- End
- Begin VB.Label Label2
- Caption = "This date control has the calendar attached directly to it. Click the down arrow to display the current month in the control."
- Height = 615
- Left = 120
- TabIndex = 3
- Top = 1680
- Width = 3615
- End
- Begin VB.Label Label1
- Caption = $"DateFrm.frx":0000
- Height = 855
- Left = 120
- TabIndex = 2
- Top = 120
- Width = 3495
- End
- Begin PVDATELib.PVDate DateEdit1
- Height = 495
- Left = 120
- TabIndex = 0
- Top = 1080
- Width = 1935
- _Version = 65541
- _ExtentX = 3413
- _ExtentY = 873
- _StockProps = 228
- Appearance = 1
- EnableCalendarControl= 0 'False
- End
- Attribute VB_Name = "DateFrm"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- CalFrm.Show
- End Sub
- Private Sub Command2_Click()
- Time1.StartClock
- End Sub
- Private Sub Command3_Click()
- Time1.StopClock
- End Sub
- Private Sub Command4_Click()
- Time1.Time = "00:00.00"
- End Sub
- Private Sub Command5_Click()
- Rem this code is useful as an example
- Rem on how to set and get the date
- Rem from the Date Edit control
- Dim value As Date
- Dim DateDay, DateMonth, DateYear As Integer
- Rem retrieve the value from the ProtoView Date Edit
- value = DateEdit2.value
- Rem retrieve the individual date values
- DateDay = Day(value)
- DateMonth = Month(value)
- DateYear = Year(value)
- DateDay = DateDay + 5
- If (DateDay > 28) Then
- DateDay = 28
- End If
- DateMonth = DateMonth - 5
- If (DateMonth < 0) Then
- DateMonth = 1
- End If
- DateYear = DateYear + 10
- Rem set the date
- value = DateSerial(DateYear, DateMonth, DateDat)
- Rem transfer the date to the ProtoView Date Edit control
- DateEdit2.value = value
- End Sub
- Private Sub Form_Load()
- Time1.Enabled = True
- NumEdit1.SpinButtons = False
- NumEdit1.ValueReal = 1.23
- NumEdit2.ValueInteger = 45
- NumEdit3.ValueReal = 6.789
- NumEdit3.LimitValue = True
- NumEdit3.ValueMin = 1
- NumEdit3.ValueMax = 10
- End Sub
-