رفتن به مطلب

davood1382

کاربر نیمه فعال
  • تعداد ارسال ها

    405
  • تاریخ عضویت

  • آخرین بازدید

پست ها ارسال شده توسط davood1382

  1. اقا مجید خیلییییی ممنون 

    خداییش همین الان میخواستم بگم که مشکلم حل شد 

    راه حل = توی لیست ویو من از اد سینگل لاین استفاده کردم اما باید از اد سینگل لاین 2 استفاده کنم و در متغیر دومی ستون id رو بدم (برای باز خوانی پس از حذف ویرایش و .... ) به هر حال خیلی اقایی 

    جواب رو هم گذاشتم کسی دیگه مشکل داشت شاید با این روش حل شد.

    خیلی ممنون 

    من هر چی دارم توی برنامه نویسی از این انجمن و کاربرانی مثل اقای ارتا وایزدی و الیاس عرفانی و .... هستش که خیلی به من کمک کردن.

    همچنین اقا شهاب گل.

    • پسندیدن 3
  2. سلام اقا شهاب یعنی خدایی گل کاشتی 

    ولی برا من کار نمیکنه(داخل نمایش متن)

    این کدهام

    activity main

    Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("list")
    If File.Exists(File.DirInternal,"db.db") = False Then
    File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db")
    End If
    
    
    If sql.IsInitialized = False Then
    sql.Initialize(File.DirInternal,"db.db",True)
    End If
    
    
    cur = sql.ExecQuery("SELECT * FROM mytbl")
    For i = 0 To cur.RowCount - 1 
    cur.Position = i
    ListView1.AddSingleLine(cur.GetString("title"))
    Next
    
    
    
    
    If ListView1.Size = 0 Then
    Msgbox("اطلاعاتی برای نمایش وجود ندارد.","سلام.توجه!!!")
    End If
    
    
    
    
    End Sub
    
    
    Sub Activity_Resume
    
    
    End Sub
    
    
    Sub Activity_Pause (UserClosed As Boolean)
    
    
    End Sub
    
    
    Sub Button1_Click
    If EditText1.Text = "" Or EditText2.Text = "" Then
    ToastMessageShow("متنی وارد نشده است",False)
    Else
    
    
    Dim a As Int
    a = Msgbox2("از اضافه کردن اطلاعات مطمئن هستید؟؟؟???","توجه!!","بله","","خیر",Null)
    If a = DialogResponse.POSITIVE Then
    
    
    sql.ExecNonQuery("INSERT INTO mytbl (id,title,content) VALUES (null,'"& EditText1.Text &"','"& EditText2.text &"')")
    ToastMessageShow("ثبت شد",False)
    
    
    
    
    ListView1.Clear
    cur = sql.ExecQuery("SELECT * FROM mytbl")
    For i = 0 To cur.RowCount - 1 
    cur.Position = i
    ListView1.AddSingleLine(cur.GetString("title"))
    Next
    
    
    End If
    End If
    End Sub
    
    
    Sub ListView1_ItemClick (Position As Int, Value As Object)
    meghdar = Value
    StartActivity(content)
    End Sub
    
    
    Sub ListView1_ItemLongClick (Position As Int, Value As Object)
    Dim a As Int
    a = Msgbox2("از حذف اطلاعات مطمئن هستید؟؟؟؟","توجه","بله","","خیر",Null)
    If a = DialogResponse.POSITIVE Then
    
    
    
    sql.ExecNonQuery("DELETE FROM mytbl WHERE id = '"& Value &"'")
    ToastMessageShow("حذف شد.",False)
    
    ListView1.Clear
    cur = sql.ExecQuery("SELECT * FROM mytbl")
    For i = 0 To cur.RowCount - 1 
    cur.Position = i
    ListView1.AddSingleLine(cur.GetString("title"))
    Next
    
    
    End If
    End Sub

    activity content

    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim id As Int
    Private Label1 As Label
    Private EditText1 As EditText
    End Sub
    
    
    Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("label")
    id = Main.meghdar
    
    
    
    
    Main.cur = Main.sql.ExecQuery("SELECT * FROM mytbl WHERE id = " & id)
    Main.cur.Position = 0
    EditText1.Text = Main.cur.GetString("content")
    
    
    End Sub
  3.  

     

    توی این کلیپ پنل Designer رو کامل توضیح دادم و آموزش دادم که برنامه نویس چطور می تونه در اسکریپت دیزاینر مکان آیتم ها رو طوری کد نویسی کنه که برای سایز های مختلف صفحه نمایش گوشی قابل اجرا باشه و دچار تغییر نشه.

    اولین آموزش تصویریم هست و انتقادی داشتین بگین توی کارای بعدی اصلاحش کنم.

    خیلی ساده توضیح دادم تا واسه تازه کارا قابل فهم باشه(کهنه کارا ببخشن.)

    دو تا نکته هم واسه کهنه کارا داره که شاید توجه نکرده باشن.

    http://s5.picofile.com/file/8159526334/ScriptDesigner.rar.html

    پسورد فایل:

    basic4android.org

    آموزش نکات طراحی کاربری حرفه ای شامل موارد زیره و تا فردا پر میشه:

    مدیریت مکان ها آیتم ها در هنگام چرخش صفحه.

    استیت لیست درابل برای ساخت button حرفه ای.

    ساخت عکس هایی که در هنگام کشیده شدن خراب نشوند.(Nine-Patch)

    nine-Patch و استفاده از آن برای طراحی آیتم های حرفه ای.

    استفاده از محتویات UI-Pack برای طراحی رابط کاربری حرفه ای.

    افزودن ویو ها بدون دیزاینر و با استفاده از کد نویسی در IDE.

    اینم لینک آموزشا:

    http://shop.basic4android.org/?p=838

    .......................................................................

     

     

     

    دستت بیبلا اصلا نجاتم دادی 99999999999999999 تا لایک هم برات کمه

    • پسندیدن 2
×
×
  • اضافه کردن...