89 lines
3.7 KiB
VB.net
89 lines
3.7 KiB
VB.net
Public Class Form1
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Windows Form Designer generated code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Windows Form Designer.
|
|
InitializeComponent()
|
|
|
|
'Add any initialization after the InitializeComponent() call
|
|
|
|
End Sub
|
|
|
|
'Form overrides dispose to clean up the component list.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
'Required by the Windows Form Designer
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'NOTE: The following procedure is required by the Windows Form Designer
|
|
'It can be modified using the Windows Form Designer.
|
|
'Do not modify it using the code editor.
|
|
Friend WithEvents circleWidget As AxmultipleaxLib.AxQAxWidget2
|
|
Friend WithEvents resetButton As AxwrapperaxLib.AxQPushButton
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
|
|
Me.circleWidget = New AxmultipleaxLib.AxQAxWidget2()
|
|
Me.resetButton = New AxwrapperaxLib.AxQPushButton()
|
|
CType(Me.circleWidget, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.resetButton, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'circleWidget
|
|
'
|
|
Me.circleWidget.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
|
Or System.Windows.Forms.AnchorStyles.Right)
|
|
Me.circleWidget.Enabled = True
|
|
Me.circleWidget.Location = New System.Drawing.Point(8, 8)
|
|
Me.circleWidget.Name = "circleWidget"
|
|
Me.circleWidget.OcxState = CType(resources.GetObject("circleWidget.OcxState"), System.Windows.Forms.AxHost.State)
|
|
Me.circleWidget.Size = New System.Drawing.Size(280, 216)
|
|
Me.circleWidget.TabIndex = 0
|
|
'
|
|
'resetButton
|
|
'
|
|
Me.resetButton.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
|
|
' VB is case insensitive, but our C++ controls are not.
|
|
' Me.resetButton.enabled = True
|
|
Me.resetButton.Location = New System.Drawing.Point(184, 240)
|
|
Me.resetButton.Name = "resetButton"
|
|
Me.resetButton.OcxState = CType(resources.GetObject("resetButton.OcxState"), System.Windows.Forms.AxHost.State)
|
|
Me.resetButton.Size = New System.Drawing.Size(104, 24)
|
|
Me.resetButton.TabIndex = 1
|
|
'
|
|
'Form1
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(292, 273)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.resetButton, Me.circleWidget})
|
|
Me.Name = "Form1"
|
|
Me.Text = "Form1"
|
|
CType(Me.circleWidget, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.resetButton, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub circleWidget_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles circleWidget.ClickEvent
|
|
Me.circleWidget.lineWidth = Me.circleWidget.lineWidth + 1
|
|
End Sub
|
|
|
|
Private Sub resetButton_clicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetButton.clicked
|
|
Me.circleWidget.lineWidth = 1
|
|
Me.resetButton.setFocus()
|
|
End Sub
|
|
End Class
|