نمایش مسیج باکس فقط یک بار

[pourya-man 33]

سلام

من میخوام هنگام ورود به یک اکتیویتی یک مسیج باکس نشون داده بشه و تمام

دیگه هنگام ورود به اون اکتیویتی پیام نده

چ کنم ؟

 

بعدشم میخوام اون دکمه های مسیج باکس رنگشو عوض کنم 

اون رو هم توضیح بدید چه کنم؟

[salmana 174]

دوستان کسی نمیگه چجوری رنگ گزینه های مسیج باکس رو عوض کنم ؟

برای رنگ و فونت دادن به مسج باکس برو تایپک پایین

 

پارس مسج باکس

[pourya-man 33]

دوستان کسی نمیگه چجوری رنگ گزینه های مسیج باکس رو عوض کنم ؟

[amir mahdizadeh 109]

سلام

توی activity create این کد ها رو بنویسید

if FirstTime then
     msgbox(....
end if

[pourya-man 33]

سلام

توی activity create این کد ها رو بنویسید

if FirstTime then     msgbox(....end if

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

[amir mahdizadeh 109]

این کد فقط یک بار واسه همیشه اجرا میشه یعنی همون بار اولی که برنامه رو برای اولین بار باز میکنه

[agha sasan 82]

شما میتونید از write string استفاده کنید و با هر بار اجرا با استفاده از دستور read string متنوچک کنید و در صورت تغییر نکردن یا وجود نداشتن مسیج باکس نمایش داده نشه!

Sub Globals
Dim str As String="sasan hatamikiya"
Dim namayesh As Boolean=False
End Sub

Sub Activity_Create(FirstTime As Boolean)
If File.Exists(File.DirInternal,str) Then
namayesh=True
Else
	Msgbox("massage","title")
	File.WriteString(File.DirInternal,str)
End If
End Sub

تو اینجا اول اومدیم یه شرط گذاشتیم گفتیم اگه فایل str در اون ادرس وجود داشت سپس مقدار namayesh رو true قرار بده در غیر این صورت مسج باکس رو نمایش بده و ی فایل در ادرس DirInternal ایجاد کنه

شما به راحتی با چک کردن مقدار namayesh میتونید از دفعه اول بودن یا نبودن با خبر بشید ینی اگه true بود یعنی بار اول نیس و اگه false بود یعنی اولین باره

خودم تستش نکردم مشکلی داشت در خدمتم

[pourya-man 33]

شما میتونید از write string استفاده کنید و با هر بار اجرا با استفاده از دستور read string متنوچک کنید و در صورت تغییر نکردن یا وجود نداشتن مسیج باکس نمایش داده نشه!

Sub Globals
Dim str As String="sasan hatamikiya"
Dim namayesh As Boolean=False
End Sub

Sub Activity_Create(FirstTime As Boolean)
If File.Exists(File.DirInternal,str) Then
namayesh=True
Else
	Msgbox("massage","title")
	File.WriteString(File.DirInternal,str)
End If
End Sub

تو اینجا اول اومدیم یه شرط گذاشتیم گفتیم اگه فایل str در اون ادرس وجود داشت سپس مقدار namayesh رو true قرار بده در غیر این صورت مسج باکس رو نمایش بده و ی فایل در ادرس DirInternal ایجاد کنه

شما به راحتی با چک کردن مقدار namayesh میتونید از دفعه اول بودن یا نبودن با خبر بشید ینی اگه true بود یعنی بار اول نیس و اگه false بود یعنی اولین باره

خودم تستش نکردم مشکلی داشت در خدمتم

 

باشه الان تست میکنم ولی اون بولن چیکارس الان دقیقا ؟