| 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
|
|---|
