Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

DomainUpDown Items Add

Imports System Imports System.Data Imports System.Windows.Forms Imports System.Drawing Public Class MainClass          Shared Sub Main()         Dim form1 As Form = New Form1         Application.Run(form1)     End Sub End Class Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         DomainUpDown1.SelectedIndex = 0     End Sub End Class <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Public Class Form1     Inherits System.Windows.Forms.Form     <System.Diagnostics.DebuggerStepThrough()> _     Private Sub InitializeComponent()         Me.DomainUpDown1 = New System.Windows.Forms.DomainUpDown         Me.Label1 = New System.Windows.Forms.Label         Me.SuspendLayout()         '         'DomainUpDown1         '         Me.DomainUpDown1.Items.Add("January")         Me.DomainUpDown1.Items.Add("February")         Me.DomainUpDown1.Items.Add("March")         Me.DomainUpDown1.Items.Add("April")         Me.DomainUpDown1.Items.Add("May")         Me.DomainUpDown1.Items.Add("June")         Me.DomainUpDown1.Items.Add("July")         Me.DomainUpDown1.Items.Add("August")         Me.DomainUpDown1.Items.Add("September")         Me.DomainUpDown1.Items.Add("October")         Me.DomainUpDown1.Items.Add("November")         Me.DomainUpDown1.Items.Add("December")         Me.DomainUpDown1.Items.Add("Smarch")         Me.DomainUpDown1.Location = New System.Drawing.Point(48, 16)         Me.DomainUpDown1.Name = "DomainUpDown1"         Me.DomainUpDown1.Size = New System.Drawing.Size(152, 20)         Me.DomainUpDown1.TabIndex = 0         Me.DomainUpDown1.Text = "DomainUpDown1"         '         'Label1         '         Me.Label1.AutoSize = True         Me.Label1.Location = New System.Drawing.Point(8, 16)         Me.Label1.Name = "Label1"         Me.Label1.Size = New System.Drawing.Size(33, 13)         Me.Label1.TabIndex = 1         Me.Label1.Text = "Month"         '         'Form1         '         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font         Me.ClientSize = New System.Drawing.Size(292, 273)         Me.Controls.Add(Me.Label1)         Me.Controls.Add(Me.DomainUpDown1)         Me.Name = "Form1"         Me.Text = "UseDomainUpDown"         Me.ResumeLayout(False)         Me.PerformLayout()     End Sub     Friend WithEvents DomainUpDown1 As System.Windows.Forms.DomainUpDown     Friend WithEvents Label1 As System.Windows.Forms.Label End Class