frmobject.vb

这个是本人写的题库系统,开发工具是vb.net.试题编辑,试卷编辑,可以在word中编辑试题.由于时间关系,很多功能需要细化.

        Me.gb_objnum.Controls.Add(Me.Label1)
        Me.gb_objnum.Controls.Add(Me.comb_qobjtype)
        Me.gb_objnum.Location = New System.Drawing.Point(0, 216)
        Me.gb_objnum.Name = "gb_objnum"
        Me.gb_objnum.Size = New System.Drawing.Size(216, 304)
        Me.gb_objnum.TabIndex = 5
        Me.gb_objnum.TabStop = False
        Me.gb_objnum.Text = "共有0题"
        '
        'dg_object
        '
        Me.dg_object.AlternatingBackColor = System.Drawing.Color.GhostWhite
        Me.dg_object.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dg_object.BackColor = System.Drawing.Color.GhostWhite
        Me.dg_object.BackgroundColor = System.Drawing.Color.Lavender
        Me.dg_object.CaptionBackColor = System.Drawing.Color.RoyalBlue
        Me.dg_object.CaptionForeColor = System.Drawing.Color.White
        Me.dg_object.CaptionText = "试题信息"
        Me.dg_object.DataMember = ""
        Me.dg_object.FlatMode = True
        Me.dg_object.Font = New System.Drawing.Font("Tahoma", 8.0!)
        Me.dg_object.ForeColor = System.Drawing.Color.MidnightBlue
        Me.dg_object.GridLineColor = System.Drawing.Color.RoyalBlue
        Me.dg_object.HeaderBackColor = System.Drawing.Color.MidnightBlue
        Me.dg_object.HeaderFont = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
        Me.dg_object.HeaderForeColor = System.Drawing.Color.Lavender
        Me.dg_object.LinkColor = System.Drawing.Color.Teal
        Me.dg_object.Location = New System.Drawing.Point(8, 48)
        Me.dg_object.Name = "dg_object"
        Me.dg_object.ParentRowsBackColor = System.Drawing.Color.Lavender
        Me.dg_object.ParentRowsForeColor = System.Drawing.Color.MidnightBlue
        Me.dg_object.ReadOnly = True
        Me.dg_object.SelectionBackColor = System.Drawing.Color.Teal
        Me.dg_object.SelectionForeColor = System.Drawing.Color.PaleGreen
        Me.dg_object.Size = New System.Drawing.Size(200, 248)
        Me.dg_object.TabIndex = 6
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(18, 28)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(46, 16)
        Me.Label1.TabIndex = 5
        Me.Label1.Text = "题型："
        '
        'comb_qobjtype
        '
        Me.comb_qobjtype.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.comb_qobjtype.CausesValidation = False
        Me.comb_qobjtype.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.comb_qobjtype.Location = New System.Drawing.Point(64, 24)
        Me.comb_qobjtype.Name = "comb_qobjtype"
        Me.comb_qobjtype.Size = New System.Drawing.Size(144, 20)
        Me.comb_qobjtype.TabIndex = 4
        '
        'tv_chapter
        '
        Me.tv_chapter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tv_chapter.ImageList = Me.ImageList2
        Me.tv_chapter.Location = New System.Drawing.Point(0, 0)
        Me.tv_chapter.Name = "tv_chapter"
        Me.tv_chapter.Size = New System.Drawing.Size(224, 208)
        Me.tv_chapter.TabIndex = 4
        '
        'ImageList2
        '
        Me.ImageList2.ImageSize = New System.Drawing.Size(32, 32)
        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
        '
        'Splitter1
        '
        Me.Splitter1.BackColor = System.Drawing.Color.LightSeaGreen
        Me.Splitter1.Location = New System.Drawing.Point(224, 46)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(3, 593)
        Me.Splitter1.TabIndex = 2
        Me.Splitter1.TabStop = False
        '
        'Panel2
        '
        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Panel2.Controls.Add(Me.Panel3)
        Me.Panel2.Controls.Add(Me.Splitter2)
        Me.Panel2.Controls.Add(Me.GroupBox3)
        Me.Panel2.Controls.Add(Me.TabControl1)
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel2.Location = New System.Drawing.Point(227, 46)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(615, 593)
        Me.Panel2.TabIndex = 3
        '
        'Panel3
        '
        Me.Panel3.Controls.Add(Me.GroupBox4)
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel3.Location = New System.Drawing.Point(0, 388)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(611, 201)
        Me.Panel3.TabIndex = 8
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.rtb_result)
        Me.GroupBox4.Controls.Add(Me.GroupBox7)
        Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GroupBox4.Location = New System.Drawing.Point(0, 0)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(611, 201)
        Me.GroupBox4.TabIndex = 11
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "答案"
        '
        'rtb_result
        '
        Me.rtb_result.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.rtb_result.ContainingControl = Me
        Me.rtb_result.Location = New System.Drawing.Point(8, 16)
        Me.rtb_result.Name = "rtb_result"
        Me.rtb_result.OcxState = CType(resources.GetObject("rtb_result.OcxState"), System.Windows.Forms.AxHost.State)
        Me.rtb_result.Size = New System.Drawing.Size(600, 144)
        Me.rtb_result.TabIndex = 5
        '
        'GroupBox7
        '
        Me.GroupBox7.Controls.Add(Me.cmd_loadresult)
        Me.GroupBox7.Controls.Add(Me.cmd_resultedit)
        Me.GroupBox7.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.GroupBox7.Location = New System.Drawing.Point(3, 159)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(605, 39)
        Me.GroupBox7.TabIndex = 4
        Me.GroupBox7.TabStop = False
        '
        'cmd_loadresult
        '
        Me.cmd_loadresult.Location = New System.Drawing.Point(216, 10)
        Me.cmd_loadresult.Name = "cmd_loadresult"
        Me.cmd_loadresult.Size = New System.Drawing.Size(208, 24)
        Me.cmd_loadresult.TabIndex = 5
        Me.cmd_loadresult.Text = "从word中导入上次编辑的结果"
        '
        'cmd_resultedit
        '
        Me.cmd_resultedit.Location = New System.Drawing.Point(32, 10)
        Me.cmd_resultedit.Name = "cmd_resultedit"
        Me.cmd_resultedit.Size = New System.Drawing.Size(136, 24)
        Me.cmd_resultedit.TabIndex = 4
        Me.cmd_resultedit.Text = "在Word中编辑"
        '
        'Splitter2
        '
        Me.Splitter2.BackColor = System.Drawing.Color.LightSeaGreen
        Me.Splitter2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Splitter2.Location = New System.Drawing.Point(0, 384)
        Me.Splitter2.Name = "Splitter2"
        Me.Splitter2.Size = New System.Drawing.Size(611, 4)
        Me.Splitter2.TabIndex = 7
        Me.Splitter2.TabStop = False
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.rtb_context)
        Me.GroupBox3.Controls.Add(Me.GroupBox1)
        Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
        Me.GroupBox3.Location = New System.Drawing.Point(0, 168)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(611, 216)
        Me.GroupBox3.TabIndex = 6
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "题目"
        '
        'rtb_context
        '
        Me.rtb_context.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.rtb_context.ContainingControl = Me
        Me.rtb_context.Location = New System.Drawing.Point(8, 64)
        Me.rtb_context.Name = "rtb_context"
        Me.rtb_context.OcxState = CType(resources.GetObject("rtb_context.OcxState"), System.Windows.Forms.AxHost.State)
        Me.rtb_context.Size = New System.Drawing.Size(600, 144)
        Me.rtb_context.TabIndex = 3
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.cmd_loadcontext)
        Me.GroupBox1.Controls.Add(Me.cmd_contextedit)
        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
        Me.GroupBox1.Location = New System.Drawing.Point(3, 17)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(605, 39)
        Me.GroupBox1.TabIndex = 2
        Me.GroupBox1.TabStop = False
        '
        'cmd_loadcontext
        '
        Me.cmd_loadcontext.Location = New System.Drawing.Point(208, 10)
        Me.cmd_loadcontext.Name = "cmd_loadcontext"
        Me.cmd_loadcontext.Size = New System.Drawing.Size(208, 24)
        Me.cmd_loadcontext.TabIndex = 5
        Me.cmd_loadcontext.Text = "从word中导入上次编辑的结果"
        '
        'cmd_contextedit
        '
        Me.cmd_contextedit.Location = New System.Drawing.Point(32, 10)
        Me.cmd_contextedit.Name = "cmd_contextedit"
        Me.cmd_contextedit.Size = New System.Drawing.Size(136, 24)
        Me.cmd_contextedit.TabIndex = 4
        Me.cmd_contextedit.Text = "在Word中编辑"
        '
        'TabControl1
        '
        Me.TabControl1.Controls.Add(Me.TabPage1)
        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top
        Me.TabControl1.ItemSize = New System.Drawing.Size(0, 17)
        Me.TabControl1.Location = New System.Drawing.Point(0, 0)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(611, 168)
        Me.TabControl1.TabIndex = 5
        '
        'TabPage1
        '
        Me.TabPage1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.TabPage1.Controls.Add(Me.GroupBox6)
        Me.TabPage1.Controls.Add(Me.GroupBox5)
        Me.TabPage1.Location = New System.Drawing.Point(4, 21)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Size = New System.Drawing.Size(603, 143)
        Me.TabPage1.TabIndex = 0
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.Add(Me.Clb_knowleg)
        Me.GroupBox6.Location = New System.Drawing.Point(380, 4)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(212, 128)
        Me.GroupBox6.TabIndex = 1
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "知识点列表"
        '
        'Clb_knowleg
        '
        Me.Clb_knowleg.Location = New System.Drawing.Point(8, 16)
        Me.Clb_knowleg.Name = "Clb_knowleg"
        Me.Clb_knowleg.Size = New System.Drawing.Size(195, 100)
        Me.Clb_knowleg.TabIndex = 0
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.lbl_objname)
        Me.GroupBox5.Controls.Add(Me.Label14)
        Me.GroupBox5.Controls.Add(Me.lbl_opname)
        Me.GroupBox5.Controls.Add(Me.Label6)
        Me.GroupBox5.Controls.Add(Me.Comb_resultidx)
        Me.GroupBox5.Controls.Add(Me.Label5)
        Me.GroupBox5.Controls.Add(Me.Comb_objtype)
        Me.GroupBox5.Controls.Add(Me.Label4)
        Me.GroupBox5.Controls.Add(Me.Comb_chapter)
        Me.GroupBox5.Controls.Add(Me.Label3)
        Me.GroupBox5.Controls.Add(Me.Label2)
        Me.GroupBox5.Controls.Add(Me.Comb_subj)
        Me.GroupBox5.Location = New System.Drawing.Point(11, 4)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(360, 128)
        Me.GroupBox5.TabIndex = 0
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "试题信息"
        '
        'lbl_objname
        '
        Me.lbl_objname.Location = New System.Drawing.Point(231, 96)
        Me.lbl_objname.Name = "lbl_objname"
        Me.lbl_objname.Size = New System.Drawing.Size(96, 16)
        Me.lbl_objname.TabIndex = 29
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(155, 96)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(71, 16)
        Me.Label14.TabIndex = 28
        Me.Label14.Text = "试题名称："
        '
        'lbl_opname
        '
        Me.lbl_opname.Location = New System.Drawing.Point(65, 96)
        Me.lbl_opname.Name = "lbl_opname"
        Me.lbl_opname.Size = New System.Drawing.Size(79, 16)
        Me.lbl_opname.TabIndex = 9
        '