Click here to Skip to main content
15,860,859 members
Articles / Desktop Programming / WTL

Form Designer

26 Jul 2021CPOL24 min read 349.7K   82.5K   230  
Component for adding scriptable forms capabilities to an application.
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.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Web Developer
United Kingdom United Kingdom
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions