摘要载入中… 请稍等…
内容载入中… 请稍等…
摘要载入中… 请稍等…
内容载入中… 请稍等…
| ◎→ | 本类最新 |
|
将真彩色图像变为256色灰度(BIG5 将英文字母及阿拉伯数字旋转任意 将图片「非重叠显示」填满整个表 简单介绍透明位图的实现方法 获取桌面图象 何将整个画面暗下来，如同关机前 分解颜色为RGB |
|
| ◎→相关资源 | |
| C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 VB基础视频教程 VB窗体文章 VB文件文章 VB数据库文章 VB-API文章 VB控制文章 | |
| ◎→ | 热门资源 |
| 九赢广告联盟的优点和缺点 通过IP反查域名 AfxMessageBox参数详解 顶级黑客年收入超千万元! Intel和AMD价格激战即将开打 iPhone运行Apache网络服务 百度不再用“插件”营销 |
|
本文为芯友网原创，转载请保此链接:芯友网
'用VB的Printer对象编写打印程序
Private Sub Command1_Click()
'打印文字=======================================
Printer.CurrentX = 100 '设置文字左边距 单位是twip 即x坐标
Printer.CurrentY = 200 '设置文字上边距 单位是twip 即y坐标
Printer.FontSize = 20 '设置文字的大小
Printer.ForeColor = RGB(255, 0, 0) '设置文字的颜色为红色
Printer.Print "芯友网http://www.xy-365.com"
'打印图片============================================
Printer.PaintPicture Picture1.Picture, 1000, 2000
'打印直线=============================================
Printer.Line (500, 1000)-(4000, 5000) '起点坐标-终点坐标
'打印圆===============================================
Printer.FillColor = RGB(0, 0, 255)
Printer.FillStyle = 0
Printer.Circle (800, 1000), 600 '圆心坐标和半径
Printer.EndDoc '结束文档,开始打印
End Sub
'' FillStyle 属性
''
''
'' 返回或设置用来填充 Shape 控件、以及由 Circle 和 Line 图形方法生成的圆和方框的模式。
'' 语法
''
'' object.FillStyle [= number]
''
'' FillStyle 属性语法包含下面部分:
''
'' 部分 描述
'' Object 对象表达式，其值是“应用于”列表中的一个对象。
'' Number 整数，指定填充样式，“设置值”中有详细描述。
''
''
'' 设置值
''
'' Number 的设置值为:
''
'' 常数 设置值 描述
'' VbFSSolid 0 实线
'' VbFSTransparent 1 （缺省值）透明。
'' VbHorizontalLine 2 水平直线。
'' VbVerticalLine 3 垂直直线。
'' VbUpwardDiagonal 4 上斜对角线。
'' VbDownwardDiagonal 5 下斜对角线
'' VbCross 6 十字线
'' VbDiagonalCross 7 交叉对角线
''
''
'' 说明
''
'' 如果 FillStyle 设置为 1（透明），则忽略 FillColor 属性，但是 Form 对象除外。
芯友网版权所有 1999-2006 | 著作权与商标声明 | 法律声明 | 服务条款 | 隐私声明 | 联系我们
|