09-01-2013، 02:05 AM (آخرین تغییر در ارسال: 09-01-2013، 02:30 AM توسط m.gooooolzar.)
(09-01-2013، 12:13 AM)'vahid_d_0101' نوشته: اره همونی بود که میخواستم
بالن هم خوبه بهتر از هیچیه اخه الان من هیچی ندیدم
در مورد اون سوال میتونید بگید چه طوری میتونم حالت اسکرول به صفحه اصلی بدم
دوست عزیز خب اول یه اسکرول بذارید بعد هرچی که نیاز داشتید رو بهش اضافه کنید دیگه .مثل این کد :
کد پی‌اچ‌پی:
Sub Activity_Create(FirstTime As Boolean)
Dim sv As ScrollView sv.Initialize(30*60dip) Activity.AddView(sv,0,0,100%x,100%y)
Dim s As SeekBar s.Initialize("") s.Max=100 s.Value=68 sv.Panel.AddView(s,50dip,10dip,100%x-100dip,30dip) For i=1 To 30 Dim btn As Button btn.Initialize("btn") btn.Text="btn " & i sv.Panel.AddView(btn,10dip,i*60dip,100%x-20dip,50dip)
Next End Sub
Sub Btn_Click Dim b As Button b=Sender Msgbox("Btn_Click",b.Text) End Sub
امیدوارم منظورتونو فهمیده باشم
(08-23-2013، 06:34 PM)'farsoft' نوشته:
(08-23-2013، 04:59 PM)'m.gooooolzar' نوشته: درود
یه نمونه برنامه برات گذاشتم ،اول کتابخانه هایی که تو فایل Lib.rar گذاشتم رو به کتابخانه هات اضافه کن بعد با برنامه کار کن
خیلی آسونه اگه سوالی داشتی بپرس
با این برنامه میتونی یه شماره رو ذخیره کنی و شماره های دفترچه تلفن رو بخونی (حتی اگه عکس هم داشته باشن نشون میده)
دوستان عزیز یه کتابخانه درست کردم که بزودی میذارم براتون
با این کتابخونه میتونید تاریخ میلادی رو به شمسی و بلعکس و همچنین اعداد رو به حروف تبدیل کنید و امکانات دیگه ...
اگه کسی ایده ای داره بگه تا اضافه کنم
سپاسگزارم دوست عزیز
ولی من بیشتر احتیاجم به ویرایش شماره ها است ولی این کتابخانه فقط درج را انجام می دهد
آیا مرجعه برای طراحی کتابخانه ها هم وجود دارد که خودم کتابخانه مورد نیازم را بسازم
با سپاس
درود
این دقیقاً همونیه که لازم دارید
موفق باشید
تمام تاریخ عبارت است از جنگ سربازانی که همدیگر را نمیشناسندو با هم میجنگند برای دو نفر که همدیگر را میشناسند و نمیجنگند
[/color][color=#0000bb]Dim s [/color][color=#007700]As [/color][color=#0000bb]SeekBar
s[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#dd0000]""[/color][color=#007700])
[/color][color=#0000bb]s[/color][color=#007700].[/color][color=#0000bb]Max[/color][color=#007700]=[/color][color=#0000bb]100
s[/color][color=#007700].[/color][color=#0000bb]Value[/color][color=#007700]=[/color][color=#0000bb]68
sv[/color][color=#007700].[/color][color=#0000bb]Panel[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]s[/color][color=#007700],[/color][color=#0000bb]50dip[/color][color=#007700],[/color][color=#0000bb]10dip[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700]-[/color][color=#0000bb]100dip[/color][color=#007700],[/color][color=#0000bb]30dip[/color][color=#007700])
For [/color][color=#0000bb]i[/color][color=#007700]=[/color][color=#0000bb]1 To 30
Dim btn [/color][color=#007700]As [/color][color=#0000bb]Button
btn[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#dd0000]"btn"[/color][color=#007700])
[/color][color=#0000bb]btn[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700]=[/color][color=#dd0000]"btn " [/color][color=#007700]& [/color][color=#0000bb]i
sv[/color][color=#007700].[/color][color=#0000bb]Panel[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]btn[/color][color=#007700],[/color][color=#0000bb]10dip[/color][color=#007700],[/color][color=#0000bb]i[/color][color=#007700]*[/color][color=#0000bb]60dip[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700]-[/color][color=#0000bb]20dip[/color][color=#007700],[/color][color=#0000bb]50dip[/color][color=#007700])
[/color][color=#0000bb]Next
End Sub
Sub Btn_Click
Dim b [/color][color=#007700]As [/color][color=#0000bb]Button
b[/color][color=#007700]=[/color][color=#0000bb]Sender
Msgbox[/color][color=#007700]([/color][color=#dd0000]"Btn_Click"[/color][color=#007700],[/color][color=#0000bb]b[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700])[/color]
[color=#0000bb]End Sub [/color]
امیدوارم منظورتونو فهمیده باشم
اقا این درسته ولی الان وقتی این کار را میکنم پشت زمینه از بین میره و دیگه عکس پشت زمینه را ندارم
[/color][color=#0000bb]Dim s [/color][color=#007700]As [/color][color=#0000bb]SeekBar
s[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#dd0000]""[/color][color=#007700])
[/color][color=#0000bb]s[/color][color=#007700].[/color][color=#0000bb]Max[/color][color=#007700]=[/color][color=#0000bb]100
s[/color][color=#007700].[/color][color=#0000bb]Value[/color][color=#007700]=[/color][color=#0000bb]68
sv[/color][color=#007700].[/color][color=#0000bb]Panel[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]s[/color][color=#007700],[/color][color=#0000bb]50dip[/color][color=#007700],[/color][color=#0000bb]10dip[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700]-[/color][color=#0000bb]100dip[/color][color=#007700],[/color][color=#0000bb]30dip[/color][color=#007700])
For [/color][color=#0000bb]i[/color][color=#007700]=[/color][color=#0000bb]1 To 30
Dim btn [/color][color=#007700]As [/color][color=#0000bb]Button
btn[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#dd0000]"btn"[/color][color=#007700])
[/color][color=#0000bb]btn[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700]=[/color][color=#dd0000]"btn " [/color][color=#007700]& [/color][color=#0000bb]i
sv[/color][color=#007700].[/color][color=#0000bb]Panel[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]btn[/color][color=#007700],[/color][color=#0000bb]10dip[/color][color=#007700],[/color][color=#0000bb]i[/color][color=#007700]*[/color][color=#0000bb]60dip[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700]-[/color][color=#0000bb]20dip[/color][color=#007700],[/color][color=#0000bb]50dip[/color][color=#007700])
[/color][color=#0000bb]Next
End Sub
Sub Btn_Click
Dim b [/color][color=#007700]As [/color][color=#0000bb]Button
b[/color][color=#007700]=[/color][color=#0000bb]Sender
Msgbox[/color][color=#007700]([/color][color=#dd0000]"Btn_Click"[/color][color=#007700],[/color][color=#0000bb]b[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700])[/color]
[color=#0000bb]End Sub [/color]
امیدوارم منظورتونو فهمیده باشم
اقا این درسته ولی الان وقتی این کار را میکنم پشت زمینه از بین میره و دیگه عکس پشت زمینه را ندارم
من الان رو پشت زمینه یه عکس گذاشتم ،نشون داد
عکسش رو پیوست کردم
بهتره پروژه رو بذارید ببینیم مشکلش چیه
تمام تاریخ عبارت است از جنگ سربازانی که همدیگر را نمیشناسندو با هم میجنگند برای دو نفر که همدیگر را میشناسند و نمیجنگند
سلام دوستان من یک متن را از یک فایل تکست با یک لیبل و اسکرول لود کردم به دلیل نوع فونتم باید فاصله ی خط ها را از هم بیشتر کنم یک سرچ کردم از روش زیر استفاده کردم فاصله ی بین خط ها را زیاد می کند ولی ارتفاعی که در آخر می ده اشتباه است باید چه کار کنم؟ روش دیگه ای هست؟ ممنون http://www.basic4ppc.com/android/forum/t...ost-147568
یه کلید را به صفحه اضافه میکنه که در هر گوشی با هر رزولیشینی باز کنی وصط صفحه قرار میده
حالا من میخواهم همین کد را برای یه کلید خاص که در designer درست کردم را در designer script بنویسم باید چی کار کنم
یه کلید را به صفحه اضافه میکنه که در هر گوشی با هر رزولیشینی باز کنی وصط صفحه قرار میده
حالا من میخواهم همین کد را برای یه کلید خاص که در designer درست کردم را در designer script بنویسم باید چی کار کنم
دوست عزیز یکم بیشتر توضیح بدید
یعنی شما با designer یه کلید گذاشتید و میخواید تو designer script محل قرار گرفتنش رو تعیین کنید ؟
این کد رو تو designer script بنویس
(09-03-2013، 04:18 PM)'mhr74' نوشته: درود دوستان من یک متن را از یک فایل تکست با یک لیبل و اسکرول لود کردم به دلیل نوع فونتم باید فاصله ی خط ها را از هم بیشتر کنم یک سرچ کردم از روش زیر استفاده کردم فاصله ی بین خط ها را زیاد می کند ولی ارتفاعی که در آخر می ده اشتباه است باید چه کار کنم؟ روش دیگه ای هست؟ ممنون http://www.basic4ppc.com/android/forum/t...ost-147568
درود
داداشی خب اگه یکم تغییرات تو کد ایجاد میکردی مشکل حل میشد
بفرما عزیزم
Sub TextHeight( v As View,txt As String) Dim RLabel As Label :RLabel.Initialize("") Dim rowheight As Int = su.MeasureMultilineTextHeight(v,txt) Dim Obj1 As Reflector Obj1.Target = RLabel Dim before As Int = Obj1.RunMethod("getLineHeight") 'Get the height of line BEFORE you change it Obj1.Target = RLabel Obj1.RunMethod3("setLineSpacing", 0, "java.lang.float", 1.5, "java.lang.float") 'Change the space between lines Obj1.Target = RLabel Dim after As Int = Obj1.RunMethod("getLineHeight") 'Get the height of line AFTER you change it Return ((after * rowheight)/before) + 20dip 'Add 20dip to have some space below the text. End Sub
یکم توضیح :
ابتدا برنامه یه لیبل میسازه و یه متنی رو داخلش میذاره که اندازش بزرکتر از لیبل هست
اما با کد su.MeasureMultilineTextHeight میشه تشخیص داد که ارتفاعش چقدره
خب حالا میخوایم کدی بنویسیم که فاصله بین خط هارو زیاد کنه
با زیاد کردن فاصله بین خطها ،درصورتی که بخوایم ارتفاع کاملش رو بدست بیاریم، اگر باز از کد su.MeasureMultilineTextHeight استفاده کنیم بازهم جواب قبلی رو برمیگردونه در صورتی که باید یه عدد بزرگتری بهمون بده
من یه تابع TextHeight ایجاد کردم که ارتفاع واقعی رو برمیگردونه
اگه سوالی بود در خدمتم
تمام تاریخ عبارت است از جنگ سربازانی که همدیگر را نمیشناسندو با هم میجنگند برای دو نفر که همدیگر را میشناسند و نمیجنگند
