اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


جستجو در تالارهای گفتگو

در حال نمایش نتایج برای برچسب های 'label'.

  • جستجو بر اساس برچسب

    برچسب ها را با , از یکدیگر جدا نمایید.
  • جستجو بر اساس نویسنده

نوع محتوا


Product Groups

  • اندروید استودیو
    • آموزش های تصویری کاربردی
    • سورس کد
    • آموزش های مرتباط با برنامه های آنلاین و اینترنتی
  • بیسیک4اندروید
    • سورس کد
    • فیلم آموزشی کاربردی
    • فیلم آموزشی برنامه های آنلاین
    • کتابخانه ها
  • اشتراک ویژه
  • Products
  • تعرفه تبلیغات

تالارهای گفتگو

  • بخش اطلاعات اصلی انجمن
    • قوانین تیــم
    • انتقادات و پیشـــنهادات
    • اخبار تـــیم
    • تـولـیـداتـــ انـجـمــن
    • مرتبط با فروشگاه
    • درخواست ارتقا درجه کاربری
  • برنامه نویسی بیسیک4اندروید
    • آموزش های گام به گام برای مبتدی ها
    • پرسش و پاسخ (بیسیک4اندروید)
    • کتابخانه ها (Libraries)
    • درخواست Wrap کردن کتابخانه
    • ســـورس کـــدهـا
    • قطعه کدها (Code Snippets)
    • آموزش های تصویری
    • آموزش های متنی
    • آموزش های بازی سازی
    • ابزارهای B4A
    • برنامــه هـای سـاختـه شـده توسـط شمــا
  • برنامه نویسی اندروید استودیو
    • آموزش های گام به گام برای مبتدی ها
    • کتابخانه ها (Libraries)
    • ســـورس کـــدهـا
    • قطعه کدها (Code Snippets)
    • آموزش های تصویری
    • آموزش های متنی
    • پرسش و پاسخ (اندروید استودیو)
    • ابزار های اندروید استودیو
    • برنامــه هـای سـاختـه شـده توسـط شمــا
  • برنامه نویسی B4J
    • آموزش
    • پرسش و پاسخ
    • کتابخانه ها
    • قطــــــعه کــــــــد ها
    • ابزار ها
  • مـتـفـرقـه
    • بحث آزاد
    • نقد و بررسی برنامه ها
    • صندلی داغ انجمن
    • مسابقات انجمن
    • مرتبط با برنامه نویسی
    • بخش توسعه دهندگان
  • گرافیک
    • ابزارهای طراحی
    • آموزش گرافیک
    • عکس ها و تصاویر لایه باز
    • درخواست طراحی
    • نمونه کارها
  • HTML & PHP
    • ابزار مورد نیاز برنامه نویسی HTML و PHP
    • آموزش PHP
    • آموزش HTML
    • سوالات مربوط به PHP و Html
  • آرشیو
    • بایگانی

جستجو در ...

نمایش نتایجی که شامل ...


تاریخ ایجاد

  • شروع

    پایان


آخرین بروزرسانی

  • شروع

    پایان


فیلتر بر اساس تعداد ...

تاریخ عضویت

  • شروع

    پایان


گروه


اسکایپ


آدرس سایت


یاهو


بیوگرافی


محل زندگی


محل تولد


علایق


شغل


علاقه مندی ها

46 نتیجه پیدا شد

  1. سلام دوستان من text ها رو از دیتابیس داخل چند تا لیبل که در اسکرول ویو هستن نشون میدم حالا یکی از این لیبل ها رو میخوام به صورت یه هایپر لینک نمایش بدم که با لمس اون سایت موردنظرم رو باز کنه چند جا گشتم اما به این صورت چیزی پیدا نکردم بقیه بیشتر برای یه دکمه یه رویداد تعریف میکردن بعد هم ادامه کار . اما من نمیدونم برای یه لیبل که به صورت کد تعریف میکنیم و داخل پنل اسکرول ویو میذاریم event بذارم لیبل ها هم با یه حلقه ساخته میشن. حالا باید چکار کرد؟
  2. M-CAP7AIN

    کتابخانه MC7Linkify

    کاربرد کتابخانه : شماره ، ایمیل ، آدرس وب ، هشتگ ، ات ساین (یا پترن دلخواه) رو تو لیبل یا ادیت تکست مشخص میکنه +برخی از تنظیمات مربوط به لیبل Dim Linkify As MC7Linkify Linkify.ALL(Label1) Linkify.Custom(Label1,Linkify.DEMAIL_ADDRESSES & Linkify.DPHONE_NUMBERS) Linkify.CustomPattern(Label1,"#([A-Za-z0-9_-]+)","http://www.google.com/") Linkify.Hashtag(Label1,"http://www.google.com/") Linkify.Atsign(Label1,"http://www.google.com/") Linkify.EMAIL_ADDRESSES(Label1) Linkify.MAP_ADDRESSES(Label1) Linkify.PHONE_NUMBERS(Label1) Linkify.WEB_URLS(Label1) Linkify.LinkifyColor(Label1,Colors.cyan) Linkify.setCursorVisible(Label1,False) Linkify.setLineSpacing(Label1,2 , 3) Linkify.MovementMethod(Label1,True) Linkify.setClickable(Label1,False) Linkify.setFocusable(Label1,False) Linkify.setLines(Label1,2) Linkify.setIncludeFontPadding(Label1,True) دانلود کتابخانه
  3. سلام به همه ی دوستان انسرسنتر میخوام اولین کتابخونه خودمو معرفی کنم چون متدها زیاد بودن تصمیم گرفتم دو کلاس بکنم تا هم مرتب باشه هم از شلوغی بیجا جلوگیری بشه ( یعنی وقتی کتابخونه رو تیک بزنید دوتا کلاس با اسم کتابخونه میاره که کلاس اولی LabelPro هست مثل لیبل معولی همه متد های لیبل رو داره اونایی هم که نداره با متد As_Label که گذاشتم میتونید به همه متدهای لیبل دسترسی پیدا کنید) بریم سراغ متدهاش: 1_متد اولش رو که توضیح دادم فقط یادتون نره اگه خواستید به عنوان ویو ازش استفاده کنید حتما بعد از نوشتن یه متغیر از این کتابخونه از متد As_Label استفاده کنید تا به عنوان ویو یا لیبل شناخته بشه 2_متد Right و Bottom که بیشتر برای مبتدی ها لازم میشه (تو حالت عادی لیبل نیست فقط توی دیزاینر هست) 3_SetOpacity برای شفافیت رنگ لیبل که هم میتونید مقدار بدین هم میتونید مقدارشو بگیرید(اکثر متدهاشو اینجوری ساختم) 4- shadow سایه دادن به متنش 5_Rotation چرخش لیبل در سه حالت و اما دومین کلاس (کلاس LabelPro2 هست که ترکیبی از متد های پرکاربرد و کمیاب بیسیک ) که این متدها رو برای همه ی ویو ها میتونید استفاده کنید 1-اضافه کردن سایه به ویو ها(با گردکردن گوشه ها و...) 2-تنظیم شفافیت ویو 3-گرفتن رنگ ویو که تو حالت عادی ممکن نیست 4-گرفتن رنگ بصورت int و برگرداندن رنگ بصورت ARGB 5-'انتخاب فونت از حافظه داخلی یا مموری (تو حالت عادی فقط از Assets میشه لود کرد) 6-ست کردن سه نقطه به اول ،وسط ویا آخر متن 7-ست کردن متن لیبل با اندازه لیبل 8-محدود کردن خطوط لیبل به یک خط 9-اضافه کردن انیمیشن موقع فشار دادن یه دکمه یا رویداد خاص 10-Togglebutton قراردادن عکس برای دوحالت 11-قراردادن عکس برای حالت های معولی و فشردن دکمه یا هرویوی دیگرکه بطریق کدنویسی ایجاد شده اند 12-فاصله خطوط لیبل 13-فیت کردن تصویر ایمیج ویو 14-حذف سفیدیه اخر اسکرول ویو 15-ست کردن رنگ و فونت و... همه ی لیبل یا باتن های یه اکتیویتی یا پنل یاحتی ویوهای متریال 16-ست کردن اندازه واقعی عکس به ایمیج ویو بدون افت کیفیت 17-اضافه کردن سایه به متن 18- گرفتن یا ست کردن Bottom و Right برای یک ویو 19-استفاده از خاصیت های کتابخانه ریچ استرینگ بصورت آسان(مثالش هست) 20-چرخش ویو در سه حالت اگه کم وکسری هم بود ببخشید دیگه بخاطر سربازی وقت نشد متدهای بیشتری بهش اضافه کنم ایشالا دو ماه دیگه میام متدهاشو بیشتر میکنم Labelpro
  4. سلام خدمت تمامی دوستان و اساتید من تو یکی از اکتیویتی هام 15 تا لیبیل گذاشتم و از digner script هم ارتفاع و عرضشونو کلا مشخص کردم و اومدم اینارو توی یک scrollview در یک layout دیگه اسکرولشون کردم مشکلم اینجاست که اسکرول یا بیش از اندازه میشه و یا اصلا اسکرول نمیکنه با تغییر در انجمن هم زیادی گشتم و دوستان اومدن و از دیتابیس مطالب رو گرفتن و اگه اشتباه نکرده باشم از چنین چیزی استفاده کردن"cur1.rowcount-1" ولی من لیبیل هامو تک تک ایجاد کردم و کنارشون یدونه هم imageview گذاشتم و برای لیبل ها یک png اختصاص دادم و متنمو هم توشون نوشتم میخواستم بدونم چیکار باید بکنم تا اسکرول وسو با لیبل آخریم فیکس بشه و در تمامی صفحه نمایش ها یک جور دیده بشه این هم از کدهام #Region Activity Attributes #FullScreen: False #IncludeTitle: false #End Region Sub Process_Globals End Sub Sub Globals Dim scrollview1 As ScrollView Private Label1 As Label Private Label2 As Label Private Label3 As Label Private Label4 As Label Private Label5 As Label Private Label6 As Label Private Label7 As Label Private Label8 As Label Private Label9 As Label Private Label10 As Label Private Label11 As Label Private Label12 As Label Private Label13 As Label Private Label14 As Label Private Label15 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("layoutscrollview") scrollview1.Panel.LoadLayout("Layout1") scrollview1.Panel.Height=( 3* 50%y) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub و این کدها هم مربوط به قسمت دیزاینر اسکریپت هستش Label16.SetLeftAndRight(1%x,99%x) Label16.SetTopAndBottom(.5%y,16%y) ImageView1.SetLeftAndRight(80%x,99%x) ImageView1.SetTopAndBottom(17%y,34%y) Label1.SetLeftAndRight(1%x,79%x) Label1.SetTopAndBottom(19%y,32%y) ImageView2.SetLeftAndRight(80%x,99%x) ImageView2.SetTopAndBottom(35%y,52%y) Label2.SetLeftAndRight(1%x,79%x) Label2.SetTopAndBottom(37%y,50%y) ImageView3.SetLeftAndRight(80%x,99%x) ImageView3.SetTopAndBottom(53%y,70%y) Label3.SetLeftAndRight(1%x,79%x) Label3.SetTopAndBottom(55%y,68%y) ImageView4.SetLeftAndRight(80%x,99%x) ImageView4.SetTopAndBottom(71%y,88%y) Label4.SetLeftAndRight(1%x,79%x) Label4.SetTopAndBottom(73%y,86%y) ImageView5.SetLeftAndRight(80%x,99%x) ImageView5.SetTopAndBottom(89%y,106%y) Label5.SetLeftAndRight(1%x,79%x) Label5.SetTopAndBottom(91%y,104%y) ImageView6.SetLeftAndRight(80%x,99%x) ImageView6.SetTopAndBottom(107%y,124%y) Label6.SetLeftAndRight(1%x,79%x) Label6.SetTopAndBottom(109%y,122%y) ImageView7.SetLeftAndRight(80%x,99%x) ImageView7.SetTopAndBottom(125%y,142%y) Label7.SetLeftAndRight(1%x,79%x) Label7.SetTopAndBottom(127%y,140%y) ImageView8.SetLeftAndRight(80%x,99%x) ImageView8.SetTopAndBottom(143%y,160%y) Label8.SetLeftAndRight(1%x,79%x) Label8.SetTopAndBottom(145%y,158%y) ImageView9.SetLeftAndRight(80%x,99%x) ImageView9.SetTopAndBottom(161%y,178%y) Label9.SetLeftAndRight(1%x,79%x) Label9.SetTopAndBottom(163%y,176%y) ImageView10.SetLeftAndRight(80%x,99%x) ImageView10.SetTopAndBottom(179%y,196%y) Label10.SetLeftAndRight(1%x,79%x) Label10.SetTopAndBottom(181%y,194%y) ImageView11.SetLeftAndRight(80%x,99%x) ImageView11.SetTopAndBottom(197%y,214%y) Label11.SetLeftAndRight(1%x,79%x) Label11.SetTopAndBottom(199%y,212%y) ImageView12.SetLeftAndRight(80%x,99%x) ImageView12.SetTopAndBottom(215%y,232%y) Label12.SetLeftAndRight(1%x,79%x) Label12.SetTopAndBottom(217%y,230%y) ImageView13.SetLeftAndRight(80%x,99%x) ImageView13.SetTopAndBottom(233%y,250%y) Label13.SetLeftAndRight(1%x,79%x) Label13.SetTopAndBottom(235%y,248%y) ImageView14.SetLeftAndRight(80%x,99%x) ImageView14.SetTopAndBottom(251%y,268%y) Label14.SetLeftAndRight(1%x,79%x) Label14.SetTopAndBottom(253%y,266%y) ImageView15.SetLeftAndRight(80%x,99%x) ImageView15.SetTopAndBottom(269%y,286%y) Label15.SetLeftAndRight(1%x,79%x) Label15.SetTopAndBottom(271%y,284%y)
  5. باسلام ببخشید سوالی داشتم در مورد نام اکتیویتی می خواستم بدونم نام اکتیویتی اول و شروع کننده که با کدهای #Region Project Attributes #ApplicationLabel: test #VersionCode:1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: True #End Region شروه میشود باید حتما نام Main رو داشته باشه یا اسم دیگه ای هم میتونه داشته باشه؟باتشکر
  6. سلام جستجو کردم پیدا نکردم!!!!! میخام یه sms که دریافت میشه بلافاصله متنش رو توی یه label نمایش بدم .یعنی کاربر نره داخل inbox بلافاصله labثl باز بشه و نمایش داده بشه. خب برای اینکار لازمه برنامه همیشه درحال گوش کردن باشه ممکنه راهنمایی کنید؟
  7. سلام چگونه متن انگلیسی و فارسی در label درست نمایش داده شود . متن اصلی "سلام من mohammad هستم" متن نمایش داده شده " هستم mohammad سلام من" البته در بانک اطلاعاتی و در فایل تکست هم بر عکس ذخیره میشه . با تشکر .
  8. سلام خدمت مهندسین آقا من یه اپلیکیشن میخوام طراحی کنم که با استفاده از دیتابیس ساخته میشه فقط یه چیزی رو نتونستم پیدا کنم و هرکاری کردم درست نشد ، دیتابیس من 8ستون داره میخوام توی 8 لیبل متفاوت نشون داده بشن ، لطفا بگید چیکار کنم که خروجیه هر ستون بیوفته توی یک لیبل
  9. سلام من یک متن بلند دارم که داخل یه لیبل هست و لیبل رو داخل یک اسکرول ویو گذاشتم میخوام که ارتفاع لیبل ام برابر با متن داخلش باشه
  10. سلام یه سورس آماده کردم . نسبتا مبتدیه . کارش اینه که با تغییر سیک بار اندازه متن لیبل هم تغییر می کنه . امیدوارم نهایت استفاده رو ببرید . لینک دانلود از PicoFile رمز : basic4android.org
  11. سلام. تو یه قسمتی از بازیم میخوام چندتا جواب بزارم و یه Edittext حالا کاربر اگه متنی رو تو ادیت تکست وارد کرد و تایید رو زد اگه سیستم شناخت که جواب رو نشون میده و اگه نشناخت که میگه جواب اشتباهه. از Msgbox و Toastmaseg استفاده کردم زیاد خوشم نیومد یه جورایی تکراری بود و کلاس کار رو میاره پایین. خواستم یه label اضافه کنم پایینتر از Edittext که کاربر اگه از سیستم سوال پرسید تا سرنخ مرحله رو بدست بیاره تو لیبل بهش متن نشون داده بشه. کسی از دوستان میدونه چجوریه: لپ کلام : میخوام بجای نشون دادن MSGbox ، متن جواب سیستم ، تو Label نشون داده بشه.!!
  12. با عرض سلام و خسته نباشید خدمت دوستان عزیز میشه دقیقا برام توضیح بدید که این sub کارش چیه ؟؟؟ Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float Dim before,after As Float Dim Obj1 As Reflector leb.text=txt leb.TextSize=size leb.Gravity=Gravity.CENTER leb.Left=leb.Left leb.Typeface=font ht = StrUtil.MeasureMultilineTextHeight(leb , txt) Obj1.Target = leb before = Obj1.RunMethod("getLineHeight") 'Get the height of line BEFORE you change it Obj1.Target = leb Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float") 'Change the space between lines Obj1.Target = leb after = Obj1.RunMethod("getLineHeight") 'Get the height of line AFTER you change it ht = ((after * ht)/before) leb.Height = ht Return ht End Sub واقعا به کمکتون نیاز دارم...
  13. درود بر همه دوستان؛ میخواستم بدونم کسی میدونه چطور با NFC کار کنیم؟ یه قطعه کد که وقتی کارت رو به گوشی نزدیک کردیم کدش رو بخونه و توی Label نمایش بده ... لطفا راهنمایی کنید . . . ممنون
  14. سلام خط لیست ویوکه میخواد اطلاعات یه سطون رو از دیتابیس بگیره ارور میده اینم کدهایی که نوشتم Activity.LoadLayout("home") If File.Exists(File.DirInternal,"volly.db")= False Then File.Copy(File.DirAssets,"volly.db",File.DirInternal,"volly.db") End If If SQL1.IsInitialized= False Then SQL1.Initialize(File.DirInternal,"volly.db",True) End If ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER Dim cur As Cursor cur=SQL1.ExecQuery("SELECT * FROM vollyprog") For i=1 0To cur.RowCount-1 ListView1.AddSingleLine2(cur.GetString("group"),cur.GetInt("id")) Next End Sub اینم تصویر ارور http://s6.picofile.com/file/8188491984/Capture11.PNG
  15. moh3n

    زمان

    سلام با چه کدی میشه به برنامه گفت وقتی ساعت 00:00 شد بیاد label1=100 قرار بده؟ dim label1 as label label1.text=1
  16. دوستان من یه پروژه ای تموم کردم منتها سرعت لودش افتضاحه من با کد زیر میام ستون 1 تا 111 رو یه جا میگیرم و لود میکنم If SQL1.IsInitialized = False Then SQL1.Initialize(File.DirInternal,"smsha6.db",True) End If cursur1 = SQL1.ExecQuery("select * FROM asly WHERE id BETWEEN 1 AND 111") myfont = Typeface.LoadFromAssets("byekan.ttf") Activity.LoadLayout("sv") For i=0 To cursur1.RowCount-1 cursur1.Position=i text= cursur1.GetString("payamak") ScrollView1.Panel.Color = Colors.Transparent Dim p1 As Panel p1.Initialize("") p1.LoadLayout("main") ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip) btnfav.Tag = i btnshare.Tag = i btncopy.Tag = i btnnumber.text = i + 1 btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf") ht=art(text,Label1,myfont,20) Label1.TextColor=Colors.Black p1.Height=ht+70dip PanelHeight=PanelHeight+ht+70dip Next ScrollView1.Panel.Height=PanelHeight End Sub حالا کد رو باید چجوری تغییر بدم که این نیاد همشو یه جا بگیره و مثلا هر 10.15 تا رو تو 1 ثانیه لود کنه تا برسه 111 دوستان ممنون میشم با کد بگن یا بگن چجوری کد رو تغییر بدم واقعا دیگه کم اوردم ضمنا با این کار سرعت بر میگرده؟
  17. سلام. خسته نباشید من تو برنامه ام یه خطا میده که باید Label رو هدفهشمهظث کنی. لطفا منو راهنمایی کنید ممنون
  18. Elyas Erfani

    شرط

    سلام خسته نباشید ببخشید من ی مشکل داشتم توی شرط ها Sub Button1_Click nz=text1.Text ns=text2.Text*text2.Text result = nz/ns If result < 30 = True Then Label1.Text="صحیح" End If End Sub میخوام بگم ک اگه result از سی کوچکتر بود متن لیبل1 تغییر کنه در اینجا کامپلایر به End If هم ایراد میگیره و اررور میده ممنون میشم راهنمایی کنید :-d
  19. سلام من وقتی با دستور زید بانک اطلاعاتیم را میخوام مقادیرش را ابدیت کنم برنامه بسته میشه و اخطار میده داخل لوگ ایا مشکلی در کد نویسی دارم sql1.ExecNonQuery("UPDATE name set zaman ='"& label13.text &"',ID ='"& label5.Text &"' Last = " & label5.Text
  20. با سلام خدمت دوستان. من متنی رو از دیتابیس روی یه label لود میکنم.ولی با توجه به طولانی بودن متن ،روی لیبل جا نمی شه.چطور اندازش رو افزایش بدم؟؟؟ ممنون میشم جواب بدید.اینم کدهای مربوطه: Dim label1 As Label label1.Initialize ("Label1") label1.text=cur.GetString ("matn") label1 .Gravity =Gravity.CENTER ScrollView1.Panel .AddView(label1,0,0,ScrollView1.Width ,100%y ) Dim su As StringUtils label1.TextSize =tanzimat2.size label1 .Typeface =Typeface .LoadFromAssets (tanzimat2.font & ".ttf") label1.Height =su.MeasureMultilineTextHeight(label1,label1.Text) ScrollView1.Panel .Height =su.MeasureMultilineTextHeight(label1,label1.Text)+10%y
  21. سلام اقا من اموزششش خوندم اما توی کد مشکل دارم ببینید این کد من توی ساب گلوبال Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim sql1 As SQL Dim index As String index = "" End Sub و اینم توی ایتمی که به ایندکس مقدار میده c = sql1.ExecQuery("Select * from e1 WHERE daste=1") For i = 0 To c.rowcount -1 c.Position = i feh.AddTwoLinesAndBitmap(c.GetString("onvan"),"",LoadBitmap(File.DirAssets,"To.png")) Next feh2.TwoLinesAndBitmap.Label.Gravity = Gravity.CENTER feh2.TwoLinesAndBitmap.Label.TextColor = Colors.black index = "d1" حالا میرم به اکتیویتی بعدی وقتی مینویسم if index = "d1" then .... end if از ایندکس ارور میگیره و میگه تعریف نشده!
  22. دوستان من توی لیبل یه متن دارم تو یه گوشی متن به بالا میاد تو یه گوشی متن میاد پایین .چطوری کاری کنم تو همه گوشی ها ثابت باشه و تو یه جا ثابت باشه و تغیر نکنه؟ لطفا کد بذارید
  23. سلام دوستان یه سوال دارم فرض کنید سه تا radiobutton داریم می خواهیم بگیم اگر radiobutton1 روشن بود مقدار abc رو برابر 2 قرار بده اگر radiobutton2 روشن بود مقدار abc رو برابر 2.5 قرار بده اگر radiobutton3 روشن بود مقدار abc رو 3.5 قرار بده و در فایل مثلا Z ذخیره کن بعد جای دیگه بگیم برو فایل Z رو بخون مقدار abc رو از توی فایل z بخون و روی label1 نمایش بده خیلی خیلی ممنون ...... خیلی مممنون....
  24. سلام دوستان میخوام بدونم توی این کد ( کد یه منو ) #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. Dim menu As SideMenuBar Dim a As Typeface Dim b As Bitmap Dim i As Int = 0 Dim s As Object 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("main") b.Initialize(File.DirAssets,"logo.png") a = Typeface.LoadFromAssets("dastnevis.otf") menu.Initialize("gh",Me,50%x,True,a,Colors.RGB(184,163,0),b,1,Colors.Black) menu.add_item("صفحه اصلی","",LoadBitmap(File.DirAssets,"Home.png"),1) menu.add_item("درباره ما","",LoadBitmap(File.DirAssets,"person-icon.png"),2) menu.add_item("ارتباط با ما","",LoadBitmap(File.DirAssets,"telephone-icon.png"),3) menu.add_item("خروج","",LoadBitmap(File.DirAssets,"exit.png"),4) menu. menu.make(Activity) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub b_show_Click If i = 0 Then menu.show Else menu.hide End If End Sub Sub gh_Opened() i = 1 End Sub Sub gh_Closed() i = 0 End Sub Sub gh_Click(Item As Object) ' INJA chejuri vase har kodom jodagane chizi tarif konam? End Sub چجوری برا قسمت Sub gh_Click(Item As Object) برا هر کدوم از گزینه ها جداگانه کاری تعریف کنم؟؟
  25. سلام دوستان چطور می شه در label متن چند خطی بنویسیم طوری که سر بعضی از خط ها اینتر بخوره یعنی بره خط بعد.... نه اینکه همه ی متن توی یه خط و پشت سر هم باشه تازه فک می کنم label از یه حدی بیشتر متن قبول نمی کنه .... متن ام خیلی طولانی هست قسمت توضیحات برنامه است .... چطور متن طولانی توی اسکرول ویو قرار بدم ؟؟؟؟ مممنون....