Private VorForm1_Load (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) behandelt Me.Load
Anschl. Öffnen ()
Cmb als neues ComboBox verdunkeln
Tbp als neues TabPage verdunkeln
Lbl als neuer Aufkleber verdunkeln
Dir als neues DirectoryInfo („\ \ Bediener \ es \ ScriptTest verdunkeln \ ")
Für jedes d als DirectoryInfo in dir.GetDirectories
tbp. Name = „tbp“ u. d.Name
tbp. Position = neues System.Drawing.Point (4, 22)
tbp. Auffüllen = neues System.Windows.Forms.Padding (3)
tbp. Größe = neues System.Drawing.Size (281, 187)
tbp.UseVisualStyleBackColor = richten aus
tbp. Text = d.Name
Me.tbcModules.Controls.Add (tbp)
cmb.FormattingEnabled = richten aus
cmb. Position = neues System.Drawing.Point (15, 98)
cmb. Name = „cmb“ u. d.Name
cmb. Größe = neues System.Drawing.Size (228, 21)
tbp. Controls.Add (cmb)
lbl.AutoSize = richten aus
lbl. Position = neues System.Drawing.Point (12, 42)
lbl. Name = „Lbl“ u. d.Name
lbl. Größe = neues System.Drawing.Size (219, 13)
lbl.TabIndex = 3
lbl. Text = „wählen einen Job vor, vom Menü des Tropfens unten zu laufen.“
tbp. Controls.Add (lbl)
Schwaches Faltblatt als neues DirectoryInfo („\ \ Bediener \ es \ ScriptTest \“ u. d.Name)
Schwaches tmpName als Schnur = ""
Versuch
Für jedes f als FileInfo in folder.GetFiles
cmb. Items.Add (f.Name.Replace („.txt“, ""))
Zunächst
Fang c als Ausnahme
tbp. Abschaffen ()
Versuch beenden
Zunächst
Enden-Unterseeboot
|