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

[amir7900 13]

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

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

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

source11.rar

[nicetitle 18]

اکتیویتی اول

#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]

اکتیویتی اول

#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]

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

واقعا ممنون

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

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