打印本文 打印本文 关闭窗口 关闭窗口
用vb.net实现类似写字板程序的部分源代码
作者:武汉SEO闵涛  文章来源:敏韬网  点击数7898  更新时间:2009/4/23 19:01:52  文章录入:mintao  责任编辑:mintao
    ''''
        Me.tbbCut.ImageIndex = 4
        Me.tbbCut.ToolTipText = "剪切"
        ''''
        ''''tbbCopy
        ''''
        Me.tbbCopy.ImageIndex = 3
        Me.tbbCopy.ToolTipText = "复制"
        ''''
        ''''tbbPaste
        ''''
        Me.tbbPaste.ImageIndex = 7
        Me.tbbPaste.ToolTipText = "粘贴"
        ''''
        ''''tbbUndo
        ''''
        Me.tbbUndo.ImageIndex = 11
        Me.tbbUndo.ToolTipText = "撤销"
        ''''
        ''''ImageList1
        ''''
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        ''''
        ''''rtbox
        ''''
        Me.rtbox.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.rtbox.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.rtbox.Location = New System.Drawing.Point(0, 64)
        Me.rtbox.Name = "rtbox"
        Me.rtbox.Size = New System.Drawing.Size(688, 424)
        Me.rtbox.TabIndex = 3
        Me.rtbox.Text = ""
        ''''
        ''''PrintDialog1
        ''''
        Me.PrintDialog1.Document = Me.PrintDocument1
        ''''
        ''''comboxFont
        ''''
        Me.comboxFont.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.comboxFont.Location = New System.Drawing.Point(184, 40)
        Me.comboxFont.Name = "comboxFont"
        Me.comboxFont.Size = New System.Drawing.Size(121, 20)
        Me.comboxFont.TabIndex = 5
        Me.comboxFont.Text = "字体"
        ''''
        ''''comboxSize
        ''''
        Me.comboxSize.Items.AddRange(New Object() {"8", "9", "10", "11", "12", "14", "16", "18", "20", "22", "24", "26", "28", "36", "48", "72"})
        Me.comboxSize.Location = New System.Drawing.Point(304, 40)
        Me.comboxSize.Name = "comboxSize"
        Me.comboxSize.Size = New System.Drawing.Size(48, 20)
        Me.comboxSize.TabIndex = 6
        Me.comboxSize.Text = "大小"
        ''''
        ''''tbbbold
        ''''
        Me.tbbbold.ImageIndex = 0
        Me.tbbbold.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        Me.tbbbold.ToolTipText = "加粗"
        ''''
        ''''tbbi
        ''''
        Me.tbbi.ImageIndex = 1
        Me.tbbi.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        Me.tbbi.ToolTipText = "斜体"
        ''''
        ''''tbbu
        ''''
        Me.tbbu.ImageIndex = 2
        Me.tbbu.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        Me.tbbu.ToolTipText = "下划线"
        ''''
        ''''tbbcolor
        ''''
        Me.tbbcolor.ImageIndex = 16
        Me.tbbcolor.ToolTipText = "这个是颜色!因为找不到合适的。"
        ''''
        ''''ToolBarButton8
        ''''
        Me.ToolBarButton8.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        ''''
        ''''ToolBarButton7
        ''''
        Me.ToolBarButton7.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        ''''
        ''''tbbleft
        ''''
        Me.tbbleft.ImageIndex = 13
        Me.tbbleft.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        Me.tbbleft.ToolTipText = "靠左"
        ''''
        ''''tbbmiddle
        ''''
        Me.tbbmiddle.ImageIndex = 15
        Me.tbbmiddle.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        Me.tbbmiddle.ToolTipText = "靠中"
        ''''
        ''''tbbright
        ''''
        Me.tbbright.ImageIndex = 14
        Me.tbbright.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        Me.tbbright.ToolTipText = "靠右"
        ''''
        ''''ToolBar2
        ''''
        Me.ToolBar2.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbbold, Me.tbbi, Me.tbbu, Me.tbbcolor, Me.ToolBarButton8, Me.ToolBarButton7, Me.tbbleft, Me.tbbmiddle, Me.tbbright})
        Me.ToolBar2.ButtonSize = New System.Drawing.Size(23, 22)
        Me.ToolBar2.DropDownArrows = True
        Me.ToolBar2.ImageList = Me.ImageList1
        Me.ToolBar2.Location = New System.Drawing.Point(0, 32)
        Me.ToolBar2.Name = "ToolBar2"
        Me.ToolBar2.ShowToolTips = True
        Me.ToolBar2.Size = New System.Drawing.Size(688, 25)
        Me.ToolBar2.TabIndex = 7
        ''''
        ''''StatusBar1
        ''''
        Me.StatusBar1.Location = New System.Drawing.Point(0, 467)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Size = New System.Drawing.Size(688, 22)
        Me.StatusBar1.TabIndex = 8
        ''''
        ''''Panel1
      &

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  下一页

打印本文 打印本文 关闭窗口 关闭窗口