1Public 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 88End Class 89