09-03-2013، 12:37 AM
نقل قول:اقا این درسته ولی الان وقتی این کار را میکنم پشت زمینه از بین میره و دیگه عکس پشت زمینه را ندارمدوست عزیز خب اول یه اسکرول بذارید بعد هرچی که نیاز داشتید رو بهش اضافه کنید دیگه .مثل این کد :کد PHP:
کد:[color=#0000bb]Sub Activity_Create[/color][color=#007700]([/color][color=#0000bb]FirstTime [/color][color=#007700]As [/color][color=#0000bb]Boolean[/color][color=#007700])
[/color][color=#0000bb]Dim sv [/color][color=#007700]As [/color][color=#0000bb]ScrollView
sv[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#0000bb]30[/color][color=#007700]*[/color][color=#0000bb]60dip[/color][color=#007700])
[/color][color=#0000bb]Activity[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]sv[/color][color=#007700],[/color][color=#0000bb]0[/color][color=#007700],[/color][color=#0000bb]0[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]y[/color][color=#007700])
[/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]امیدوارم منظورتونو فهمیده باشم
