برنامه تبديل حرف به تصوير

[gholeh]

دوست جون پس چی شد من منتظرم!!

[dustjun]

شرمنده تاخیر داشتم - اول اینکه این تاپیک رو خیلی وقت بود سر نزده بودم و دوم اینک یک ذره گرفتاریم زیاد بود.

عزیز وی بی 6 رو بریز یک standard exe بساز و توش یک picturebox بزار. می تونی یک textbox بزاری و یا اینکه یه روتین ثابت رو با یک حلقه for ایجاد کنی و حروف رو بفرستی به توابع زیر هر جور که دوست داری

کمکی خواستی بازم بگو

فقط واسه خودم پیام بفرست تا زودتر ببینمت (دو نقطه دی)

Private Sub PutCharacterInPictureBox(PIC As PictureBox, Character As String)
Dim WDT As Single, HGH As Single, AlphaWDT As Single, AlphaHGH As Single
Dim i As Integer
' check konim bebinim ye character ferestade ya ye reshte
If Len(Character) - 1 Then
i = MsgBox("azizjan lotfan yek character befrest na ye reshte", vbExclamation + vbOKOnly)
Exit Sub
End If
WDT = PIC.ScaleWidth
HGH = PIC.ScaleHeight
' bebin inja agar daram finglish minevisam p30world geroontar hesab mikoneha
' khob nyaz be tozih nist WDT, HGH abaade picture ro migirand
' hala nyaz darim bebinim abaad horoof cheghadre
' ta agar horoof bozorgtar az picturebox bood irad begire
AlphaWDT = PIC.TextWidth("A")
AlphaHGH = PIC.TextHeight("A")

If AlphaWDT > WDT Or AlphaHGH > HGH Then
i = MsgBox("aziz picturet koochooloost", vbExclamation + vbOKOnly)
Else
PIC.Cls 'tasvir ra pak mikonad va mogheyat makannama ro myare avvale khat

PIC.Print Character
'in ghesmatham tozih nemidam fekr konid mifahmid

End If
' agar deletoon mikhad az khasyathaye fontname, fontsiza, fontbold, fontitalic estefade konid
' vali ghabl az ejraye in zirbarname
End Sub
Private Sub PicSave(PIC As PictureBox, FileName As String)
Dim i As Integer
' filename bayad shamele address va pasvand bashad
' tarjihan BMP bezarid baghyash ro ba keyfyate bad mide
On Error GoTo IradateKazayeOS
Call SavePicture(PIC, FileName)
'bn ghesmat ro ham mesle bala aslan toozih nemidam che amali anjam mishavad
Exit Sub
IradateKazayeOS:
i = MsgBox("boro ye fekri be hale oon computere ghorazat bekon", vbOKOnly + vbExclamation)
End Sub