وقتی برنامه رو اجرا میکنم یه ایرادی میگیره البته نه بیسیکا خود گوشی ایراد میگیره
Dim tedad As Int = -1
Dim text1 As String
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.
Private image As ImageView
Private Panel1 As Panel
Dim scrol As ScrollView
Dim int1 As Int
Private text As Label
Private copy As ImageView
Private like As ImageView
Private share As ImageView
Dim for1 As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
scrol.Initialize(100%y)
Activity.AddView(scrol,0,0,100%x,100%y)
For i=0 To 20
Dim p As Panel
p.Initialize("p")
scrol.Panel.AddView(p,0,int1,100%x,100%Y)
int1=int1+60%y
p.LoadLayout("animals")
scrol.Panel.Height=int1
text.TextColor = Colors.Blue
Panel1.Color = Colors.RGB(245,230,36)
image.Bitmap = LoadBitmap(File.DirAssets,"text.png")
share.Bitmap = LoadBitmap(File.DirAssets,"Share.png")
copy.Bitmap = LoadBitmap(File.DirAssets,"copy.png")
like.Bitmap = LoadBitmap(File.DirAssets,"unfave.png")
text.TextSize = 25
like.Tag = i
Select Case i
Case 0
text.text = "this is a test for ......"
Case 1
text.text = "چطوری" & i
Case 2
text.text = "خوبم" & i
Case 3
text.text = "تو خوبی ؟ " & i
Case 4
text.text = "ممنون" & i
Case 5
text.text = "سلامتی" & i
Case 6
text.text = "خانوداده خوبن ؟" & i
Case 7
text.text = "بله ممنون خیلی خوبن" & i
End Select
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub like_Click
Dim b As Button
b = Sender
If b.Tag = "0" Then
like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
tedad = tedad + 1
text1 = text.Text
Else If b.Tag = "1" Then
like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
tedad = tedad + 1
text1 = text.Text
Else If b.Tag = "2" Then
like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
tedad = tedad + 1
text1 = text.Text
Else If b.Tag = "3" Then
like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
tedad = tedad + 1
text1 = text.Text
Else If b.Tag = "4" Then
like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
tedad = tedad + 1
text1 = text.Text
End If
End Sub
سوال
alaghemand 82
اشکال این کد من کجاست
وقتی برنامه رو اجرا میکنم یه ایرادی میگیره البته نه بیسیکا خود گوشی ایراد میگیره
Dim tedad As Int = -1 Dim text1 As String 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. Private image As ImageView Private Panel1 As Panel Dim scrol As ScrollView Dim int1 As Int Private text As Label Private copy As ImageView Private like As ImageView Private share As ImageView Dim for1 As Int End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: scrol.Initialize(100%y) Activity.AddView(scrol,0,0,100%x,100%y) For i=0 To 20 Dim p As Panel p.Initialize("p") scrol.Panel.AddView(p,0,int1,100%x,100%Y) int1=int1+60%y p.LoadLayout("animals") scrol.Panel.Height=int1 text.TextColor = Colors.Blue Panel1.Color = Colors.RGB(245,230,36) image.Bitmap = LoadBitmap(File.DirAssets,"text.png") share.Bitmap = LoadBitmap(File.DirAssets,"Share.png") copy.Bitmap = LoadBitmap(File.DirAssets,"copy.png") like.Bitmap = LoadBitmap(File.DirAssets,"unfave.png") text.TextSize = 25 like.Tag = i Select Case i Case 0 text.text = "this is a test for ......" Case 1 text.text = "چطوری" & i Case 2 text.text = "خوبم" & i Case 3 text.text = "تو خوبی ؟ " & i Case 4 text.text = "ممنون" & i Case 5 text.text = "سلامتی" & i Case 6 text.text = "خانوداده خوبن ؟" & i Case 7 text.text = "بله ممنون خیلی خوبن" & i End Select Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub like_Click Dim b As Button b = Sender If b.Tag = "0" Then like.Bitmap = LoadBitmap(File.DirAssets,"fave.png") tedad = tedad + 1 text1 = text.Text Else If b.Tag = "1" Then like.Bitmap = LoadBitmap(File.DirAssets,"fave.png") tedad = tedad + 1 text1 = text.Text Else If b.Tag = "2" Then like.Bitmap = LoadBitmap(File.DirAssets,"fave.png") tedad = tedad + 1 text1 = text.Text Else If b.Tag = "3" Then like.Bitmap = LoadBitmap(File.DirAssets,"fave.png") tedad = tedad + 1 text1 = text.Text Else If b.Tag = "4" Then like.Bitmap = LoadBitmap(File.DirAssets,"fave.png") tedad = tedad + 1 text1 = text.Text End If End Subایرادی که هم میگیره اینه :
کمکم کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
16 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.