|
VERSION 5.00
Begin VB.Form Form3
BorderStyle = 3 'Fixed Dialog
Caption = "Grid Settings"
ClientHeight = 1260
ClientLeft = 45
ClientTop = 330
ClientWidth = 3945
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1260
ScaleWidth = 3945
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton Cancel
Caption = "Cancel"
Height = 375
Left = 2760
TabIndex = 5
Top = 720
Width = 1095
End
Begin VB.CommandButton OK
Caption = "OK"
Default = -1 'True
Height = 375
Left = 2760
TabIndex = 4
Top = 240
Width = 1095
End
Begin VB.TextBox GridHeight
Height = 375
Left = 1440
TabIndex = 1
Text = "???"
Top = 720
Width = 1095
End
Begin VB.TextBox GridWidth
Height = 375
Left = 120
TabIndex = 0
Text = "???"
Top = 720
Width = 1095
End
Begin VB.Label Label3
Caption = "Enter the required grid dimensions"
Height = 255
Left = 120
TabIndex = 6
Top = 120
Width = 2415
End
Begin VB.Label Label2
Caption = "Height"
Height = 255
Left = 1440
TabIndex = 3
Top = 480
Width = 1095
End
Begin VB.Label Label1
Caption = "Width"
Height = 255
Left = 120
TabIndex = 2
Top = 480
Width = 1095
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
' Form Editor Demonstration Program
'
' Author : David Shepherd
' Copyright (c) 2002, DaeDoe-Softwre
'
Private Sub Cancel_Click()
On Error GoTo error
' unload the form
Unload Me
Exit Sub
error:
End Sub
Private Sub OK_Click()
On Error GoTo error
' set the grid dimensions
Form1.FormEditor1.GridWidth = GridWidth
Form1.FormEditor1.GridHeight = GridHeight
' unload the form
Unload Me
Exit Sub
error:
End Sub
Private Sub Form_Load()
On Error GoTo error
' get the grid dimensions
GridWidth = Form1.FormEditor1.GridWidth
GridHeight = Form1.FormEditor1.GridHeight
Exit Sub
error:
End Sub
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.