رفتن به مطلب
  • 0

فونت متن


mostafa.kasiri

سوال

سلام

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

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

ارسال های توصیه شده

سلام

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

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

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

درود

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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


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


این کد ها منه 


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


#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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

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

این کد ها منه 

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

#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

 

 

خیلی سادس که

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

 

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

code

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

دقت کنید :

در Sub Global :

Dim Font As TypeFace = TypeFace.LoadFromAssets("Font1.ttf")Private Label1 As Label
و در Activity_Create :
Label1.TypeFace = Font
به همین راحتی میتونید فونت لیبل 1 رو عوض کنید :)

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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
چی کار کنم؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

%D8%AD%D8%AD%D8%B3%D8%AD%D8%B3%D8%AD%D8%

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

منوی files

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

چه کار کنم؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

Dim Font As TypeFace = TypeFace.LoadFromAssets("Font1.ttf")Private Label1 As Label
و در Activity_Create :
Label1.TypeFace = Font
به همین راحتی میتونید فونت لیبل 1 رو عوض کنید :)دقت کنید ک فایل فونتو داخل Files ادد کرده باشید دقت کنید حتما مشکل حل میشه :):gol:

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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


#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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...