Hvordan får den her kode in i visual basic express igen?
HejsaJeg har lavet en rimelig stor kode og kopiret og gemt mit projekt og selvfølgelig kan jeg ikke åbne projektet, men har koden. Hvordan kan jeg så få den ind igen? Jeg har den som txt fil og en kopi er her:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class configuration
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.tabcontrol = New System.Windows.Forms.TabControl
Me.tab1 = New System.Windows.Forms.TabPage
Me.box1 = New System.Windows.Forms.GroupBox
Me.tab2 = New System.Windows.Forms.TabPage
Me.box3 = New System.Windows.Forms.GroupBox
Me.disconnect = New System.Windows.Forms.Button
Me.box2 = New System.Windows.Forms.GroupBox
Me.username = New System.Windows.Forms.TextBox
Me.password = New System.Windows.Forms.TextBox
Me.remember = New System.Windows.Forms.CheckBox
Me.connect = New System.Windows.Forms.Button
Me.tab3 = New System.Windows.Forms.TabPage
Me.box4 = New System.Windows.Forms.GroupBox
Me.ff = New System.Windows.Forms.CheckBox
Me.ie = New System.Windows.Forms.CheckBox
Me.test = New System.Windows.Forms.Button
Me.box6 = New System.Windows.Forms.GroupBox
Me.connectff = New System.Windows.Forms.Button
Me.box5 = New System.Windows.Forms.GroupBox
Me.connectie = New System.Windows.Forms.Button
Me.tab4 = New System.Windows.Forms.TabPage
Me.box8 = New System.Windows.Forms.GroupBox
Me.box7 = New System.Windows.Forms.GroupBox
Me.tabcontrol.SuspendLayout()
Me.tab1.SuspendLayout()
Me.tab2.SuspendLayout()
Me.box3.SuspendLayout()
Me.box2.SuspendLayout()
Me.tab3.SuspendLayout()
Me.box4.SuspendLayout()
Me.box6.SuspendLayout()
Me.box5.SuspendLayout()
Me.tab4.SuspendLayout()
Me.SuspendLayout()
'
'tabcontrol
'
Me.tabcontrol.Controls.Add(Me.tab1)
Me.tabcontrol.Controls.Add(Me.tab2)
Me.tabcontrol.Controls.Add(Me.tab3)
Me.tabcontrol.Controls.Add(Me.tab4)
Me.tabcontrol.Location = New System.Drawing.Point(-2, -1)
Me.tabcontrol.Name = "tabcontrol"
Me.tabcontrol.SelectedIndex = 0
Me.tabcontrol.Size = New System.Drawing.Size(305, 273)
Me.tabcontrol.TabIndex = 0
'
'tab1
'
Me.tab1.Controls.Add(Me.box1)
Me.tab1.Location = New System.Drawing.Point(4, 22)
Me.tab1.Name = "tab1"
Me.tab1.Padding = New System.Windows.Forms.Padding(3)
Me.tab1.Size = New System.Drawing.Size(297, 247)
Me.tab1.TabIndex = 0
Me.tab1.Text = "Start"
Me.tab1.UseVisualStyleBackColor = True
'
'box1
'
Me.box1.Location = New System.Drawing.Point(10, 6)
Me.box1.Name = "box1"
Me.box1.Size = New System.Drawing.Size(275, 227)
Me.box1.TabIndex = 0
Me.box1.TabStop = False
Me.box1.Text = "Starts instruktioner"
'
'tab2
'
Me.tab2.Controls.Add(Me.box3)
Me.tab2.Controls.Add(Me.box2)
Me.tab2.Location = New System.Drawing.Point(4, 22)
Me.tab2.Name = "tab2"
Me.tab2.Padding = New System.Windows.Forms.Padding(3)
Me.tab2.Size = New System.Drawing.Size(297, 247)
Me.tab2.TabIndex = 1
Me.tab2.Text = "Netværksdreve"
Me.tab2.UseVisualStyleBackColor = True
'
'box3
'
Me.box3.Controls.Add(Me.disconnect)
Me.box3.Location = New System.Drawing.Point(10, 161)
Me.box3.Name = "box3"
Me.box3.Size = New System.Drawing.Size(275, 72)
Me.box3.TabIndex = 1
Me.box3.TabStop = False
Me.box3.Text = "Afbryd forbindelse"
'
'disconnect
'
Me.disconnect.Enabled = False
Me.disconnect.Location = New System.Drawing.Point(169, 43)
Me.disconnect.Name = "disconnect"
Me.disconnect.Size = New System.Drawing.Size(100, 23)
Me.disconnect.TabIndex = 0
Me.disconnect.Text = "Afbryd"
Me.disconnect.UseVisualStyleBackColor = True
'
'box2
'
Me.box2.Controls.Add(Me.username)
Me.box2.Controls.Add(Me.password)
Me.box2.Controls.Add(Me.remember)
Me.box2.Controls.Add(Me.connect)
Me.box2.Location = New System.Drawing.Point(10, 6)
Me.box2.Name = "box2"
Me.box2.Size = New System.Drawing.Size(275, 149)
Me.box2.TabIndex = 0
Me.box2.TabStop = False
Me.box2.Text = "Opret forbindelse"
'
'username
'
Me.username.Location = New System.Drawing.Point(169, 20)
Me.username.Name = "username"
Me.username.Size = New System.Drawing.Size(100, 21)
Me.username.TabIndex = 3
Me.username.Text = "sts-uve\"
'
'password
'
Me.password.Location = New System.Drawing.Point(169, 47)
Me.password.Name = "password"
Me.password.Size = New System.Drawing.Size(100, 21)
Me.password.TabIndex = 2
Me.password.UseSystemPasswordChar = True
'
'remember
'
Me.remember.AutoSize = True
Me.remember.Location = New System.Drawing.Point(169, 97)
Me.remember.Name = "remember"
Me.remember.Size = New System.Drawing.Size(58, 17)
Me.remember.TabIndex = 1
Me.remember.Text = "Husk"
Me.remember.UseVisualStyleBackColor = True
'
'connect
'
Me.connect.Location = New System.Drawing.Point(169, 120)
Me.connect.Name = "connect"
Me.connect.Size = New System.Drawing.Size(100, 23)
Me.connect.TabIndex = 0
Me.connect.Text = "Opret"
Me.connect.UseVisualStyleBackColor = True
'
'tab3
'
Me.tab3.Controls.Add(Me.box4)
Me.tab3.Controls.Add(Me.box6)
Me.tab3.Controls.Add(Me.box5)
Me.tab3.Location = New System.Drawing.Point(4, 22)
Me.tab3.Name = "tab3"
Me.tab3.Padding = New System.Windows.Forms.Padding(3)
Me.tab3.Size = New System.Drawing.Size(297, 247)
Me.tab3.TabIndex = 2
Me.tab3.Text = "Proxy"
Me.tab3.UseVisualStyleBackColor = True
'
'box4
'
Me.box4.Controls.Add(Me.ff)
Me.box4.Controls.Add(Me.ie)
Me.box4.Controls.Add(Me.test)
Me.box4.Location = New System.Drawing.Point(10, 6)
Me.box4.Name = "box4"
Me.box4.Size = New System.Drawing.Size(275, 96)
Me.box4.TabIndex = 2
Me.box4.TabStop = False
Me.box4.Text = "Test forbindelse"
'
'ff
'
Me.ff.AutoSize = True
Me.ff.Location = New System.Drawing.Point(169, 44)
Me.ff.Name = "ff"
Me.ff.Size = New System.Drawing.Size(73, 17)
Me.ff.TabIndex = 3
Me.ff.Text = "Firefox"
Me.ff.UseVisualStyleBackColor = True
'
'ie
'
Me.ie.AutoSize = True
Me.ie.Location = New System.Drawing.Point(169, 20)
Me.ie.Name = "ie"
Me.ie.Size = New System.Drawing.Size(82, 17)
Me.ie.TabIndex = 2
Me.ie.Text = "Explorer"
Me.ie.UseVisualStyleBackColor = True
'
'test
'
Me.test.Location = New System.Drawing.Point(169, 67)
Me.test.Name = "test"
Me.test.Size = New System.Drawing.Size(100, 23)
Me.test.TabIndex = 1
Me.test.Text = "Test"
Me.test.UseVisualStyleBackColor = True
'
'box6
'
Me.box6.Controls.Add(Me.connectff)
Me.box6.Location = New System.Drawing.Point(10, 176)
Me.box6.Name = "box6"
Me.box6.Size = New System.Drawing.Size(275, 57)
Me.box6.TabIndex = 1
Me.box6.TabStop = False
Me.box6.Text = "Mozilla Firefox"
'
'connectff
'
Me.connectff.Location = New System.Drawing.Point(169, 28)
Me.connectff.Name = "connectff"
Me.connectff.Size = New System.Drawing.Size(100, 23)
Me.connectff.TabIndex = 3
Me.connectff.Text = "Opret"
Me.connectff.UseVisualStyleBackColor = True
'
'box5
'
Me.box5.Controls.Add(Me.connectie)
Me.box5.Location = New System.Drawing.Point(10, 108)
Me.box5.Name = "box5"
Me.box5.Size = New System.Drawing.Size(275, 62)
Me.box5.TabIndex = 0
Me.box5.TabStop = False
Me.box5.Text = "Internet Explorer"
'
'connectie
'
Me.connectie.Location = New System.Drawing.Point(169, 33)
Me.connectie.Name = "connectie"
Me.connectie.Size = New System.Drawing.Size(100, 23)
Me.connectie.TabIndex = 2
Me.connectie.Text = "Opret"
Me.connectie.UseVisualStyleBackColor = True
'
'tab4
'
Me.tab4.Controls.Add(Me.box8)
Me.tab4.Controls.Add(Me.box7)
Me.tab4.Location = New System.Drawing.Point(4, 22)
Me.tab4.Name = "tab4"
Me.tab4.Padding = New System.Windows.Forms.Padding(3)
Me.tab4.Size = New System.Drawing.Size(297, 247)
Me.tab4.TabIndex = 3
Me.tab4.Text = "Information"
Me.tab4.UseVisualStyleBackColor = True
'
'box8
'
Me.box8.Location = New System.Drawing.Point(10, 144)
Me.box8.Name = "box8"
Me.box8.Size = New System.Drawing.Size(275, 89)
Me.box8.TabIndex = 1
Me.box8.TabStop = False
Me.box8.Text = "Kontakt informationer"
'
'box7
'
Me.box7.Location = New System.Drawing.Point(10, 6)
Me.box7.Name = "box7"
Me.box7.Size = New System.Drawing.Size(275, 132)
Me.box7.TabIndex = 0
Me.box7.TabStop = False
Me.box7.Text = "Information om programmet"
'
'configuration
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(299, 266)
Me.Controls.Add(Me.tabcontrol)
Me.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "configuration"
Me.Text = "STS Opsætning"
Me.tabcontrol.ResumeLayout(False)
Me.tab1.ResumeLayout(False)
Me.tab2.ResumeLayout(False)
Me.box3.ResumeLayout(False)
Me.box2.ResumeLayout(False)
Me.box2.PerformLayout()
Me.tab3.ResumeLayout(False)
Me.box4.ResumeLayout(False)
Me.box4.PerformLayout()
Me.box6.ResumeLayout(False)
Me.box5.ResumeLayout(False)
Me.tab4.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents tabcontrol As System.Windows.Forms.TabControl
Friend WithEvents tab1 As System.Windows.Forms.TabPage
Friend WithEvents tab2 As System.Windows.Forms.TabPage
Friend WithEvents tab3 As System.Windows.Forms.TabPage
Friend WithEvents tab4 As System.Windows.Forms.TabPage
Friend WithEvents box1 As System.Windows.Forms.GroupBox
Friend WithEvents box3 As System.Windows.Forms.GroupBox
Friend WithEvents box2 As System.Windows.Forms.GroupBox
Friend WithEvents box6 As System.Windows.Forms.GroupBox
Friend WithEvents box5 As System.Windows.Forms.GroupBox
Friend WithEvents box8 As System.Windows.Forms.GroupBox
Friend WithEvents box7 As System.Windows.Forms.GroupBox
Friend WithEvents disconnect As System.Windows.Forms.Button
Friend WithEvents username As System.Windows.Forms.TextBox
Friend WithEvents password As System.Windows.Forms.TextBox
Friend WithEvents remember As System.Windows.Forms.CheckBox
Friend WithEvents connect As System.Windows.Forms.Button
Dim sts As String
Dim pass As String
Dim user As String
Dim oNet
Private Sub remember_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles remember.CheckedChanged
If remember.Checked = False Then
MsgBox("Systemet vil IKKE huske dit brugernavn og kodeord fremover!")
Else
MsgBox("Systemet vil fra nu af huske dit brugernavn og kodeord!")
End If
End Sub
Private Sub connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles connect.Click
sts = Replace(username.Text, "sts-uve\", "")
If username.Text = "" Or password.Text = "" Or sts = "" Then
MsgBox("Du skal udfylde både brugernavn og kodeord!")
Else
disconnect.Enabled = True
connect.Enabled = False
'oNet = CreateObject("WScript.Network")
'oNet.MapNetworkDrive("H:", "\\10.10.20.10\elevfiler\" & user, , sts, pass)
'oNet.MapNetworkDrive("I:", "\\10.10.20.10\htx", , sts, pass)
End If
End Sub
Private Sub disconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles disconnect.Click
disconnect.Enabled = False
connect.Enabled = True
remember.Checked = False
username.Text = "sts-uve\"
password.Text = ""
End Sub
Friend WithEvents box4 As System.Windows.Forms.GroupBox
Friend WithEvents ff As System.Windows.Forms.CheckBox
Friend WithEvents ie As System.Windows.Forms.CheckBox
Friend WithEvents test As System.Windows.Forms.Button
Friend WithEvents connectff As System.Windows.Forms.Button
Friend WithEvents connectie As System.Windows.Forms.Button
Private Sub test_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles test.Click
If ie.Checked = False And ff.Checked = False Then
MsgBox("Du skal vælge om du vil teste forbindelsen i Internet Explorer og/eller Mozilla Firefox")
Else
MsgBox("Test")
End If
End Sub
Private Sub connectie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles connectie.Click
If connectie.Text = "Opret" Then
connectie.Text = "Afbryd"
Else
connectie.Text = "Opret"
End If
End Sub
Private Sub connectff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles connectff.Click
If connectff.Text = "Opret" Then
connectff.Text = "Afbryd"
Else
connectff.Text = "Opret"
End If
End Sub
End Class
