袁飞请进:你2.0版打印控件有问题.
PrintViewAndPrint.ScaleX,PrintViewAndPrint.ScaleY,
PrintViewAndPrint.TextHeight,PrintViewAndPrint.TextWidth
以上方法没有返回值.
PrintViewAndPrint.hDC 不能用于一部分用HDC做参数的API函数(我试了几个都不行
,其他的我没试.其中有:SetTextColor,DrawText等.)
问题点数:1、回复次数:9Top
1 楼fhquutuu(大海)回复于 2002-02-28 17:35:08 得分 0
还有很多方法没有返回值.
另有没有说明手册一类的.Top
2 楼y1g1y1(袁飞☆VB诚可贵VB.Net价更高C#心中有二者皆可抛☆)回复于 2002-02-28 17:44:11 得分 0
.hDC 确不能用于 API 了!
其中 DrawText 已被封装为 yfDrawText 方法,可以使用之, 设置文本颜色可以直接设置 ForeColor 即可.
.TextHeight 与 .TextWidth 等方法都有返回值啊!
Top
3 楼y1g1y1(袁飞☆VB诚可贵VB.Net价更高C#心中有二者皆可抛☆)回复于 2002-02-28 17:45:25 得分 1
暂没有说明手册,绝大多数 属性,方法与 Printer 对像相同、相似,可以参考 MSDN。
其它参考我提供的 DEMO 程序即可 。Top
4 楼fhquutuu(大海)回复于 2002-02-28 18:14:45 得分 0
preview对象的.TextHeight 与 .TextWidth 等方法都有返回值
但PrintViewAndPrint对象的上面几个方法就没有返回值.这是毫无疑问的.
preview对象也没有Top
5 楼fhquutuu(大海)回复于 2002-02-28 19:05:14 得分 0
还有yfDrawText的参数Aligh应该有9个参数就对了,你的只有5个不够用啊.Top
6 楼y1g1y1(袁飞☆VB诚可贵VB.Net价更高C#心中有二者皆可抛☆)回复于 2002-03-01 08:08:46 得分 0
Private Sub Form_Load()
Me.AutoRedraw = True
Print Me.PrintViewAndPrint1.TextHeight("袁")
Print Me.PrintViewAndPrint1.TextWidth("袁")
Print Me.PrintViewAndPrint1.TextWidth("袁飞")
Print Me.PrintViewAndPrint1.TextWidth("袁飞在测试呢@")
End Sub
怎么就没有返回值?Top
7 楼fhquutuu(大海)回复于 2002-03-01 08:59:45 得分 0
是这样的,我昨天只用了,ScaleX,及ScaleY两个方法,发现没有返回值,然后我看对象浏览器中的上面的几个方法都没有返回值,所以我没试就段定他们没有返回值,不知为什么他们却是有返回值的.
今天又想试一下,ScaleY,ScaleX,但又出现如下错误,昨天还好好的,袁兄请看
Private Sub Form_Load()
Dim aaa As Single
Me.AutoRedraw = True
aaa = 14
Print PrintViewAndPrint1.ScaleX(aaa, vbTwips, vbPixels)
Print aaa
End Sub
Top
8 楼y1g1y1(袁飞☆VB诚可贵VB.Net价更高C#心中有二者皆可抛☆)回复于 2002-03-01 11:05:37 得分 0
谢谢你发现了一个小 BUG :
我察看了源代码,
ScaleA 对打印机有作用,对预览窗口没有作用
ScaleX ,ScaleY 确无返回值
我将尽快修正.
目前解决方法, ScaleA 方法可以使用 ScaleLeft ,ScaleWidth,ScaleTop ,ScaleHeight 等属性来设置.
ScaleX,ScaleY 等方法可以使用 Printer.ScaleX ,Printer.ScaleY 来代替.Top
9 楼fhquutuu(大海)回复于 2002-03-01 11:12:58 得分 0
还有几个问题请教.袁兄可否留下QQ号.
1.请问你的预览窗口上是不是有一个PictureBox的数组
2.怎样才能取得没有"关于"按钮的版本,或是源代码
我的QQ号:3820363Top




