TabForm.MaximizeBox = false

來源:互聯網
上載者:User

 
(
 
dotnet.loadassembly "System.Data"
 
 
 
Color = dotNetClass "System.Drawing.Color"
 
ScrollBars = dotNetClass "System.Windows.Forms.ScrollBars"
 
 
 
-- Create Tabs Container
 
tabControl1 = dotnetobject "system.windows.forms.TabControl"
 
tabControl1.size = dotnetobject "system.drawing.size" 395 195
 
tabControl1.Location = dotnetobject "System.Drawing.Point" 0 0
 
 
 
--Create Tabs
 
tabPage1 = dotnetobject "System.Windows.Forms.TabPage"
 
tabPage1.text = "Goodbye World"
 
tabPage2 = dotnetobject "System.Windows.Forms.TabPage"
 
tabPage2.text = "Hello World"
 
tabPage1.backColor = color.fromArgb 200 200 200
 
tabPage2.backColor = color.fromArgb 200 200 200
 
 
 
-- Add Some Columns to the Datagrid
 
dt = dotnetobject "system.data.DataTable""Test"
 
Column1 = dotnetobject "System.Data.DataColumn" "id" (dotnetclass "System.Int32")
 
Column2 = dotnetobject "System.Data.DataColumn" "Name" (dotnetclass "System.String")
 
dt.columns.add Column1
 
dt.columns.add Column2
 
 
 
for i=0 to 2 do
 
(
 
row=#(dotnetobject "System.Int32" i,dotnetobject "System.String" (i as string))
 
dt.rows.add row
 
)
 
 
 
-- Create Datagrid
 
DGrid1 = dotnetobject "System.Windows.Forms.DataGrid"
 
DGrid1.Location = dotNetObject "System.Drawing.Point" 10 10
 
DGrid1.Width = 365
 
DGrid1.Height = 120
 
DGrid1.Visible = true
 
DGrid1.DataSource = dt
 
 
 
-- Create TextBox
 
TB1TextBox = dotNetObject "System.Windows.Forms.TextBox"
 
TB1TextBox.Location = dotNetObject "System.Drawing.Point" 10 10
 
TB1TextBox.Width = 365
 
TB1TextBox.Height = 120
 
TB1TextBox.Visible = true
 
TB1TextBox.MultiLine = true
 
TB1TextBox.ScrollBars = ScrollBars.Vertical
 
TB1TextBox.AcceptsReturn = true
 
TB1TextBox.AcceptsTab = true
 
TB1TextBox.WordWrap = true
 
 
 
-- Create Buttons
 
button01 = dotnetobject "System.Windows.Forms.button"
 
button01.text = "goodbye"
 
button01.Location = dotNetObject "System.Drawing.Point" 300 138
 
 
 
-- Create Form
 
TabForm = dotNetObject "System.Windows.Forms.Form"

 

 
TabForm.Size = dotNetObject "System.Drawing.Size" 400 225
 
TabForm.Text = "Title"
 
TabForm.TopMost = true
 
FormBorderStyle = dotNetClass "System.Windows.Forms.FormBorderStyle"
 
TabForm.FormBorderStyle = FormBorderStyle.FixedDialog
 
TabForm.ShowInTaskbar = false
 
TabForm.MinimizeBox = true
 
TabForm.MaximizeBox = false
 
Tabform.helpbutton = true
 
 
 
-- Add UI elements to Tabs
 
tabpage1.controls.add(TB1textbox)
 
tabpage1.controls.add(button01)
 
tabpage2.controls.add(DGrid1)
 
 
 
-- Add Tabs to Tab Container
 
tabcontrol1.controls.add(tabpage1)
 
tabcontrol1.controls.add(tabpage2)
 
-- Add Tab Container to UI Form
 
TabForm.Controls.Add(tabcontrol1)
 
-- Show application Form
 
TTApp = dotNetClass "System.Windows.Forms.Application"
 
TTApp.Run TabForm
 
)

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.