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