سلام
می خواستم بدونم در ویژوال استودیو دستور Print ( در VB6 ) چی هست که یه چیزی رو روی فرم پرینت می کنه
ممنون میشم کمکم :n01:
سلام
می خواستم بدونم در ویژوال استودیو دستور Print ( در VB6 ) چی هست که یه چیزی رو روی فرم پرینت می کنه
ممنون میشم کمکم :n01:
سلام../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*************
اینطور که به نظر میرسه دستور Print حذف شده یا روش استفاده کردن ازش تغییر کرده../// (اساتید NET. بهتر می تونن راهنماییتون کنند//)./// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***************
می تونید از این روال هم استفاده کنید// که تقریباً شبیه به همون تابع Print تو VB6 کار می کنه../// (من زیاد NET. کار نکردم// اگه کد زیر ناشیانه نوشته شده ببخشید//)..///// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*****************
***********کد:Sub TextOut(Optional ByVal Text As String = "", Optional ByVal Refresh As Boolean = False)
Static strOutput As String
If Not Refresh Then
strOutput += Text & vbNewLine
End If
Me.CreateGraphics.DrawString(strOutput, Me.Font, Brushes.Black, 0, 0)
End Sub
و حتماً کد زیر رو داخل رویداد Paint فرمتون قرار بدید../// (این کد باعث میشه که بعد از اجرای رویداد Paint متون نوشته شده سر جای خودشون باقی بمونن.///)../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*************
****************کد:TextOut(, True)
اینم یه مثال.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*******************
*****************کد:Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For line = 0 To 4
TextOut("Line " & (line + 1))
Next
End Sub
Sub TextOut(Optional ByVal Text As String = "", Optional ByVal Refresh As Boolean = False)
Static strOutput As String
If Not Refresh Then
strOutput += Text & vbNewLine
End If
Me.CreateGraphics.DrawString(strOutput, Me.Font, Brushes.Black, 0, 0)
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
TextOut(, True)
End Sub
End Class
می تونید از کد زیر هم به جای دستور Print تو رویداد Paint فرمتون استفاده کنید../// (فقط تو رویداد Paint می تونید از این روش استفاده کنید///) [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***********
**************کد:e.Graphics.DrawString("Hello World!", Me.Font, Brushes.Black, 0, 0)
و همین طور می تونید از کد زیر تو همه جای برنامتون استفاده کنید// اما بعد از اجرای رویداد Paint متنی که نوشته بودید پاک میشه../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*****************
*********کد:Me.CreateGraphics.DrawString("Hello World!", Me.Font, Brushes.Black, 0, 0)
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]