source: trunk/examples/activeqt/dotnet/walkthrough/Form1.vb@ 563

Last change on this file since 563 was 2, checked in by Dmitry A. Kuminov, 16 years ago

Initially imported qt-all-opensource-src-4.5.1 from Trolltech.

File size: 3.7 KB
Line 
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
Note: See TracBrowser for help on using the repository browser.