PDA

View Full Version : پرینت کردن روی فرم



dr.undead
دوشنبه 25 دی 1391, 19:17 عصر
چجوری میشه روی فرم ، روی مختصات خاصی یه متنیو نوشت بوسیله یک دکمه ؟
ممنون

the king
دوشنبه 25 دی 1391, 21:38 عصر
چجوری میشه روی فرم ، روی مختصات خاصی یه متنیو نوشت بوسیله یک دکمه ؟
ممنون
متن sample در مختصات پیکسلی (20 ,10) فرم
روش اول :

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lbl As New Label()
lbl.AutoSize = True
lbl.Text = "Sample"
lbl.Location = New Point(10, 20)
Me.Controls.Add(lbl)
End Sub
End Class


روش دوم :

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bmp As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
Using g As Graphics = Graphics.FromImage(bmp)
g.Clear(Me.BackColor)
g.DrawString("Sample", Me.Font, Brushes.Black, 10, 20)
End Using
Me.BackgroundImage = bmp
End Sub
End Class


روش سوم :

Public Class Form1
Private Structure MyText
Public Text As String
Public Location As Point
End Structure

Private texts As New List(Of MyText)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim item As New MyText
item.Text = "Sample"
item.Location = New Point(10, 20)
texts.Add(item)
Me.Invalidate()
End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
For Each item As MyText In texts
e.Graphics.DrawString(item.Text, Me.Font, Brushes.Black, item.Location)
Next
End Sub
End Class

dr.undead
دوشنبه 25 دی 1391, 22:12 عصر
ممنون رفیق
واقعا ممنون
فقط یه سوال جوری میشه مختصات نقاطو توی صفحه دید ؟ winapplication و webapplication

the king
دوشنبه 25 دی 1391, 22:24 عصر
ممنون رفیق
واقعا ممنون
فقط یه سوال جوری میشه مختصات نقاطو توی صفحه دید ؟ winapplication و webapplication
رخداد MouseMove ماوس مختصات رو نشون میده، Web Application دیگه چرا؟

Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Me.Text = e.Location.ToString()
End Sub

dr.undead
دوشنبه 25 دی 1391, 22:31 عصر
فقط میخواستم یه جدولو با winapp درست کنم . نوشته هاشو
دمت گرم رفیق