amir7900 13 ارسال شده در 2 بهمن، ۱۳۹۳ اشتراک گذاری ارسال شده در 2 بهمن، ۱۳۹۳ من ميخوام با ديتابيس يه كتاب بسازم و يه ليستي بيادو فرد با زدن روي اون ليست بره به يه اكتيويتي كه براي مثلا 50 تا ايتم يه اكتيويتي درست كردم و ميخوام يه باتوم باشه تا با زدنش بره به بروزر خود موبايل و داخل لينكي بشه اينم سورس منه ولي ارور ميده براي كورسور لطفا راهنمايي كنيد source11.rar لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
nicetitle 18 ارسال شده در 2 بهمن، ۱۳۹۳ اشتراک گذاری ارسال شده در 2 بهمن، ۱۳۹۳ اکتیویتی اول #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 Sub Process_Globals Dim sql1 As SQL Dim meghdar As String Dim vlu As Int End Sub Sub Globals Private ListView1 As ListView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER ListView1.Color = Colors.Blue File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db") sql1.Initialize(File.DirInternal,"data.db",True) Dim cur As Cursor cur = sql1.ExecQuery("SELECT * FROM mt") For i = 0 To cur.RowCount - 1 cur.Position = i ListView1.AddSingleLine2(cur.GetString("list"),i) Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) vlu = Value StartActivity(matn) End Sub اکتیویتی دوم #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals End Sub Sub Globals Private Button1 As Button Dim a As PhoneIntents Dim cur As Cursor Private Button2 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("2") cur = Main.sql1.ExecQuery("SELECT link FROM mt'" &Main.meghdar&"'") cur.Position = Main.vlu End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_click StartActivity(a.OpenBrowser(cur.GetString("link"))) End Sub Sub Button2_Click StartActivity(a.OpenBrowser("http://queenmovie.tk")) End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
amir7900 13 ارسال شده در 2 بهمن، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 2 بهمن، ۱۳۹۳ اکتیویتی اول #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 Sub Process_Globals Dim sql1 As SQL Dim meghdar As String Dim vlu As Int End Sub Sub Globals Private ListView1 As ListView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER ListView1.Color = Colors.Blue File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db") sql1.Initialize(File.DirInternal,"data.db",True) Dim cur As Cursor cur = sql1.ExecQuery("SELECT * FROM mt") For i = 0 To cur.RowCount - 1 cur.Position = i ListView1.AddSingleLine2(cur.GetString("list"),i) Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) vlu = Value StartActivity(matn) End Sub اکتیویتی دوم #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals End Sub Sub Globals Private Button1 As Button Dim a As PhoneIntents Dim cur As Cursor Private Button2 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("2") cur = Main.sql1.ExecQuery("SELECT link FROM mt'" &Main.meghdar&"'") cur.Position = Main.vlu End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_click StartActivity(a.OpenBrowser(cur.GetString("link"))) End Sub Sub Button2_Click StartActivity(a.OpenBrowser("http://queenmovie.tk")) End Sub داداش ایولا من اینو یادم رفته بود تو اوپن بروزر واقعا ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
nicetitle 18 ارسال شده در 2 بهمن، ۱۳۹۳ اشتراک گذاری ارسال شده در 2 بهمن، ۱۳۹۳ داداش ایولا من اینو یادم رفته بود تو اوپن بروزرواقعا ممنون یه جای دیگه هم مشکل داش بگرد و پیدا کن ...!!!*گاز* لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
amir7900 13
من ميخوام با ديتابيس يه كتاب بسازم و يه ليستي بيادو فرد با زدن روي اون ليست بره به يه اكتيويتي كه براي مثلا 50 تا ايتم يه اكتيويتي درست كردم
و ميخوام يه باتوم باشه تا با زدنش بره به بروزر خود موبايل و داخل لينكي بشه اينم سورس منه ولي ارور ميده براي كورسور
لطفا راهنمايي كنيد
source11.rar
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.