|
|
 |
用vb.net实现类似写字板程序的部分源代码 |
热 ★★★★ |
|
用vb.net实现类似写字板程序的部分源代码 |
|
作者：闵涛 文章来源：闵涛的学习笔记 点击数：6012 更新时间：2009/4/23 19:01:52  |
|
|
''''
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] 下一页
没有相关教程
|
|
| 教程录入：mintao 责任编辑：mintao |
|
|
上一篇教程： 在VB.NET中寻找App
下一篇教程： 用vb.net实现写字板程序报告（一） |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| |
|
|
|
|
|
 |
同类栏目 |
 |
|
赞助链接 |
|
|
500 - 内部服务器错误。
|
|
|
|
|
|
