pl33_1.vb

这是一本用Visual Studio.NET进行多媒体编程的读物

        Me._Picture1_37.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_37.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_37, CType(37, Short))
        Me._Picture1_37.Location = New System.Drawing.Point(456, 106)
        Me._Picture1_37.Name = "_Picture1_37"
        Me._Picture1_37.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_37.Size = New System.Drawing.Size(11, 48)
        Me._Picture1_37.TabIndex = 49
        Me._Picture1_37.TabStop = False
        '
        '_Picture1_32
        '
        Me._Picture1_32.BackColor = System.Drawing.Color.Black
        Me._Picture1_32.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_32.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_32.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_32, CType(32, Short))
        Me._Picture1_32.Location = New System.Drawing.Point(394, 106)
        Me._Picture1_32.Name = "_Picture1_32"
        Me._Picture1_32.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_32.Size = New System.Drawing.Size(12, 48)
        Me._Picture1_32.TabIndex = 51
        Me._Picture1_32.TabStop = False
        '
        'Command1
        '
        Me.Command1.BackColor = System.Drawing.SystemColors.Control
        Me.Command1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Command1.Location = New System.Drawing.Point(507, 14)
        Me.Command1.Name = "Command1"
        Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Command1.Size = New System.Drawing.Size(63, 20)
        Me.Command1.TabIndex = 68
        Me.Command1.Text = "Power"
        '
        '_Picture1_24
        '
        Me._Picture1_24.BackColor = System.Drawing.SystemColors.Window
        Me._Picture1_24.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_24.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_24.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_24, CType(24, Short))
        Me._Picture1_24.Location = New System.Drawing.Point(297, 106)
        Me._Picture1_24.Name = "_Picture1_24"
        Me._Picture1_24.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_24.Size = New System.Drawing.Size(22, 80)
        Me._Picture1_24.TabIndex = 14
        Me._Picture1_24.TabStop = False
        '
        '_Picture1_27
        '
        Me._Picture1_27.BackColor = System.Drawing.Color.Black
        Me._Picture1_27.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_27.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_27.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_27, CType(27, Short))
        Me._Picture1_27.Location = New System.Drawing.Point(333, 106)
        Me._Picture1_27.Name = "_Picture1_27"
        Me._Picture1_27.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_27.Size = New System.Drawing.Size(11, 48)
        Me._Picture1_27.TabIndex = 53
        Me._Picture1_27.TabStop = False
        '
        'Command2
        '
        Me.Command2.BackColor = System.Drawing.SystemColors.Control
        Me.Command2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Command2.ForeColor = System.Drawing.Color.White
        Me.Command2.Location = New System.Drawing.Point(379, 14)
        Me.Command2.Name = "Command2"
        Me.Command2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Command2.Size = New System.Drawing.Size(124, 20)
        Me.Command2.TabIndex = 77
        Me.Command2.Text = "演奏家Xing"
        '
        '_Picture1_21
        '
        Me._Picture1_21.BackColor = System.Drawing.SystemColors.Window
        Me._Picture1_21.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_21.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_21.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_21, CType(21, Short))
        Me._Picture1_21.Location = New System.Drawing.Point(256, 106)
        Me._Picture1_21.Name = "_Picture1_21"
        Me._Picture1_21.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_21.Size = New System.Drawing.Size(22, 80)
        Me._Picture1_21.TabIndex = 12
        Me._Picture1_21.TabStop = False
        '
        '_Picture1_20
        '
        Me._Picture1_20.BackColor = System.Drawing.Color.Black
        Me._Picture1_20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_20.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_20.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_20, CType(20, Short))
        Me._Picture1_20.Location = New System.Drawing.Point(251, 106)
        Me._Picture1_20.Name = "_Picture1_20"
        Me._Picture1_20.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_20.Size = New System.Drawing.Size(11, 48)
        Me._Picture1_20.TabIndex = 56
        Me._Picture1_20.TabStop = False
        '
        '_Picture1_23
        '
        Me._Picture1_23.BackColor = System.Drawing.SystemColors.Window
        Me._Picture1_23.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_23.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_23.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_23, CType(23, Short))
        Me._Picture1_23.Location = New System.Drawing.Point(276, 106)
        Me._Picture1_23.Name = "_Picture1_23"
        Me._Picture1_23.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_23.Size = New System.Drawing.Size(22, 80)
        Me._Picture1_23.TabIndex = 13
        Me._Picture1_23.TabStop = False
        '
        '_Picture1_22
        '
        Me._Picture1_22.BackColor = System.Drawing.Color.Black
        Me._Picture1_22.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_22.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_22.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_22, CType(22, Short))
        Me._Picture1_22.Location = New System.Drawing.Point(271, 106)
        Me._Picture1_22.Name = "_Picture1_22"
        Me._Picture1_22.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_22.Size = New System.Drawing.Size(12, 48)
        Me._Picture1_22.TabIndex = 55
        Me._Picture1_22.TabStop = False
        '
        '_Picture1_29
        '
        Me._Picture1_29.BackColor = System.Drawing.SystemColors.Window
        Me._Picture1_29.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_29.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_29.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_29, CType(29, Short))
        Me._Picture1_29.Location = New System.Drawing.Point(358, 106)
        Me._Picture1_29.Name = "_Picture1_29"
        Me._Picture1_29.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_29.Size = New System.Drawing.Size(22, 80)
        Me._Picture1_29.TabIndex = 17
        Me._Picture1_29.TabStop = False
        '
        '_Picture1_28
        '
        Me._Picture1_28.BackColor = System.Drawing.SystemColors.Window
        Me._Picture1_28.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_28.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_28.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_28, CType(28, Short))
        Me._Picture1_28.Location = New System.Drawing.Point(338, 106)
        Me._Picture1_28.Name = "_Picture1_28"
        Me._Picture1_28.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_28.Size = New System.Drawing.Size(22, 80)
        Me._Picture1_28.TabIndex = 16
        Me._Picture1_28.TabStop = False
        '
        'Label5
        '
        Me.Label5.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
        Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label5.ForeColor = System.Drawing.Color.White
        Me.Label5.Location = New System.Drawing.Point(10, 42)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(58, 15)
        Me.Label5.TabIndex = 79
        Me.Label5.Text = "音量∶"
        '
        'Label7
        '
        Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
        Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label7.ForeColor = System.Drawing.Color.White
        Me.Label7.Location = New System.Drawing.Point(10, 19)
        Me.Label7.Name = "Label7"
        Me.Label7.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label7.Size = New System.Drawing.Size(78, 15)
        Me.Label7.TabIndex = 70
        Me.Label7.Text = "音调∶"
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(64, Byte), CType(0, Byte))
        Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label1.ForeColor = System.Drawing.Color.White
        Me.Label1.Location = New System.Drawing.Point(20, 79)
        Me.Label1.Name = "Label1"
        Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label1.Size = New System.Drawing.Size(760, 24)
        Me.Label1.TabIndex = 65
        Me.Label1.Text = "消音板"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.Color.White
        Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label2.Location = New System.Drawing.Point(154, 14)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label2.Size = New System.Drawing.Size(32, 20)
        Me.Label2.TabIndex = 71
        Me.Label2.Text = "Label2"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'Label3
        '
        Me.Label3.BackColor = System.Drawing.Color.Transparent
        Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
        Me.Label3.Location = New System.Drawing.Point(46, 5)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(146, 24)
        Me.Label3.TabIndex = 66
        Me.Label3.Text = "VB MIDI PIANO"
        '
        '_Picture1_40
        '
        Me._Picture1_40.BackColor = System.Drawing.SystemColors.Window
        Me._Picture1_40.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_40.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_40.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_40, CType(40, Short))
        Me._Picture1_40.Location = New System.Drawing.Point(481, 106)
        Me._Picture1_40.Name = "_Picture1_40"
        Me._Picture1_40.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_40.Size = New System.Drawing.Size(22, 80)
        Me._Picture1_40.TabIndex = 23
        Me._Picture1_40.TabStop = False
        '
        '_Picture1_45
        '
        Me._Picture1_45.BackColor = System.Drawing.SystemColors.Window
        Me._Picture1_45.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._Picture1_45.Cursor = System.Windows.Forms.Cursors.Default
        Me._Picture1_45.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Picture1.SetIndex(Me._Picture1_45, CType(45, Short))
        Me._Picture1_45.Location = New System.Drawing.Point(543, 106)
        Me._Picture1_45.Name = "_Picture1_45"
        Me._Picture1_45.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._Picture1_45.Size = New System.Drawing.Size(21, 80)