Keskustelu: Ohjelmointikysymykset: VB.NET: Ilmainen vb.net IDE netistä

'
' Created by SharpDevelop.
' User: TNB
' Date: 29.9.2004
' Time: 21:57
'
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Imports System
Imports System.Drawing
Imports System.Windows.Forms

Namespace DefaultNamespace

	Public Class MainForm
		Inherits System.Windows.Forms.Form
		Private button1 As System.Windows.Forms.Button
		Private textBox1 As System.Windows.Forms.TextBox

		Public Shared Sub Main
			Dim fMainForm As New MainForm
			fMainForm.ShowDialog()
		End Sub

		Public Sub New()
			MyBase.New
			'
			' The Me.InitializeComponent call is required for Windows Forms designer support.
			'
			Me.InitializeComponent
			'
			' TODO : Add constructor code after InitializeComponents
			'

		End Sub

		#Region " Windows Forms Designer generated code "
		' This method is required for Windows Forms designer support.
		' Do not change the method contents inside the source code editor. The Forms designer might
		' not be able to load this method if it was changed manually.
		Private Sub InitializeComponent()
			Me.textBox1 = New System.Windows.Forms.TextBox
			Me.button1 = New System.Windows.Forms.Button
			Me.SuspendLayout
			'
			'textBox1
			'
			Me.textBox1.Location = New System.Drawing.Point(48, 80)
			Me.textBox1.Name = "textBox1"
			Me.textBox1.Size = New System.Drawing.Size(128, 20)
			Me.textBox1.TabIndex = 1
			Me.textBox1.Text = "textBox1"
			'
			'button1
			'
			Me.button1.Location = New System.Drawing.Point(40, 32)
			Me.button1.Name = "button1"
			Me.button1.Size = New System.Drawing.Size(64, 24)
			Me.button1.TabIndex = 0
			Me.button1.Text = "button1"
			AddHandler Me.button1.Click, AddressOf Me.Button1Click
			'
			'MainForm
			'
			Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
			Me.ClientSize = New System.Drawing.Size(292, 266)
			Me.Controls.Add(Me.textBox1)
			Me.Controls.Add(Me.button1)
			Me.Name = "MainForm"
			Me.Text = "MainForm"
			Me.ResumeLayout(false)
		End Sub
		#End Region

		Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
			Textbox1.Text = "HELLO"

		End Sub

	End Class
End Namespace