Private Sub DialogEditTexi(title As String, content , data As String , textformt As Boolean , tag As String, rengtext As Int)
Dim Builder As MaterialDialogBuilder
Builder.Initialize("Builder")
Builder.Title(title).TitleColor(Utils.ICONCOLORDIALOG)
Builder.Content(content).ContentColor(Utils.TEXTCOLORDARK)
If textformt = True Then
Builder.InputType(Bit.Or(Bit.Or(Builder.TYPE_CLASS_TEXT, Builder.TYPE_TEXT_FLAG_MULTI_LINE),Builder.TYPE_TEXT_FLAG_CAP_WORDS)).Typeface(Typeface.LoadFromAssets("IRANSans(FaNum)_Bold.ttf"),Typeface.LoadFromAssets("IRANSans(FaNum)_UltraLight.ttf"))
Else
Builder.InputType(Bit.Or(Bit.Or(Builder.TYPE_CLASS_NUMBER, Builder.TYPE_CLASS_PHONE),Bit.Or(Builder.TYPE_CLASS_NUMBER, Builder.TYPE_CLASS_PHONE))).Typeface(Typeface.LoadFromAssets("IRANSans(FaNum)_Bold.ttf"),Typeface.LoadFromAssets("IRANSans(FaNum)_UltraLight.ttf"))
End If
Builder.PositiveText("تایید").PositiveColor(Utils.M_SUCCES).NegativeColor(Utils.M_ERORR).NegativeText("لغو")
If data = ("اطلاعات این فیلد کامل نیست") Or data=("0") Then
Builder.Input("...", "").ButtonRippleColor(Utils.HANITTEXTCOLOR).WidgetColor(Utils.ICONCOLORDIALOG)
Else
Builder.Input("...",data).ButtonRippleColor(Utils.HANITTEXTCOLOR).WidgetColor(Utils.ICONCOLORDIALOG)
End If
Builder.Tag(tag)
If tag = "phone" Then
Builder.InputRange(11,rengtext)
Else
Builder.InputRange(4,rengtext)
End If
Builder.BackgroundColor(Utils.TOOLBARCOLORDIALOG)
Builder.Show
End Sub
وقتی ساب بالا اجرا میشه ارور زیر چاپ میشه. چطوری این ارور رو برطرف کنم؟
سوال
امیرحسین قاسمی 607
سلام
Private Sub DialogEditTexi(title As String, content , data As String , textformt As Boolean , tag As String, rengtext As Int) Dim Builder As MaterialDialogBuilder Builder.Initialize("Builder") Builder.Title(title).TitleColor(Utils.ICONCOLORDIALOG) Builder.Content(content).ContentColor(Utils.TEXTCOLORDARK) If textformt = True Then Builder.InputType(Bit.Or(Bit.Or(Builder.TYPE_CLASS_TEXT, Builder.TYPE_TEXT_FLAG_MULTI_LINE),Builder.TYPE_TEXT_FLAG_CAP_WORDS)).Typeface(Typeface.LoadFromAssets("IRANSans(FaNum)_Bold.ttf"),Typeface.LoadFromAssets("IRANSans(FaNum)_UltraLight.ttf")) Else Builder.InputType(Bit.Or(Bit.Or(Builder.TYPE_CLASS_NUMBER, Builder.TYPE_CLASS_PHONE),Bit.Or(Builder.TYPE_CLASS_NUMBER, Builder.TYPE_CLASS_PHONE))).Typeface(Typeface.LoadFromAssets("IRANSans(FaNum)_Bold.ttf"),Typeface.LoadFromAssets("IRANSans(FaNum)_UltraLight.ttf")) End If Builder.PositiveText("تایید").PositiveColor(Utils.M_SUCCES).NegativeColor(Utils.M_ERORR).NegativeText("لغو") If data = ("اطلاعات این فیلد کامل نیست") Or data=("0") Then Builder.Input("...", "").ButtonRippleColor(Utils.HANITTEXTCOLOR).WidgetColor(Utils.ICONCOLORDIALOG) Else Builder.Input("...",data).ButtonRippleColor(Utils.HANITTEXTCOLOR).WidgetColor(Utils.ICONCOLORDIALOG) End If Builder.Tag(tag) If tag = "phone" Then Builder.InputRange(11,rengtext) Else Builder.InputRange(4,rengtext) End If Builder.BackgroundColor(Utils.TOOLBARCOLORDIALOG) Builder.Show End Subوقتی ساب بالا اجرا میشه ارور زیر چاپ میشه. چطوری این ارور رو برطرف کنم؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.