Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txteditor.Size = New Size(Me.Size.Width - 40, Me.Size.Height - 50) End Sub
Public Class Form1 Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New() MyBase.New()
'This call is required by the Windows Form Designer. InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub
'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer
'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. Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents mnuarkiv As System.Windows.Forms.MenuItem Friend WithEvents mnurediger As System.Windows.Forms.MenuItem Friend WithEvents mnusøg As System.Windows.Forms.MenuItem Friend WithEvents mnuny As System.Windows.Forms.MenuItem Friend WithEvents mnuÅben As System.Windows.Forms.MenuItem Friend WithEvents Mnugem As System.Windows.Forms.MenuItem Friend WithEvents mnusep As System.Windows.Forms.MenuItem Friend WithEvents Mnuafslut As System.Windows.Forms.MenuItem Friend WithEvents txteditor As System.Windows.Forms.RichTextBox Friend WithEvents OpenFile As System.Windows.Forms.OpenFileDialog Friend WithEvents SaveFile As System.Windows.Forms.SaveFileDialog Friend WithEvents Mnukopier As System.Windows.Forms.MenuItem Friend WithEvents MnuIndseat As System.Windows.Forms.MenuItem Friend WithEvents Mnuom As System.Windows.Forms.MenuItem Friend WithEvents mnuprint As System.Windows.Forms.MenuItem Friend WithEvents Print As System.Windows.Forms.PrintDialog <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.MainMenu1 = New System.Windows.Forms.MainMenu() Me.mnuarkiv = New System.Windows.Forms.MenuItem() Me.mnuny = New System.Windows.Forms.MenuItem() Me.mnuÅben = New System.Windows.Forms.MenuItem() Me.Mnugem = New System.Windows.Forms.MenuItem() Me.mnuprint = New System.Windows.Forms.MenuItem() Me.mnusep = New System.Windows.Forms.MenuItem() Me.Mnuafslut = New System.Windows.Forms.MenuItem() Me.mnurediger = New System.Windows.Forms.MenuItem() Me.Mnukopier = New System.Windows.Forms.MenuItem() Me.MnuIndseat = New System.Windows.Forms.MenuItem() Me.mnusøg = New System.Windows.Forms.MenuItem() Me.Mnuom = New System.Windows.Forms.MenuItem() Me.txteditor = New System.Windows.Forms.RichTextBox() Me.OpenFile = New System.Windows.Forms.OpenFileDialog() Me.SaveFile = New System.Windows.Forms.SaveFileDialog() Me.Print = New System.Windows.Forms.PrintDialog() Me.SuspendLayout() ' 'MainMenu1 ' Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuarkiv, Me.mnurediger, Me.mnusøg, Me.Mnuom}) ' 'mnuarkiv ' Me.mnuarkiv.Index = 0 Me.mnuarkiv.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuny, Me.mnuÅben, Me.Mnugem, Me.mnuprint, Me.mnusep, Me.Mnuafslut}) Me.mnuarkiv.Text = "&Arkiv" ' 'mnuny ' Me.mnuny.Index = 0 Me.mnuny.Text = "&Ny" ' 'mnuÅben ' Me.mnuÅben.Index = 1 Me.mnuÅben.Text = "&Åben" ' 'Mnugem ' Me.Mnugem.Index = 2 Me.Mnugem.Text = "&Gem" ' 'mnuprint ' Me.mnuprint.Index = 3 Me.mnuprint.Text = "&Print" ' 'mnusep ' Me.mnusep.Index = 4 Me.mnusep.Text = "-" ' 'Mnuafslut ' Me.Mnuafslut.Index = 5 Me.Mnuafslut.Text = "&Afslut" ' 'mnurediger ' Me.mnurediger.Index = 1 Me.mnurediger.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Mnukopier, Me.MnuIndseat}) Me.mnurediger.Text = "&Rediger" ' 'Mnukopier ' Me.Mnukopier.Index = 0 Me.Mnukopier.Text = "&Kopier" ' 'MnuIndseat ' Me.MnuIndseat.Index = 1 Me.MnuIndseat.Text = "&Indsæt" ' 'mnusøg ' Me.mnusøg.Index = 2 Me.mnusøg.Text = "&Søg" ' 'Mnuom ' Me.Mnuom.Index = 3 Me.Mnuom.Text = "&om" ' 'txteditor ' Me.txteditor.Name = "txteditor" Me.txteditor.Size = New System.Drawing.Size(288, 264) Me.txteditor.TabIndex = 0 Me.txteditor.Text = "" ' 'SaveFile ' Me.SaveFile.FileName = "doc1" ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txteditor}) Me.Menu = Me.MainMenu1 Me.Name = "Form1" Me.Text = "Textbehandling" Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim txtWidth, txtHeight As String End Sub Private Sub Mnuafslut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnuafslut.Click End End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.