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

متن فارسی در برنامه


amirsafari

سوال

سلام دوستان من یه فایل متنی رو میخونم توی برنامم. 

ولی زبان فارسی رو نمایش نمیده . 

چرا؟؟؟

اینم کدم : 

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	
	Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Layout1")
	If File.Exists(File.DirInternal,"aa.txt")=False Then
	File.Copy(File.DirAssets,"aa.txt",File.DirInternal,"aa.txt")
	End If
	Dim auto As AutoSizeScroll
	Dim st As String
	Dim label1 As Label
	Dim font As Typeface
	font=Typeface.LoadFromAssets("ariblk.ttf")
	label1.Initialize("label1")
	st=File.ReadString(File.DirInternal,"aa.txt")
	label1.Text=st
	label1.Typeface=font
	ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
	auto.set(label1,ScrollView1)
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


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

5 پاسخ به این سوال تاکنون داده شده است

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

نمایش نمیده؟؟ یا بد نمایش میده؟

موقع ذخیره فایل تکست از Notpad گزینه ی Encoding رو بذارید روی UTF-8 و سیو کنید.

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

فونت رو عوض کن دادا 

 

راستی 

 

کد زیر اصلا لازم نیست چرا کار خودتو سخت میکنی 

	st=File.ReadString(File.DirInternal,"aa.txt")
	label1.Text=st

میتونی مستقیم بخونیش 

	label1.Text=File.ReadString(File.DirInternal,"aa.txt")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

    If File.Exists(File.DirInternal,"aa.txt")=False Then
  File.Copy(File.DirAssets,"aa.txt",File.DirInternal,"aa.txt",  سلام خوبی )
    End If

اینم یادم رفت بگم که فایلی که معرفی کردی خالی هستش 

الان من فایل رو با تکست سلام پر کردم 

 

 

دوست عزیز بهتر نیست با ندادن جواب های غلط دوستان رو به اشتباه نندازین ؟ 

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

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

دوست عزیز بهتر نیست با ندادن جواب های غلط دوستان رو به اشتباه نندازین ؟ 

 

قبل پست شما تصحیح کردم  بی خوابی و کد نویسی زیاد گاهی مخ ادم رو تعطیل میکنه 

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

بایگانی شده

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

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

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