PDA

View Full Version : گفتگو: برنامه آینه وار



Apache66
یک شنبه 29 اردیبهشت 1387, 12:49 عصر
سلام

آیا تابع یا برنامه ای هست که بتونه مثل برنامه زیر
نوشته ها را برعکس کنه ؟


( البته برنامه زیر از عکس درست شده)

soheil_programmer
یک شنبه 29 اردیبهشت 1387, 15:23 عصر
سلام

آیا تابع یا برنامه ای هست که بتونه مثل برنامه زیر
نوشته ها را برعکس کنه ؟


( البته برنامه زیر از عکس درست شده)

با سلام

تابعی در VBوجود دارد (StrReverse) که کار معکوس کردن یک String را انجام میده:

MsgBox StrReverse("salam")

Apache66
یک شنبه 29 اردیبهشت 1387, 17:26 عصر
با سلام

تابعی در VBوجود دارد (StrReverse) که کار معکوس کردن یک String را انجام میده:

MsgBox StrReverse("salam")




سلام
همان طور که اول صفحه گفتم نوشته ها را مانند آینه نشون
بده نه اینکه معکوس کنه (9 p )

ASKaffash
یک شنبه 29 اردیبهشت 1387, 17:38 عصر
با سلام
با استفاده از Windows API Function های ذیل که درصورت دوران 180 درجه به معنی نمایش آینه خواهد بود :

'- Font Routate ------
Public Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal i As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long