orderproductdialog.designer.vb
来自「清华大学出版社出版的 移动应用开发宝典 张大威(2008)的附书源代码」· VB 代码 · 共 189 行
VB
189 行
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class OrderProductDialog
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Private mainMenu1 As System.Windows.Forms.MainMenu
'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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim ProductIdLabel As System.Windows.Forms.Label
Dim QuantityLabel As System.Windows.Forms.Label
Dim ProductNameLabel As System.Windows.Forms.Label
Dim PriceLabel As System.Windows.Forms.Label
Me.mainMenu1 = New System.Windows.Forms.MainMenu
Me.AppDatabaseDataSet = New DisconnectedServiceAgentExample.AppDatabaseDataSet
Me.OrdersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.OrdersTableAdapter = New DisconnectedServiceAgentExample.AppDatabaseDataSetTableAdapters.OrdersTableAdapter
Me.ProductIdTextBox = New System.Windows.Forms.TextBox
Me.QuantityTextBox = New System.Windows.Forms.TextBox
Me.ProductNameTextBox = New System.Windows.Forms.TextBox
Me.PriceTextBox = New System.Windows.Forms.TextBox
Me.customerNameTextBox = New System.Windows.Forms.TextBox
Me.label1 = New System.Windows.Forms.Label
Me.ConfirmMenuItem = New System.Windows.Forms.MenuItem
Me.CancelMenuItem = New System.Windows.Forms.MenuItem
ProductIdLabel = New System.Windows.Forms.Label
QuantityLabel = New System.Windows.Forms.Label
ProductNameLabel = New System.Windows.Forms.Label
PriceLabel = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'mainMenu1
'
Me.mainMenu1.MenuItems.Add(Me.ConfirmMenuItem)
Me.mainMenu1.MenuItems.Add(Me.CancelMenuItem)
'
'AppDatabaseDataSet
'
Me.AppDatabaseDataSet.DataSetName = "AppDatabaseDataSet"
Me.AppDatabaseDataSet.Prefix = ""
Me.AppDatabaseDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'OrdersBindingSource
'
Me.OrdersBindingSource.DataMember = "Orders"
Me.OrdersBindingSource.DataSource = Me.AppDatabaseDataSet
'
'OrdersTableAdapter
'
Me.OrdersTableAdapter.ClearBeforeFill = True
'
'ProductIdLabel
'
ProductIdLabel.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
ProductIdLabel.Location = New System.Drawing.Point(9, 46)
ProductIdLabel.Name = "ProductIdLabel"
ProductIdLabel.Size = New System.Drawing.Size(77, 14)
ProductIdLabel.Text = "Product Id:"
'
'ProductIdTextBox
'
Me.ProductIdTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.OrdersBindingSource, "ProductId", True))
Me.ProductIdTextBox.Location = New System.Drawing.Point(121, 46)
Me.ProductIdTextBox.Name = "ProductIdTextBox"
Me.ProductIdTextBox.Size = New System.Drawing.Size(100, 21)
Me.ProductIdTextBox.TabIndex = 3
'
'QuantityLabel
'
QuantityLabel.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
QuantityLabel.Location = New System.Drawing.Point(9, 152)
QuantityLabel.Name = "QuantityLabel"
QuantityLabel.Size = New System.Drawing.Size(65, 14)
QuantityLabel.Text = "Quantity:"
'
'QuantityTextBox
'
Me.QuantityTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.OrdersBindingSource, "Quantity", True))
Me.QuantityTextBox.Location = New System.Drawing.Point(121, 152)
Me.QuantityTextBox.Name = "QuantityTextBox"
Me.QuantityTextBox.Size = New System.Drawing.Size(100, 21)
Me.QuantityTextBox.TabIndex = 5
'
'ProductNameLabel
'
ProductNameLabel.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
ProductNameLabel.Location = New System.Drawing.Point(9, 73)
ProductNameLabel.Name = "ProductNameLabel"
ProductNameLabel.Size = New System.Drawing.Size(97, 14)
ProductNameLabel.Text = "Product Name:"
'
'ProductNameTextBox
'
Me.ProductNameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.OrdersBindingSource, "ProductName", True))
Me.ProductNameTextBox.Location = New System.Drawing.Point(121, 73)
Me.ProductNameTextBox.Name = "ProductNameTextBox"
Me.ProductNameTextBox.Size = New System.Drawing.Size(100, 21)
Me.ProductNameTextBox.TabIndex = 7
'
'PriceLabel
'
PriceLabel.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
PriceLabel.Location = New System.Drawing.Point(9, 101)
PriceLabel.Name = "PriceLabel"
PriceLabel.Size = New System.Drawing.Size(40, 14)
PriceLabel.Text = "Price:"
'
'PriceTextBox
'
Me.PriceTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.OrdersBindingSource, "Price", True, System.Windows.Forms.DataSourceUpdateMode.OnValidation, Nothing, "C2"))
Me.PriceTextBox.Location = New System.Drawing.Point(121, 101)
Me.PriceTextBox.Name = "PriceTextBox"
Me.PriceTextBox.Size = New System.Drawing.Size(100, 21)
Me.PriceTextBox.TabIndex = 9
'
'customerNameTextBox
'
Me.customerNameTextBox.Location = New System.Drawing.Point(9, 220)
Me.customerNameTextBox.MaxLength = 50
Me.customerNameTextBox.Name = "customerNameTextBox"
Me.customerNameTextBox.Size = New System.Drawing.Size(212, 21)
Me.customerNameTextBox.TabIndex = 15
'
'label1
'
Me.label1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold)
Me.label1.Location = New System.Drawing.Point(9, 196)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(118, 20)
Me.label1.Text = "Customer Name:"
'
'ConfirmMenuItem
'
Me.ConfirmMenuItem.Text = "Confirm"
'
'CancelMenuItem
'
Me.CancelMenuItem.Text = "Cancel"
'
'OrderProductDialog
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.ControlBox = False
Me.Controls.Add(Me.customerNameTextBox)
Me.Controls.Add(Me.label1)
Me.Controls.Add(ProductIdLabel)
Me.Controls.Add(Me.ProductIdTextBox)
Me.Controls.Add(QuantityLabel)
Me.Controls.Add(Me.QuantityTextBox)
Me.Controls.Add(ProductNameLabel)
Me.Controls.Add(Me.ProductNameTextBox)
Me.Controls.Add(PriceLabel)
Me.Controls.Add(Me.PriceTextBox)
Me.Menu = Me.mainMenu1
Me.Name = "OrderProductDialog"
Me.Text = "Order Product"
Me.ResumeLayout(False)
End Sub
Friend WithEvents AppDatabaseDataSet As DisconnectedServiceAgentExample.AppDatabaseDataSet
Friend WithEvents OrdersBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents OrdersTableAdapter As DisconnectedServiceAgentExample.AppDatabaseDataSetTableAdapters.OrdersTableAdapter
Friend WithEvents ProductIdTextBox As System.Windows.Forms.TextBox
Friend WithEvents QuantityTextBox As System.Windows.Forms.TextBox
Friend WithEvents ProductNameTextBox As System.Windows.Forms.TextBox
Friend WithEvents PriceTextBox As System.Windows.Forms.TextBox
Private WithEvents customerNameTextBox As System.Windows.Forms.TextBox
Private WithEvents label1 As System.Windows.Forms.Label
Friend WithEvents ConfirmMenuItem As System.Windows.Forms.MenuItem
Friend WithEvents CancelMenuItem As System.Windows.Forms.MenuItem
End Class
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?