رفتن به مطلب
بیسیک فور ایکس

reza60

کاربر عادی
  • تعداد ارسال ها

    3
  • تاریخ عضویت

  • آخرین بازدید

درباره reza60

  • تاریخ تولد تعیین نشده

شما در شبکه های اجتماعی

  • تلگرام
    @reza1360
  1. با سلام...من بعد از ساخت اسلایدر با کتابخانه MSMaterialDrawer بخاطر اینکه متریال را راست چین کردم آیکونهای اسلایدر نشون داده نمیشن آیا راه حلی نیست که این مشکل را برطرف کنم؟ #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 #Extends: android.support.v7.app.AppCompatActivity #AdditionalRes:..\res #AdditionalRes:..\md-app\res #AdditionalRes:..\md-lib\res Sub Process_Globals End Sub Sub Globals Private toolbar As ACToolBarDark Dim mdb As MSMaterialDrawerBuilder Dim md As MSMaterialDrawer End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("l1") toolbar.SetAsActionBar ForseRtlSupported drawel '''''''''''''''''''''''''' Activity.AddMenuItem2("درباره ما","title1",LoadBitmap(File.DirAssets,"ic_settings_black_36dp.png")) Activity.AddMenuItem("تماس با ما","title2") Activity.AddMenuItem("آیتم سوم","title3") Activity.AddMenuItem("آیتم سوم","title4") Activity.AddMenuItem("آیتم سوم","title5") Activity.AddMenuItem("آیتم سوم","title6") Activity.AddMenuItem("آیتم سوم","title7") Activity.AddMenuItem("آیتم سوم","title8") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub drawel Dim pnlhdr As Panel pnlhdr.Initialize("") pnlhdr.Color = Colors.LightGray pnlhdr.Tag = "header" Dim msp1 As MSProfile Dim icon1 As BitmapDrawable icon1.Initialize(LoadBitmap(File.DirAssets,"myface.png")) msp1.withName("میر رضا عطایی").withEmail("reza@gmail.com").withIcon(icon1) Dim msp2 As MSProfile Dim icon2 As BitmapDrawable icon2.Initialize(LoadBitmap(File.DirAssets,"1.1 (729).png")) msp2.withName("محمدمهدی نهامین").withEmail("mohammad@gmail.com").withIcon(icon2) Dim profiles(2) As MSProfile profiles(0) = msp1 profiles(1) = msp2 Dim header As MSAccountHeaderBuilder Dim headerbg As BitmapDrawable headerbg.Initialize(LoadBitmap(File.DirAssets,"header.jpg")) header.Initialize("header") header.addProfiles(profiles) header.withHeaderBackground(headerbg) Dim headerobject As Object = header.build Dim ic1 As MSIconicDrawable ic1.Initialize("gmd_home") ic1.Color = 0xffff4081 Dim ic2 As MSIconicDrawable ic2.Initialize("gmd_drafts") ic2.Color = 0xffff4081 Dim ic3 As MSIconicDrawable ic3.Initialize("gmd_person") ic3.Color = 0xffff4081 Dim sl1 As MSIconicDrawable sl1.Initialize("gmd_settings") sl1.Color = 0xffff4081 Dim sl2 As MSIconicDrawable sl2.Initialize("gmd_help") sl2.Color = 0xffff4081 Dim sl3 As MSIconicDrawable sl3.Initialize("faw_google_wallet") sl3.Color = 0xffff4081 mdb.Initialize("mbd") mdb.withAccountHeader(headerobject) mdb.AddPrimaryDrawerItem("خانه",ic1.Drawable,Null,"+99",True,1,"صفحه اصلی") mdb.AddPrimaryDrawerItem("پیام ها",ic1.Drawable,Null,"+99",True,2,"پیامهای دریافتی") mdb.AddPrimaryDrawerItem("اشخاص",ic1.Drawable,Null,"+99",True,3,"") mdb.AddSectionDrawerItem("section",True) mdb.AddSecondaryDrawerItem("تنظیمات",sl1.Drawable,Null,"",True,4) mdb.AddSecondaryDrawerItem("راهنمایی",sl2.Drawable,Null,"",True,5) mdb.AddSecondaryDrawerItem("همکاری",sl3.Drawable,Null,"",False,6) mdb.AddSecondaryDrawerItem("همکاری",Null,Null,"",False,7) 'برای آوردن سه خط از کد زیر استفاده میکنیم mdb.withToolbar(toolbar) mdb.withActionbarToggle(True) mdb.withActionbarToggleAnimated(True) md = mdb.Build End Sub Sub mdb_ItemClick(Position As Int, Identifier As Int) ToastMessageShow("Position is : " &Position & "Identifier is :" &Identifier , False) End Sub Sub header_ProfileChanged(Profile As MSProfile) ToastMessageShow(Profile.Name , False) End Sub Sub header_ProfileClicked(Profile As MSProfile) ToastMessageShow(Profile.Email , False) End Sub Sub ForseRtlSupported Dim j,jo As JavaObject jo.InitializeStatic("android.view.View") If j.InitializeStatic("android.os.Build$VERSION").GetField("SDK_INT")>16 Then j.InitializeContext.RunMethodJO("getWindow",Null).RunMethodJO("getDecorView",Null).RunMethod("setLayoutDirection",Array(jo.GetField("LAYOUT_DIRECTION_RTL"))) End If End Sub Sub ACButton1_Click End Sub این کدهای اکتیویتی اینم لینک تصویر اسلایدر
  2. reza60

    کانکت نشدن navicat به b4a

    حل شد
  3. reza60

    کانکت نشدن navicat به b4a

    با سلام من وقتی بعد از ساخت جداول و کد نویسی در b4a برنامه شبیه ساز رو اجرا میکنم ارور میده و میگه مشکل در برقراری ارتباط.نمیتونه دیتابیس رو باز کنه android.database.sqlite.SQLiteCantOpenDatabaseException: unknown error (code 14): Could not open database لطفا راهنمایی کنید
×