فونت متن

[mostafa.kasiri 115]

سلام

من یک لیبل ساختم میخوام فونت خط رو عوض کنم

یا برای باتن ها 

باید چه کار کنم؟

 

[milad19 113]

عزیز کد این هست

		Dim Font As Typeface = Typeface.LoadFromAssets("2BARAN.ttf")

یه دونه s زیاد نوشتید

[milad19 113]

سلام

	label1.Typeface=Typeface.LoadFromAssets("rezvan.ttf")

[Elyas Erfani 3,582]

سلام

من یک لیبل ساختم میخوام فونت خط رو عوض کنم

یا برای باتن ها 

باید چه کار کنم؟

درود

Dim Font As TypeFace = TypeFace.LoadFromAssests("esme font.ttf")
Private Label1 As Label
Private Button1 As Button
Button1.TypeFace = Font
Label1.TypeFace = Font

توجه داشته باشید ک فونت خودتون رو با فرمت .ttf داخل بیسیک ادد کنید

[پژمان نیکروان 6,055]

http://answercenter.ir/topic/81-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D9%81%D9%88%D9%86%D8%AA-%D8%A7%D8%A8%D8%B2%D8%A7%D8%B1-%D9%87%D8%A7-edittext-va/

[mostafa.kasiri 115]

سلام ببخشی من متوجه نمیشوم

همه این کار ها که گفتین انجام دادم اما پیغام میده

این کد ها منه 

لطفا برا من گام به گام توضیح بدید با این کد ها

#Region  Project Attributes 

#ApplicationLabel: صلوات شمار

#VersionCode: 1

#VersionName: 

#SupportedOrientations: portrait

#End Region

#Region  Activity Attributes 

#FullScreen: False

#IncludeTitle: true

#End Region

Sub Process_Globals

End Sub

Sub Globals

Private ImageView1 As ImageView

Private Label2 As Label

Dim i As Int

Private Label1 As Label

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("L1")

ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"7.png"))

Label1.Text = i

i = 0

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click

i = i + 1

Label1.Text = i

 

End Sub

Sub Button2_Click

    If i > 0 Then

i = i - 1

Label1.Text = i

End If

End Sub

Sub Button3_Click

i = i - i

     Label1.Text = i

End Sub

please

[sajad8888 819]

 

سلام ببخشی من متوجه نمیشوم

همه این کار ها که گفتین انجام دادم اما پیغام میده

این کد ها منه 

لطفا برا من گام به گام توضیح بدید با این کد ها

#Region  Project Attributes 

#ApplicationLabel: صلوات شمار

#VersionCode: 1

#VersionName: 

#SupportedOrientations: portrait

#End Region

#Region  Activity Attributes 

#FullScreen: False

#IncludeTitle: true

#End Region

Sub Process_Globals

End Sub

Sub Globals

Private ImageView1 As ImageView

Private Label2 As Label

Dim i As Int

Private Label1 As Label

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("L1")

ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"7.png"))

Label1.Text = i

i = 0

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click

i = i + 1

Label1.Text = i

 

End Sub

Sub Button2_Click

    If i > 0 Then

i = i - 1

Label1.Text = i

End If

End Sub

Sub Button3_Click

i = i - i

     Label1.Text = i

End Sub

please

 

 

خیلی سادس که

کد ها رو داخل تگ بزار ببینیم چیکار کردی منکه متوجه نمیشم اینجوری

راستی چه اروری میده؟؟؟

[mostafa.kasiri 115]

چه جوری داخل تگ بزارم؟

[sajad8888 819]

 

چه جوری داخل تگ بزارم؟

 

با استفاده از تگ

code

http://answercenter.ir/index.php?s=c3f2a463f4162260763d85596a0657e1&&app=forums&module=extras&section=legends&do=bbcode

[mostafa.kasiri 115]

اقا من متن رو ویرایش دادم لطفا جواب من رو بدید

[Elyas Erfani 3,582]

اقا من متن رو ویرایش دادم لطفا جواب من رو بدید

دوست گرامی کداتونو داخل تگ کد قرار بدید

نکته دوم هم این ک من داخل کدای شما اصلا کلمه ای به نام Typeface ندیدم ک

دقت کنید :

در Sub Global :

Dim Font As TypeFace = TypeFace.LoadFromAssets("Font1.ttf")Private Label1 As Label

و در Activity_Create :

Label1.TypeFace = Font

به همین راحتی میتونید فونت لیبل 1 رو عوض کنید

دقت کنید ک فایل فونتو داخل Files ادد کرده باشید

دقت کنید حتما مشکل حل میشه

[mostafa.kasiri 115]

این پیغام رو میده

B4A version 4.30

Parsing code.                           0.00

Compiling code.                         Error

Error compiling program.

Error description: Unknown member: loadfromassests

Occurred on line: 15

Dim Font As Typeface = Typeface.LoadFromAssests("2BARAN.ttf")

Word: loadfromassests

چی کار کنم؟

[کاربر ناشناس 2,148]

فونت در پوشه file موجود هست ؟

[mostafa.kasiri 115]

تازه چه طوری باید فونت رو ادد کنم؟

[mostafa.kasiri 115]

بله تو فایل ریختم ولی چه طوری باید ادد کنم؟

[کاربر ناشناس 2,148]

[Elyas Erfani 3,582]

تازه چه طوری باید فونت رو ادد کنم؟

من ک گفتم لطفا با دقت بخونید پاسخ هارو

داخل بیسیک از منوی پایین

منوی files

گزینه add file رو بزنید سپس فونت رو ادد کنید

[mostafa.kasiri 115]

من فکر کرم تو پوشه files

[mostafa.kasiri 115]

بازم همون پیغام رو میده 

چه کار کنم؟

[Elyas Erfani 3,582]

دوست گرامی کداتونو داخل تگ کد قرار بدیدنکته دوم هم این ک من داخل کدای شما اصلا کلمه ای به نام Typeface ندیدم ک دقت کنید :در Sub Global :

Dim Font As TypeFace = TypeFace.LoadFromAssets("Font1.ttf")Private Label1 As Label

و در Activity_Create :

Label1.TypeFace = Font

به همین راحتی میتونید فونت لیبل 1 رو عوض کنید دقت کنید ک فایل فونتو داخل Files ادد کرده باشید دقت کنید حتما مشکل حل میشه

دوست عزیز ی فونت گذاشتن ک دیگه این همه مشکل نداره

شما دقیقا کداییو ک من قرار دادم تو این پست رو کپی کنید دیگه

[mostafa.kasiri 115]

این کد ها ی من ولی بازم نشد بجا فونت یک شما هم اسم فونت خودم رو گذاشتم اما نشد چی کار کنم؟ اینم کد هام

#Region  Project Attributes 

#ApplicationLabel: صلوات شمار

#VersionCode: 1

#VersionName: 

#SupportedOrientations: portrait

#End Region

#Region  Activity Attributes 

#FullScreen: False

#IncludeTitle: true

#End Region

Sub Process_Globals

End Sub

Sub Globals

Private ImageView1 As ImageView

Dim Font As Typeface = Typeface.LoadFromAssets("IranNastaliq.ttf")

Private Label2 As Label

Dim i As Int

Private Label1 As Label

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("L1")

ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"7.png"))

Label1.Text = i

i = 0

Label1.Typeface = Font

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click

i = i + 1

Label1.Text = i

If i = 20 Then

Msgbox("التماس دعا","خطا")

End If

 

End Sub

Sub Button2_Click

    If i > 0 Then

i = i - 1

Label1.Text = i

End If

End Sub

Sub Button3_Click

i = i - i

     Label1.Text = i

End Sub