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