Question

我创建了一个新项目并将form1.vb和form1.desinger.vb添加到新项目的另一个项目中（正在另一台计算机上工作并将两个源保存到usb移动到家用计算机并认为我可以添加从我的USB到项目的两个源文件，它将工作。）现在我的设计视图没有显示任何按钮或标签;但代码仍然存在，当我运行程序时它仍然有效（我可以看到所有控件的表单）。我无法使用设计视图来更新控件的属性。希望能够在设计视图中看到按钮和标签进行编辑。这是form1.designer.vb代码：

    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class Form1
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)
    Try
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
    Finally
        MyBase.Dispose(disposing)
    End Try
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.GroupBox1 = New System.Windows.Forms.GroupBox()
    Me.txtAdultSold = New System.Windows.Forms.TextBox()
    Me.txtAdultPrice = New System.Windows.Forms.TextBox()
    Me.Label2 = New System.Windows.Forms.Label()
    Me.Label1 = New System.Windows.Forms.Label()
    Me.GroupBox2 = New System.Windows.Forms.GroupBox()
    Me.txtChildSold = New System.Windows.Forms.TextBox()
    Me.txtChildPrice = New System.Windows.Forms.TextBox()
    Me.Label4 = New System.Windows.Forms.Label()
    Me.Label3 = New System.Windows.Forms.Label()
    Me.GroupBox3 = New System.Windows.Forms.GroupBox()
    Me.txtTotalGross = New System.Windows.Forms.TextBox()
    Me.txtChildSalesGross = New System.Windows.Forms.TextBox()
    Me.txtAdultSalesGross = New System.Windows.Forms.TextBox()
    Me.Label7 = New System.Windows.Forms.Label()
    Me.Label6 = New System.Windows.Forms.Label()
    Me.Label5 = New System.Windows.Forms.Label()
    Me.GroupBox4 = New System.Windows.Forms.GroupBox()
    Me.txtTotalNet = New System.Windows.Forms.TextBox()
    Me.txtChildSalesNet = New System.Windows.Forms.TextBox()
    Me.txtAdultSalesNet = New System.Windows.Forms.TextBox()
    Me.Label10 = New System.Windows.Forms.Label()
    Me.Label9 = New System.Windows.Forms.Label()
    Me.Label8 = New System.Windows.Forms.Label()
    Me.btnCalucateTicketRev = New System.Windows.Forms.Button()
    Me.btnClear = New System.Windows.Forms.Button()
    Me.btnExit = New System.Windows.Forms.Button()
    Me.GroupBox1.SuspendLayout()
    Me.GroupBox2.SuspendLayout()
    Me.GroupBox3.SuspendLayout()
    Me.GroupBox4.SuspendLayout()
    Me.SuspendLayout()
    '
    'GroupBox1
    '
    Me.GroupBox1.AutoSize = True
    Me.GroupBox1.Controls.Add(Me.txtAdultSold)
    Me.GroupBox1.Controls.Add(Me.txtAdultPrice)
    Me.GroupBox1.Controls.Add(Me.Label2)
    Me.GroupBox1.Controls.Add(Me.Label1)
    Me.GroupBox1.ForeColor = System.Drawing.SystemColors.HotTrack
    Me.GroupBox1.Location = New System.Drawing.Point(22, 22)
    Me.GroupBox1.Name = "GroupBox1"
    Me.GroupBox1.Size = New System.Drawing.Size(236, 122)
    Me.GroupBox1.TabIndex = 0
    Me.GroupBox1.TabStop = False
    Me.GroupBox1.Text = "Adult Ticket Sales"
    '
    'txtAdultSold
    '
    Me.txtAdultSold.Location = New System.Drawing.Point(114, 59)
    Me.txtAdultSold.Name = "txtAdultSold"
    Me.txtAdultSold.Size = New System.Drawing.Size(100, 20)
    Me.txtAdultSold.TabIndex = 2
    '
    'txtAdultPrice
    '
    Me.txtAdultPrice.Location = New System.Drawing.Point(114, 27)
    Me.txtAdultPrice.Name = "txtAdultPrice"
    Me.txtAdultPrice.Size = New System.Drawing.Size(100, 20)
    Me.txtAdultPrice.TabIndex = 1
    '
    'Label2
    '
    Me.Label2.AutoSize = True
    Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label2.Location = New System.Drawing.Point(38, 59)
    Me.Label2.Name = "Label2"
    Me.Label2.Size = New System.Drawing.Size(69, 13)
    Me.Label2.TabIndex = 1
    Me.Label2.Text = "Tickets Sold:"
    '
    'Label1
    '
    Me.Label1.AutoSize = True
    Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label1.Location = New System.Drawing.Point(22, 27)
    Me.Label1.Name = "Label1"
    Me.Label1.Size = New System.Drawing.Size(85, 13)
    Me.Label1.TabIndex = 0
    Me.Label1.Text = "Price per Ticket:"
    '
    'GroupBox2
    '
    Me.GroupBox2.AutoSize = True
    Me.GroupBox2.Controls.Add(Me.txtChildSold)
    Me.GroupBox2.Controls.Add(Me.txtChildPrice)
    Me.GroupBox2.Controls.Add(Me.Label4)
    Me.GroupBox2.Controls.Add(Me.Label3)
    Me.GroupBox2.ForeColor = System.Drawing.SystemColors.HotTrack
    Me.GroupBox2.Location = New System.Drawing.Point(274, 22)
    Me.GroupBox2.Name = "GroupBox2"
    Me.GroupBox2.Size = New System.Drawing.Size(234, 122)
    Me.GroupBox2.TabIndex = 1
    Me.GroupBox2.TabStop = False
    Me.GroupBox2.Text = "Child Ticket Sales"
    '
    'txtChildSold
    '
    Me.txtChildSold.Location = New System.Drawing.Point(108, 51)
    Me.txtChildSold.Name = "txtChildSold"
    Me.txtChildSold.Size = New System.Drawing.Size(100, 20)
    Me.txtChildSold.TabIndex = 4
    '
    'txtChildPrice
    '
    Me.txtChildPrice.Location = New System.Drawing.Point(108, 20)
    Me.txtChildPrice.Name = "txtChildPrice"
    Me.txtChildPrice.Size = New System.Drawing.Size(100, 20)
    Me.txtChildPrice.TabIndex = 3
    '
    'Label4
    '
    Me.Label4.AutoSize = True
    Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label4.Location = New System.Drawing.Point(31, 58)
    Me.Label4.Name = "Label4"
    Me.Label4.Size = New System.Drawing.Size(69, 13)
    Me.Label4.TabIndex = 1
    Me.Label4.Text = "Tickets Sold:"
    '
    'Label3
    '
    Me.Label3.AutoSize = True
    Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label3.Location = New System.Drawing.Point(15, 20)
    Me.Label3.Name = "Label3"
    Me.Label3.Size = New System.Drawing.Size(85, 13)
    Me.Label3.TabIndex = 0
    Me.Label3.Text = "Price per Ticket:"
    '
    'GroupBox3
    '
    Me.GroupBox3.AutoSize = True
    Me.GroupBox3.Controls.Add(Me.txtTotalGross)
    Me.GroupBox3.Controls.Add(Me.txtChildSalesGross)
    Me.GroupBox3.Controls.Add(Me.txtAdultSalesGross)
    Me.GroupBox3.Controls.Add(Me.Label7)
    Me.GroupBox3.Controls.Add(Me.Label6)
    Me.GroupBox3.Controls.Add(Me.Label5)
    Me.GroupBox3.ForeColor = System.Drawing.SystemColors.HotTrack
    Me.GroupBox3.Location = New System.Drawing.Point(22, 150)
    Me.GroupBox3.Name = "GroupBox3"
    Me.GroupBox3.Size = New System.Drawing.Size(236, 152)
    Me.GroupBox3.TabIndex = 2
    Me.GroupBox3.TabStop = False
    Me.GroupBox3.Text = "Gross Ticket Revenue"
    '
    'txtTotalGross
    '
    Me.txtTotalGross.Location = New System.Drawing.Point(120, 99)
    Me.txtTotalGross.Name = "txtTotalGross"
    Me.txtTotalGross.ReadOnly = True
    Me.txtTotalGross.Size = New System.Drawing.Size(100, 20)
    Me.txtTotalGross.TabIndex = 5
    '
    'txtChildSalesGross
    '
    Me.txtChildSalesGross.Location = New System.Drawing.Point(117, 59)
    Me.txtChildSalesGross.Name = "txtChildSalesGross"
    Me.txtChildSalesGross.ReadOnly = True
    Me.txtChildSalesGross.Size = New System.Drawing.Size(100, 20)
    Me.txtChildSalesGross.TabIndex = 4
    '
    'txtAdultSalesGross
    '
    Me.txtAdultSalesGross.Location = New System.Drawing.Point(117, 21)
    Me.txtAdultSalesGross.Name = "txtAdultSalesGross"
    Me.txtAdultSalesGross.ReadOnly = True
    Me.txtAdultSalesGross.Size = New System.Drawing.Size(100, 20)
    Me.txtAdultSalesGross.TabIndex = 3
    '
    'Label7
    '
    Me.Label7.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label7.ImageAlign = System.Drawing.ContentAlignment.TopLeft
    Me.Label7.Location = New System.Drawing.Point(6, 98)
    Me.Label7.Name = "Label7"
    Me.Label7.RightToLeft = System.Windows.Forms.RightToLeft.Yes
    Me.Label7.Size = New System.Drawing.Size(110, 38)
    Me.Label7.TabIndex = 2
    Me.Label7.Text = "Total Gross Revenue :for Ticket Sales"
    '
    'Label6
    '
    Me.Label6.AutoSize = True
    Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label6.Location = New System.Drawing.Point(19, 59)
    Me.Label6.Name = "Label6"
    Me.Label6.Size = New System.Drawing.Size(95, 13)
    Me.Label6.TabIndex = 1
    Me.Label6.Text = "Child Ticket Sales:"
    '
    'Label5
    '
    Me.Label5.AutoSize = True
    Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label5.Location = New System.Drawing.Point(16, 20)
    Me.Label5.Name = "Label5"
    Me.Label5.Size = New System.Drawing.Size(96, 13)
    Me.Label5.TabIndex = 0
    Me.Label5.Text = "Adult Ticket Sales:"
    '
    'GroupBox4
    '
    Me.GroupBox4.AutoSize = True
    Me.GroupBox4.Controls.Add(Me.txtTotalNet)
    Me.GroupBox4.Controls.Add(Me.txtChildSalesNet)
    Me.GroupBox4.Controls.Add(Me.txtAdultSalesNet)
    Me.GroupBox4.Controls.Add(Me.Label10)
    Me.GroupBox4.Controls.Add(Me.Label9)
    Me.GroupBox4.Controls.Add(Me.Label8)
    Me.GroupBox4.ForeColor = System.Drawing.SystemColors.HotTrack
    Me.GroupBox4.Location = New System.Drawing.Point(274, 150)
    Me.GroupBox4.Name = "GroupBox4"
    Me.GroupBox4.Size = New System.Drawing.Size(234, 137)
    Me.GroupBox4.TabIndex = 3
    Me.GroupBox4.TabStop = False
    Me.GroupBox4.Text = "Net Ticket Revenue"
    '
    'txtTotalNet
    '
    Me.txtTotalNet.Location = New System.Drawing.Point(123, 91)
    Me.txtTotalNet.Name = "txtTotalNet"
    Me.txtTotalNet.ReadOnly = True
    Me.txtTotalNet.Size = New System.Drawing.Size(100, 20)
    Me.txtTotalNet.TabIndex = 5
    '
    'txtChildSalesNet
    '
    Me.txtChildSalesNet.Location = New System.Drawing.Point(123, 59)
    Me.txtChildSalesNet.Name = "txtChildSalesNet"
    Me.txtChildSalesNet.ReadOnly = True
    Me.txtChildSalesNet.Size = New System.Drawing.Size(100, 20)
    Me.txtChildSalesNet.TabIndex = 4
    '
    'txtAdultSalesNet
    '
    Me.txtAdultSalesNet.Location = New System.Drawing.Point(123, 19)
    Me.txtAdultSalesNet.Name = "txtAdultSalesNet"
    Me.txtAdultSalesNet.ReadOnly = True
    Me.txtAdultSalesNet.Size = New System.Drawing.Size(100, 20)
    Me.txtAdultSalesNet.TabIndex = 3
    '
    'Label10
    '
    Me.Label10.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label10.Location = New System.Drawing.Point(6, 91)
    Me.Label10.Name = "Label10"
    Me.Label10.RightToLeft = System.Windows.Forms.RightToLeft.Yes
    Me.Label10.Size = New System.Drawing.Size(110, 28)
    Me.Label10.TabIndex = 2
    Me.Label10.Text = "Total Net Revenue :for Ticket Sales"
    '
    'Label9
    '
    Me.Label9.AutoSize = True
    Me.Label9.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label9.Location = New System.Drawing.Point(21, 59)
    Me.Label9.Name = "Label9"
    Me.Label9.Size = New System.Drawing.Size(95, 13)
    Me.Label9.TabIndex = 1
    Me.Label9.Text = "Child Ticket Sales:"
    '
    'Label8
    '
    Me.Label8.AutoSize = True
    Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label8.Location = New System.Drawing.Point(21, 19)
    Me.Label8.Name = "Label8"
    Me.Label8.Size = New System.Drawing.Size(96, 13)
    Me.Label8.TabIndex = 0
    Me.Label8.Text = "Adult Ticket Sales:"
    '
    'btnCalucateTicketRev
    '
    Me.btnCalucateTicketRev.BackColor = System.Drawing.SystemColors.Window
    Me.btnCalucateTicketRev.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    Me.btnCalucateTicketRev.Location = New System.Drawing.Point(133, 315)
    Me.btnCalucateTicketRev.Name = "btnCalucateTicketRev"
    Me.btnCalucateTicketRev.Size = New System.Drawing.Size(96, 50)
    Me.btnCalucateTicketRev.TabIndex = 4
    Me.btnCalucateTicketRev.Text = "&Calculate Ticket Revenue"
    Me.btnCalucateTicketRev.UseVisualStyleBackColor = False
    '
    'btnClear
    '
    Me.btnClear.Location = New System.Drawing.Point(235, 315)
    Me.btnClear.Name = "btnClear"
    Me.btnClear.Size = New System.Drawing.Size(74, 50)
    Me.btnClear.TabIndex = 5
    Me.btnClear.Text = "Cl&ear"
    Me.btnClear.UseVisualStyleBackColor = True
    '
    'btnExit
    '
    Me.btnExit.Location = New System.Drawing.Point(316, 315)
    Me.btnExit.Name = "btnExit"
    Me.btnExit.Size = New System.Drawing.Size(74, 50)
    Me.btnExit.TabIndex = 6
    Me.btnExit.Text = "E&xit"
    Me.btnExit.UseVisualStyleBackColor = True
    '
    'Form1
    '
    Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.ClientSize = New System.Drawing.Size(520, 430)
    Me.Controls.Add(Me.btnExit)
    Me.Controls.Add(Me.btnClear)
    Me.Controls.Add(Me.btnCalucateTicketRev)
    Me.Controls.Add(Me.GroupBox4)
    Me.Controls.Add(Me.GroupBox3)
    Me.Controls.Add(Me.GroupBox2)
    Me.Controls.Add(Me.GroupBox1)
    Me.Name = "Form1"
    Me.Text = "Theater Revenue"
    Me.GroupBox1.ResumeLayout(False)
    Me.GroupBox1.PerformLayout()
    Me.GroupBox2.ResumeLayout(False)
    Me.GroupBox2.PerformLayout()
    Me.GroupBox3.ResumeLayout(False)
    Me.GroupBox3.PerformLayout()
    Me.GroupBox4.ResumeLayout(False)
    Me.GroupBox4.PerformLayout()
    Me.ResumeLayout(False)
    Me.PerformLayout()

End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtAdultSold As System.Windows.Forms.TextBox
Friend WithEvents txtAdultPrice As System.Windows.Forms.TextBox
Friend WithEvents txtChildSold As System.Windows.Forms.TextBox
Friend WithEvents txtChildPrice As System.Windows.Forms.TextBox
Friend WithEvents txtTotalGross As System.Windows.Forms.TextBox
Friend WithEvents txtChildSalesGross As System.Windows.Forms.TextBox
Friend WithEvents txtAdultSalesGross As System.Windows.Forms.TextBox
Friend WithEvents txtTotalNet As System.Windows.Forms.TextBox
Friend WithEvents txtChildSalesNet As System.Windows.Forms.TextBox
Friend WithEvents txtAdultSalesNet As System.Windows.Forms.TextBox
Friend WithEvents btnCalucateTicketRev As System.Windows.Forms.Button
Friend WithEvents btnClear As System.Windows.Forms.Button
Friend WithEvents btnExit As System.Windows.Forms.Button

结束班

form1.vb代码：

    Public Class Form1
Dim tickets_Sold_Adult As Integer
Dim ticktes_Sold_Child As Integer
Dim price_Adult As Double
Dim price_Child As Double
Dim totalAdult, totalChild, pretotal As Double
Const profitNet As Double = 0.2

Private Sub txtAdultPrice_TextChanged(sender As Object, e As EventArgs) Handles txtAdultPrice.TextChanged
    If IsNumeric(txtAdultPrice.Text) Then
        price_Adult = txtAdultPrice.Text
    End If
End Sub

Private Sub txtAdultSold_TextChanged(sender As Object, e As EventArgs) Handles txtAdultSold.TextChanged
    If IsNumeric(txtAdultSold.Text) Then
        tickets_Sold_Adult = txtAdultSold.Text
    End If
End Sub

Private Sub txtChildPrice_TextChanged(sender As Object, e As EventArgs) Handles txtChildPrice.TextChanged
    If IsNumeric(txtChildPrice.Text) Then
        price_Child = txtChildPrice.Text
    End If
End Sub

Private Sub txtChildSold_TextChanged(sender As Object, e As EventArgs) Handles txtChildSold.TextChanged
    If IsNumeric(txtChildSold.Text) Then
        ticktes_Sold_Child = txtChildSold.Text
    End If
End Sub

Private Sub btnCalucateTicketRev_Click(sender As Object, e As EventArgs) Handles btnCalucateTicketRev.Click
    totalAdult = price_Adult * tickets_Sold_Adult
    txtAdultSalesGross.Text = Format(totalAdult, "$0.00")
    txtAdultSalesNet.Text = Format(totalAdult * 0.2, "$0.00")
    totalChild = price_Child * ticktes_Sold_Child
    txtChildSalesGross.Text = Format(totalChild, "$0.00")
    txtChildSalesNet.Text = Format(totalChild * 0.2, "$0.00")
    pretotal = (totalAdult + totalChild)
    txtTotalGross.Text = Format(pretotal, "$0.00")
    txtTotalNet.Text = Format(profitNet * pretotal, "$0.00")
End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
    txtAdultPrice.Clear()
    txtAdultSold.Clear()
    txtChildPrice.Clear()
    txtChildSold.Clear()
    txtAdultSalesGross.Clear()
    txtAdultSalesNet.Clear()
    txtChildSalesGross.Clear()
    txtChildSalesNet.Clear()
    txtTotalGross.Clear()
    txtTotalNet.Clear()
    price_Adult = 0
    price_Child = 0
End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    Me.Close()
End Sub

结束班

Answer 1

一般来说，解决此类问题的最佳方法是获取两个文件夹（来自工作和家庭）并使用WinDiff

等工具对其进行区分

这将为您提供一个非常清晰的视觉差异，可以教您各种各样的事情。

VB设计视图不显示按钮和标签

1 个答案: