امر الطباعة print و عرض اليبل بزاوية 90 درجة

المرفق

بالنسبة للسؤال الأول ما فهمت أما الشؤال الثاني اعملها فلاش و اضفها لبرنامجك و أنا عم حضر لك برنامج فيه تأثيرات أو أدة

اخي العزيز superboy

يسعدني دوما ان ارك في المنتدى

بنسبة للسؤال الاول المقصود به التالي

print "super pro"

فعند عرض كلمة super pro تعرض ملاصقة للفورم من الجهة اليسار صح صح !!

المطلوب هو امر الـvb الذي يمكن من خلاله طباعة كلمة super pro مثلا على بعد 1000 نقطة مثلا من الجهة اليسرى للفورم

و الجزء الثاني من الفرع الاول هو

هو نفس مطلب الجزء الاول ولكن الطباعة ليست على الفورم ولكن في اداة picture (داخل اداة الـ picture)

في الانتظار على احر من الجمر .......................

بالنسبة للسؤال الأول ، استخدم هذا الكود للـ ( 500 ) :

Line (500, 0)-(500, 0)
Print "محمد"

وإذا تريد 200 مثلا غير الإحداثيات السنية إلى 200 ، وإذا تريد تنزل تحت ، زود الإحداثيات الصادية.

بس لازم تكون كل الإحداثيات السنية متساوية ، وكل الإحداثيات الصادية متساوية ، علشان ما يظهر عندك خط

شكر اخي الكريم

يعني عملية طباعة خط بدون لون شكرا جزيلا

هل عندك اي فكرة بنسبة لجزء الثاني من السؤال الاول

ليست عملية خط بدون لون ، ولكنها عميلة رسم خط من النقطة (أ) إلى النقطة (أ) ، يعني إلى نفس النقطة ، يعني ما رسمنا شي

باختصار ، مجرد تحديد احداثيات للأمر الذي يليه ، والذي هو طباعة كلمة ( محمد ) .

بالنسبة للسؤال الثاني جاري التفكير فيه .

بالنسية للسؤال الثاني يا أخوي Super_Pro أنا حصلت هذا الكود :

Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Const LF_FACESIZE = 32
Private Type LOGFONT
	lfHeight As Long
	lfWidth As Long
	lfEscapement As Long
End Type

Private Sub Command1_Click()
	Dim RotateMe As LOGFONT
	Deg = -90
	RotateMe.lfEscapement = Deg * 10
	rFont = CreateFontIndirect(RotateMe)
	Curent = SelectObject(Picture1.hdc, rFont)
	Picture1.CurrentX = 500
	Picture1.CurrentY = 500
	Picture1.Print "Mohammad"
End Sub

وإذا تريد هذا المثال في المرفقات

Virtecal_Print.rar

"شبة جسم" شكر من الاعماق وحبيت اعمل تعديل بسيط للكود و ابهرة شوي :lol:

يمكن الاستفاة من هل الكود في الانميشن كل المثال التالي :

يمكن لاي شخص اضافة الاداة hscroll1, command1 , timer1 ,label1, check1 الى الفورم و اضافة الكود التالي

Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Const LF_FACESIZE = 32
Private Type LOGFONT
	lfHeight As Long
	lfWidth As Long
	lfEscapement As Long
End Type
Dim aa As String

Private Sub Check1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command1_Click()
aa = InputBox("plz add word", "ADD", "Super_pro")

End Sub

Private Sub Form_Load()
Command1.Caption = "Add word"
Label1.Caption = "Run automatic rotation "
Timer1.Enabled = True
Timer1.Interval = 100
Check1.Value = 1
HScroll1.Max = 360
HScroll1.Min = -360
aa = "super_pro"
End Sub

Private Sub HScroll1_Change()
Me.Cls
Dim RotateMe As LOGFONT
	Deg = HScroll1.Value
	RotateMe.lfEscapement = Deg * 10
	rFont = CreateFontIndirect(RotateMe)
	Curent = SelectObject(Me.hdc, rFont)
	Me.CurrentX = 1500
	Me.CurrentY = 2000
	Me.Print aa
End Sub

Private Sub Timer1_Timer()
If Check1.Value = 1 Then

If HScroll1.Value <= 350 Then
HScroll1.Value = HScroll1.Value + 10
Else
HScroll1.Value = -360
End If
Else
MsgBox "you can use hscroll1 for manual control", vbOKOnly + vbInformation, "Iformation"
Timer1.Enabled = False

End If

End Sub

وشكر لك صديقي و حبيبي "شبة جسم"

و السلام عليكم ورحمة لله وبركاته

اخي الكريم كيف يمكن التحكم في الـ size الخاص بالـ font في امر الطباعة

انتا الكريم و احنا بنستاهل ......... ;)

على فكرة طريقة الطباعة على بعد مسافة جميلة لكني كنت استعمل طريقة اخر من نفس امر الـ print تتحكم في مسافة بدء الطباعة و لون الطباعة و حجم الخط و الله اعلم

على كل حال ما بدنا نطول القصة

شكر من الاعماق اخ "شبة جسم" مرة اخرى

يا سلام عليك

الأنيميشن ممتاز ، واستغلالك للفكرة رائعة

هذا هو الإبداع وإلا فلا

بالنسبة للكود إللي عطيتك إياه ، فأنا فهمي ليه بسيط جدا ، والحقيقة أنا حصلته بالصدفة ، وعدلت فيه

( عندي عادة غريبة إني أحب أعدل في الأكواد ، وأمسح منه الأشياء إللي ما أحتاجها :lol: )

على العموم هذا هو الكود الأصلي ، وفيه طريقة التحكم بالحجم :

Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Const LF_FACESIZE = 32
Private Type LOGFONT
	lfHeight As Long
	lfWidth As Long
	lfEscapement As Long
	lfOrientation As Long
	lfWeight As Long
	lfItalic As Byte
	lfUnderline As Byte
	lfStrikeOut As Byte
	lfCharSet As Byte
	lfOutPrecision As Byte
	lfClipPrecision As Byte
	lfQuality As Byte
	lfPitchAndFamily As Byte
	lfFaceName(LF_FACESIZE) As Byte
End Type

Private Sub Command1_Click()
	Dim RotateMe As LOGFONT
	Me.AutoRedraw = True
	Deg = 270
	Size = 20
	RotateMe.lfEscapement = Deg * 10
	RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY
	rFont = CreateFontIndirect(RotateMe)
	Curent = SelectObject(Picture1.hdc, rFont)
	Picture1.CurrentX = 500
	Picture1.CurrentY = 500
	Picture1.Print "Super_Pro"
End Sub

اخي "شبه جسم" شكر لك (h)

بنسبة لحجم الخط فهو السطر الثالث في الجزء الخاص بالـ command1وهو :

Size = 20

حيث رقم 20 هو حجم لخط

وبنسبة للفرع الاول من سؤالي تذكرت الامر الى قلتلك عنه ان بطبع على بعد مسافة بصدفة وانا براجع احد برامجي القديمة وهو :

Print Space(50) & "super_pro"

حيث 50 المسافة التي تريد طباعة عليها

و مكان كلمة "Super_pro" يمكن و ضع الجلمة التي نريد طباعتها

و اتذكر انو لهذه الطريق طرقة تحديد اللون و الحجم بـــــــــــــس رايحه عن بالي :D

و بحب اوجهلك شكرخاص اخي الكريم

و الى الامام باذن الله

Print Space(50) & "super_pro"

كود رائع وسهل وبسيط ومفيد

أشكرك أخوي عليه

وبالنسبة للون ما عرفت أغير فيه ، فما حصلت غير إني أكتب : Me.ForeColor = vbRed

أما عن الكود ( Size = 20 ) فينطبق على هذا الكود الأخير ، لكنه ما ينطبق على الكود الأول .

والله يوفقك

اكيد اخي الكريم (f)