رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase

r.babazadeh

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

  • تعداد ارسال ها

    17

  • تاریخ عضویت

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

  • روز های برد

    1

 نوع محتوا 

پست ها ارسال شده توسط r.babazadeh

    تاپیک جامع درخواست کتابخانه های رایگان B4A

    در کتابخانه ها (Libraries)

    ارسال شده در

    کتابخانهCustomMsgBox

     

    Requirements:


    - B4A 2.xx
    - RichString Lib
    - StringUtils Lib
    - Add the Class module "CustomMsgBox.bas" to your project

    How to use:

    Initialize the class like this for example: 

    Code:

    Sub Globals

            Dim MyMsgBox As CustomMsgBox

    End Sub

    Then, create your custom message box:

    Code:

    'With Icon
    myMsgBox.Initialize(Activity, Me, "Default", "H", 1, 95%x, 200dip, LoadBitmap(File.DirAssets, "WarningIcon.png"))

    'Without Icon
    myMsgBox.Initialize(Activity, Me, "Default", "H", 1, 95%x, 200dip, Null)

    'Then add text to the Title and Body of the custom msgbox
    MyMsgBox.Title.Text = "Custom MsgBox v1.0"

    MyMsgBox.ShowMessage("Simple box with 1 button, horizontal")

    ...

    'This routine will get the button tapped, in this case "Default" 
    'is the name of the message box, you can name yours with whatever name you like
    Sub Default_Click

            Msgbox(myMsgBox.ButtonSelected, "Button Pressed")
                
    End Sub

     

     

     

     

    CustomMsgBox_Class_1.0.4.zip

    • پسندیدن 2
×
×
  • اضافه کردن...