باید سایت رو از ادیت تکست دو بگیره وتو ادیت تکست یک بزاره
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
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.
Dim ht As HttpJob
Dim a As Animation
Dim su As String
Dim bg As Bitmap
Private EditText1 As EditText
Private EditText2 As EditText
Private Button2 As Button
Private Button3 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("sourse")
ht.Initialize("ht",Me)
EditText2.Initialize("")
bg.Initialize(File.DirAssets,"11.jpg")
Activity.SetBackgroundImage(bg)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
Dim bb As String
su=EditText2.Text
bb = "http://www."&su
ht.Download(bb)
ProgressDialogShow2("در حال دریافت سورس ..",False)
End Sub
Sub JobDone(job As HttpJob)
ProgressDialogHide
If job.Success=True Then
EditText1.Text=job.GetString
Else
ToastMessageShow("خطا در خواندن سورس...",True)
End If
End Sub
سوال
alinoori 123
این سورس چه مشکل داره که جواب نمیده
باید سایت رو از ادیت تکست دو بگیره وتو ادیت تکست یک بزاره
Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. 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. Dim ht As HttpJob Dim a As Animation Dim su As String Dim bg As Bitmap Private EditText1 As EditText Private EditText2 As EditText Private Button2 As Button Private Button3 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("sourse") ht.Initialize("ht",Me) EditText2.Initialize("") bg.Initialize(File.DirAssets,"11.jpg") Activity.SetBackgroundImage(bg) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click Dim bb As String su=EditText2.Text bb = "http://www."&su ht.Download(bb) ProgressDialogShow2("در حال دریافت سورس ..",False) End Sub Sub JobDone(job As HttpJob) ProgressDialogHide If job.Success=True Then EditText1.Text=job.GetString Else ToastMessageShow("خطا در خواندن سورس...",True) End If End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.