1 Public Class Form1

     2     Inherits System.Windows.Forms.Form

     3 

     4 #Region " Windows Form Designer generated code "

     5 

     6     Public Sub New()

     7         MyBase.New()

     8 

     9         'This call is required by the Windows Form Designer.

    10         InitializeComponent()

    11 

    12         'Add any initialization after the InitializeComponent() call

    13 

    14     End Sub

    15 

    16     'Form overrides dispose to clean up the component list.

    17     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

    18         If disposing Then

    19             If Not (components Is Nothing) Then

    20                 components.Dispose()

    21             End If

    22         End If

    23         MyBase.Dispose(disposing)

    24     End Sub

    25 

    26     'Required by the Windows Form Designer

    27     Private components As System.ComponentModel.IContainer

    28 

    29     'NOTE: The following procedure is required by the Windows Form Designer

    30     'It can be modified using the Windows Form Designer.  

    31     'Do not modify it using the code editor.

    32     Friend WithEvents circleWidget As AxmultipleaxLib.AxQAxWidget2

    33     Friend WithEvents resetButton As AxwrapperaxLib.AxQPushButton

    34     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    35         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))

    36         Me.circleWidget = New AxmultipleaxLib.AxQAxWidget2()

    37         Me.resetButton = New AxwrapperaxLib.AxQPushButton()

    38         CType(Me.circleWidget, System.ComponentModel.ISupportInitialize).BeginInit()

    39         CType(Me.resetButton, System.ComponentModel.ISupportInitialize).BeginInit()

    40         Me.SuspendLayout()

    41         '

    42         'circleWidget

    43         '

    44         Me.circleWidget.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _

    45                     Or System.Windows.Forms.AnchorStyles.Left) _

    46                     Or System.Windows.Forms.AnchorStyles.Right)

    47         Me.circleWidget.Enabled = True

    48         Me.circleWidget.Location = New System.Drawing.Point(8, 8)

    49         Me.circleWidget.Name = "circleWidget"

    50         Me.circleWidget.OcxState = CType(resources.GetObject("circleWidget.OcxState"), System.Windows.Forms.AxHost.State)

    51         Me.circleWidget.Size = New System.Drawing.Size(280, 216)

    52         Me.circleWidget.TabIndex = 0

    53         '

    54         'resetButton

    55         '

    56         Me.resetButton.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)

    57         ' VB is case insensitive, but our C++ controls are not.

    58         ' Me.resetButton.enabled = True

    59         Me.resetButton.Location = New System.Drawing.Point(184, 240)

    60         Me.resetButton.Name = "resetButton"

    61         Me.resetButton.OcxState = CType(resources.GetObject("resetButton.OcxState"), System.Windows.Forms.AxHost.State)

    62         Me.resetButton.Size = New System.Drawing.Size(104, 24)

    63         Me.resetButton.TabIndex = 1

    64         '

    65         'Form1

    66         '

    67         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

    68         Me.ClientSize = New System.Drawing.Size(292, 273)

    69         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.resetButton, Me.circleWidget})

    70         Me.Name = "Form1"

    71         Me.Text = "Form1"

    72         CType(Me.circleWidget, System.ComponentModel.ISupportInitialize).EndInit()

    73         CType(Me.resetButton, System.ComponentModel.ISupportInitialize).EndInit()

    74         Me.ResumeLayout(False)

    75 

    76     End Sub

    77 

    78 #End Region

    79 

    80     Private Sub circleWidget_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles circleWidget.ClickEvent

    81         Me.circleWidget.lineWidth = Me.circleWidget.lineWidth + 1

    82     End Sub

    83 

    84     Private Sub resetButton_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetButton.clicked

    85         Me.circleWidget.lineWidth = 1

    86         Me.resetButton.setFocus()

    87     End Sub

    88 End Class