marshal 71 ارسال شده در 29 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 اردیبهشت، ۱۳۹۴ با عرض سلام و خسته نباشید خدمت دوستان عزیز میشه دقیقا برام توضیح بدید که این 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 واقعا به کمکتون نیاز دارم... لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
marshal 71 ارسال شده در 30 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ با سلام... عکس های وسطی مشکل فونت رو نشون میده که تو پیامک آخر فونتم bold میشه... مشکل دیگم اینه که این مطالب رو تو دیتابیس قرار دادم. برای هر صفحه پنجاه مطلب. ولی وقتی برنامه رو تو گوشیم اجرا کردم با عکس اولی مواجه شدم(عکس سیاه رنگ با خطای متوقف شده است). اومدم تعداد مطالبم رو به سی عدد رسوندم که اونم به سختی اجرا میشه... عکس سمت چپی هم صفحه اول برناممه... به نظرتون بد نیست؟؟؟ لطفا کمکم کنید... لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
marshal 71 ارسال شده در 30 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ اینم از سورس این صفحه ... بی زحمت یه نگاهی بندازید.... #Region Activity Attributes #FullScreen: True #IncludeTitle: False #End Region Sub Process_Globals Dim SQL1 As SQL Dim cursur1 As Cursor End Sub Sub Globals Private Panel1 As Panel Private Label1 As Label Private btnnumber As Button Private ScrollView1 As ScrollView Private Button1 As Button Private Label5 As Label Dim myfont As Typeface Dim text As String Dim ht As Float Dim StrUtil As StringUtils Dim PanelHeight As Int Private btcopy As Button Private btshare As Button End Sub Sub Activity_Create(FirstTime As Boolean) If File.Exists(File.DirInternal,"bank.db")=False Then File.copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db") End If If SQL1.IsInitialized = False Then SQL1.Initialize(File.DirInternal,"bank.db",True) End If cursur1 = SQL1.ExecQuery("SELECT g1 FROM banktb") myfont = Typeface.LoadFromAssets("byekan.ttf") Activity.LoadLayout("sv") For i=0 To cursur1.RowCount-1 cursur1.Position=i text= cursur1.GetString("g1") ScrollView1.Panel.Color = Colors.Transparent Dim p1 As Panel p1.Initialize("") p1.LoadLayout("main") ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip) btshare.Tag = i btcopy.Tag = i btnnumber.text = i + 1 btnnumber.Typeface=Typeface.LoadFromAssets("dastnevis.ttf") btnnumber.TextColor=Colors.yellow btnnumber.Textsize=15 ht=art(text,Label1,myfont,20) Label1.TextColor=Colors.white p1.Height=ht+70dip PanelHeight=PanelHeight+ht+70dip Next ScrollView1.Panel.Height=PanelHeight Label5.text="رشحات الانس" Label5.Typeface=Typeface.LoadFromAssets("dastnevis.ttf") Label1.TextSize=25 End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click StartActivity(Main) Activity.Finish End 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 Sub btshare_click Dim cursor3 As Cursor cursor3 = SQL1.ExecQuery("SELECT g2 FROM banktb") Dim btn2 As Button btn2=Sender cursor3.Position =btn2.Tag Dim matnsms As Label matnsms.Initialize("") matnsms.text=cursor3.GetString("g2") cursor3.Close Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("text/plain") share.PutExtra("android.intent.extra.TEXT", matnsms.text) share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....") StartActivity(share) End Sub Sub btcopy_click Dim something As BClipboard Dim cursor2 As Cursor cursor2 = SQL1.ExecQuery("SELECT g2 FROM banktb") Dim btn2 As Button btn2=Sender cursor2.Position =btn2.Tag something.clrText something.settext(cursor2.GetString("g2")) ToastMessageShow("متن در کلیپ بورد کپی شد",False) cursor2.Close End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
marshal 71 ارسال شده در 30 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ کسی نیست جواب مارو بده ؟؟؟ لطفا کمکم کنید... واقعا به کمکتون نیاز دارم... لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ali2 115 ارسال شده در 29 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 اردیبهشت، ۱۳۹۴ تنظیم اندازه و فونت نوشته همچنین تنظیم فاصله بین خطوط شناور کردن لیبل:یعنی لیبل به اندازه طول متن تغییر میکنه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
marshal 71 ارسال شده در 29 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 29 اردیبهشت، ۱۳۹۴ یعنی واقعا اینجا کسی نیست جواب بده؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
top206 34 ارسال شده در 29 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 29 اردیبهشت، ۱۳۹۴ جواب علی اقا درسته دیگه ! برای تنظیم متن به کار میره لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
marshal 71 ارسال شده در 30 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ ممنون بابت راهنماییتون... خب حالا چرا متن آخر من فونتش بولد میشه؟؟؟ ایراد از این sub هستش؟؟؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حسن قاسمی نیا 547 ارسال شده در 30 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ sub برای تنظیم متن هست ؟ تگ شروع و پایان برنامه اند روید هست دیگه این sub را همه جا داریم . نمونه : 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 webview1 As WebView 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("web") webview1.loadurl("http://") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
marshal 71 ارسال شده در 30 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ ممنون بابت راهنمایی... ولی منظورم برنامه sub هستش؟؟؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahfelsoft 130 ارسال شده در 30 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ برنامه ی sub ? یعنی چی ؟ منظورتون مشخص نیست . ببینید دوست عزیز . این سابی که اول گذاشتید همونجوری که دوستمون علی گفتن برای تنظیمات فاصله بین خطوط و اندازه اسکرول و لییبل و این چیزاست . کلا واسه متون توی برنامه است . و برای استفاده اش کتابخونه reflection باید فعال باشه . خوب شما دقیقا سوالت چیه ؟ کلا یک sub مثل یه پاراگرافه که متنش از اول خط شروع میشه و تا یه جایی تموم میشه و بعد شخص پاراگراف بعدی رو شروع میکنه . مثلا ما توی یه ساب رویداد کلیک باتون میزاریم . توی یه ساب متغیرهامون رو تعریف میکنیم و خیلی کارهای دیگه ... حالا اگر سوال خاصی دارید بفرمایدد لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
marshal 71 ارسال شده در 30 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ دوستان من انقدرها هم بی سواد نیستما... مشکل برنامم اینه که چرا متن آخر من فونتش بولد میشه؟؟؟ ایراد از این بخشی هستش که اینجا گذاشتم ؟؟؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mahfelsoft 130 ارسال شده در 30 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ متن آخرت یعنی کجا ؟ میتونی سورستو بزاری ببینیم ؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
sganji 678 ارسال شده در 30 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 30 اردیبهشت، ۱۳۹۴ نه دوست عزیز توی این ساب تنظیم فونت نیستش...تو از یه فونت بولد استفاده کردی... لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
marshal 71
با عرض سلام و خسته نباشید خدمت دوستان عزیز
میشه دقیقا برام توضیح بدید که این 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 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.