关于打印FORM的问题。100分,立刻结算。 1.将画的东西直接画到FROM上,方法与PICTUREBOX一样2.屏莫打印时,看看屏幕中是否显示图片,打印前刷新一次 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 画到FORM上,我试过,可以画,不过不方便我以后的操作,如根据所画的图象来给另一个控件定位。PICTUREBOX里没有图片,只有用户自己所画的图案。 我的没问题VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command1 Caption = "Command1" Height = 495 Left = 1755 TabIndex = 1 Top = 2385 Width = 1215 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1515 Left = 750 ScaleHeight = 1455 ScaleWidth = 2670 TabIndex = 0 Top = 420 Width = 2730 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Command1_Click() Me.Picture1.Line (10, 10)-(1000, 1000) Me.PrintFormEnd Sub 在画之前Picture.AutoRedraw = TRUE画好之后Picture.AutoRedraw = FASEL 画好以后,我将AUTOREDRAW改为FALSE,还是没有用,请大家帮帮忙啊!谢谢了! 既然花在FORM中可以打印,那么你用代码实现,在打印时输出到FOMR中,完毕后,对FORM请空就行了啥 求操作excel的封装类(C++类) 哪位大侠有ADODB.Connection、ADODB.RecordSet等的方法说明 垃圾问题datareport 中的网络大小怎么调? 怎么把ListView里的记录加到水晶报表中呢! 怎么对VB工具条进行管理?? 有知道的话请告诉我,我非常感谢!!!!!! 请问各位,如果将VB里的数据库导出到ACCESS,SQL,请教~~~ 哪位大虾帮我看看这个问题,提示case 没有select case,谢谢 VB操作注册表 简单的录音问题,绝对送分。 请问如何在picturebox中显示保存在数组中的图片文件 一段简单的SQL,请帮下偶
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 1755
TabIndex = 1
Top = 2385
Width = 1215
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
Height = 1515
Left = 750
ScaleHeight = 1455
ScaleWidth = 2670
TabIndex = 0
Top = 420
Width = 2730
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option ExplicitPrivate Sub Command1_Click()
Me.Picture1.Line (10, 10)-(1000, 1000)
Me.PrintForm
End Sub
画好之后Picture.AutoRedraw = FASEL