رفتن به مطلب
  • 0

كار با فون اينتنت


amir7900

سوال

من ميخوام با ديتابيس يه كتاب بسازم و يه ليستي بيادو فرد با زدن روي اون ليست بره به يه اكتيويتي كه براي مثلا 50 تا ايتم يه اكتيويتي درست كردم

و ميخوام يه باتوم باشه تا با زدنش بره به بروزر خود موبايل و داخل لينكي بشه اينم سورس منه ولي ارور ميده براي كورسور

لطفا راهنمايي كنيد

source11.rar

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

اکتیویتی اول

#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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اکتیویتی اول

#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

داداش ایولا من اینو یادم رفته بود تو اوپن بروزر

واقعا ممنون

لینک ارسال
به اشتراک گذاری در سایت های دیگر

داداش ایولا من اینو یادم رفته بود تو اوپن بروزر

واقعا ممنون

یه جای دیگه هم مشکل داش

بگرد و پیدا کن ...!!!*گاز*

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...