parham01 82 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ سلام و درود دوستان من یک لیست ویو دارم با اسم LVDb میخواستم محتویات این لیست ویو رو که از دیتا بیس نمایش داده میشه رو عینا sms کنم به یه شماره اگه کمکم کنید واقعا ممنونتون میشم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ خواهش میکنم عزیزیم سورستون تکمیل و سالم خدمت شما من دسترسی به گوشی ندارم اما دقیقا متنی که در مسیج باکس میبینید، ارسال خواهد شد... http://s3.picofile.com/file/8229356968/2015_12_22_21_50_12.png خدمت شما امیدوارم مشکلتون مرتفع شده باشه http://s3.picofile.com/file/8229357068/SQLiteDemo.rar.html لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ شما این بخش رو نگاه کنید حتما http://answercenter.ir/forum/37-آموزش-های-گام-به-گام-برای-مبتدی-ها/ روشی هم که بهتون ارائه دادم، بی مشکل داره کار میکنه اینم برای مثال نمایش ایتم ها توی یک مسیج باکس هست که بعدش ارسال میشه http://s3.picofile.com/file/8229327534/2015_12_22_19_14_15.png اینم سورس همین تصویر خدمت شما http://s6.picofile.com/file/8229327684/New_folder_5_.rar.html من که روم نیمشه چیزی بگم سورسیکه فرستادین تست کردم خیلی خوب جواب داد ولی اوردمش تو سورس خودم باتومش حتی کارم نمیکنه من احساس میکنم از اینه : چون لیست ویو من سینگل لاینه و واسه شما سینگل لاین 2 نه؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ من توی لیست ویویی که براتون ویرایش کردم تبدیل به سینگل لاین 2 کردم اگه سینگل لاین هست، سینگل لاین 2 کنید و یه کامل بذارید بین قسمتی که از دیتابیس میگیریدش، دوباره قسمت قبل کالا رو کپی کنید... لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ من توی لیست ویویی که براتون ویرایش کردم تبدیل به سینگل لاین 2 کردم اگه سینگل لاین هست، سینگل لاین 2 کنید و یه کامل بذارید بین قسمتی که از دیتابیس میگیریدش، دوباره قسمت قبل کالا رو کپی کنید... قربان من خیلی وقتتون گرفتم و شما واقعا خجالتم دادید من سورس دادم خدمتتون سورس اورجینال را یه زحمت میکشید تغییراتی که میفرمایین را بهش اضافه کنید یه تست کنید ممنون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ خواهش میکنم عزیزیم سورستون تکمیل و سالم خدمت شما من دسترسی به گوشی ندارم اما دقیقا متنی که در مسیج باکس میبینید، ارسال خواهد شد... http://s3.picofile.com/file/8229356968/2015_12_22_21_50_12.png خدمت شما امیدوارم مشکلتون مرتفع شده باشه http://s3.picofile.com/file/8229357068/SQLiteDemo.rar.html شهاب خان خیلی آقایی خیلی وقتت گرفتم واقعا شرمندتم داداش عالی بود زنده باشی لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ سلام خب بنده فرش رو بر این میگیرم که شما متن کل متن رو در لیست ویو نمایش میدید و با کلیک روی آِیتم میخوایید متنشو بع عنوان پیامک ارسال کنید به شکل زیر کد می نویسیم : Dim Cr As Cursor Cr = SQL.ExecQuery("SELECT * FROM tbl") For i = 0 To Cr.RowCount - 1 Cr.Position = i LvDb.AddSingleLine2(Cr.GetString("text"),Cr.GetString("text")) Next Cr.Close و حالا آیتم کلیک : Sub LvDb_ItemClick(Position As Int , Value As Object) Ok.SendSms("+989338810122",Value) End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ سلام خب بنده فرش رو بر این میگیرم که شما متن کل متن رو در لیست ویو نمایش میدید و با کلیک روی آِیتم میخوایید متنشو بع عنوان پیامک ارسال کنید به شکل زیر کد می نویسیم : Dim Cr As Cursor Cr = SQL.ExecQuery("SELECT * FROM tbl") For i = 0 To Cr.RowCount - 1 Cr.Position = i LvDb.AddSingleLine2(Cr.GetString("text"),Cr.GetString("text")) Next Cr.Close و حالا آیتم کلیک : Sub LvDb_ItemClick(Position As Int , Value As Object) Ok.SendSms("+989338810122",Value) End Sub با سلام و تشکر فراوان قربان کدی که زحمت کشیدین فقط با کلیک روی هر سطر متن همون سطر میفرسته میخوام اگه بشه باتومی طراحی کرد که با کلیک روی اون کل محتویات اون لیست ویو ارسال بشه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ سلام عزیزم Sub Globals Dim l As ListView Dim sendbtn As Button End Sub Sub Activity_Create(FirstTime As Boolean) l.Initialize("") sendbtn.Initialize("send") End Sub Sub send_Click Dim str As String For i = 0 To l.Size - 1 str = str & "---" & l.GetItem(i) Next Dim p As PhoneSms p.Send2("093939393939",str,True,False) End Sub دقیقا مثل استاد ارتا، منم فک کردم شما میخوای یه ایتم سند شه این کد بالا، میاد و مقادیر برگشیتی لیست ویور و ، برای هر چندتا ایتم میریزه توی یه متغیر و بعد متغیر رو ارسال میکنه پس متن هایی که میخوای سند شه باید بره به قسمت returnValue لیست ویو بشینه موفق باشید استاد ارتا لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ سلام عزیزم Sub Globals Dim l As ListView Dim sendbtn As Button End Sub Sub Activity_Create(FirstTime As Boolean) l.Initialize("") sendbtn.Initialize("send") End Sub Sub send_Click Dim str As String For i = 0 To l.Size - 1 str = str & "---" & l.GetItem(i) Next Dim p As PhoneSms p.Send2("093939393939",str,True,False) End Sub دقیقا مثل استاد ارتا، منم فک کردم شما میخوای یه ایتم سند شه این کد بالا، میاد و مقادیر برگشیتی لیست ویور و ، برای هر چندتا ایتم میریزه توی یه متغیر و بعد متغیر رو ارسال میکنه پس متن هایی که میخوای سند شه باید بره به قسمت returnValue لیست ویو بشینه موفق باشید استاد ارتا با سلام خدمت استاد عزیزم ممنون از وقتی که گذاشتین متاسفانه جواب نداد ارور میده مسیج بادی البته به انگلیسی ابته اینم عرض کنم بخاطر آماتور بودنم تو زمینه برنامه نویسی یه مروری از روند کارهام خدممتون میگم 1 - تغییر اسم "1" به نام لیست ویو خودم 2 - تغییر شماره به شماره خودم جدا از بحث کپی کار دیگه ای اگه باید اعمال میکردم اگه بگید منت به سرم گذاشتین لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ خواهش میکنم نه دلاور کار دیگه ای نیست یه تصویر از کدهاتون و ارور ی که میگیره قرار بدید بررسی کنم و اگه شد کمکتون کنم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ خواهش میکنم نه دلاور کار دیگه ای نیست یه تصویر از کدهاتون و ارور ی که میگیره قرار بدید بررسی کنم و اگه شد کمکتون کنم #Region Module Attributes #FullScreen: False #IncludeTitle: True #ApplicationLabel: SQLDemo #VersionCode: 1 #VersionName: #SupportedOrientations: portrait #CanInstallToExternalStorage: False #End Region 'Activity module Sub Process_Globals Dim SQL1 As SQL Dim cursor1 As Cursor End Sub Sub Globals Dim txtUsername As EditText Dim txtPassword As EditText Dim LVDb As ListView Dim cmdAdd As Button Dim cmdDelete As Button Dim cmdEdit As Button Dim ID As String End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main") If File.Exists(File.DirInternal,"db.sql") = False Then File.Copy(File.DirAssets,"db.sql",File.DirInternal,"db.sql") End If If SQL1.IsInitialized = False Then SQL1.Initialize(File.DirInternal, "db.sql", False) End If DBload End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub DBload LVDb.Clear'need to clear the list cursor1 = SQL1.ExecQuery("SELECT * FROM tblUsers") For i = 0 To cursor1.RowCount - 1 cursor1.Position = i LVDb.AddSingleLine(cursor1.GetString("ID")& "|" &cursor1.GetString("Username")& " | " & cursor1.GetString("Password")) LVDb.SingleLineLayout.ItemHeight = 40 LVDb.SingleLineLayout.Label.TextSize = 20 LVDb.SingleLineLayout.Label.TextColor = Colors.Black LVDb.SingleLineLayout.Label.Color = Colors.White Next End Sub Sub cmdAdd_Click If txtUsername.Text = "" OR txtPassword.Text = "" Then Msgbox("You have to enter all fields","Missed data field") Else 'Grab the last ID number which is the highest number cursor1 = SQL1.ExecQuery("SELECT ID FROM tblUsers") If cursor1.RowCount > 0 Then For i = 0 To cursor1.RowCount - 1 cursor1.Position = i Dim NewID As Int NewID = cursor1.GetInt("ID") Next End If NewID = NewID +1 ' add 1 to the ID number to make a new ID field SQL1.ExecNonQuery("INSERT INTO tblUsers VALUES('" & NewID & "','" & txtUsername.Text & "','" & txtPassword.Text & "')") DBload txtUsername.Text = "" txtPassword.Text = "" txtUsername.RequestFocus End If End Sub Sub cmdDelete_Click SQL1.ExecNonQuery("DELETE FROM tblUsers where ID = '" &ID & "' ") DBload txtUsername.Text = "" txtPassword.Text ="" End Sub Sub LVDb_ItemClick (Position As Int, Value As Object)' click on the entry in the list Dim idvalue As String Dim countIt As Int idvalue = Value countIt = idvalue.IndexOf("|") 'find location of sperator idvalue = idvalue.SubString2(0,countIt) 'find first part of label text ID = idvalue cursor1 = SQL1.ExecQuery("SELECT * FROM tblUsers where ID = '" & ID & "' ") For i = 0 To cursor1.RowCount - 1 cursor1.Position = i txtUsername.text=cursor1.getString("Username") txtPassword.text=cursor1.getString("Password") Next End Sub Sub cmdEdit_Click If txtUsername.Text = "" OR txtPassword.Text = "" Then Msgbox("Select item to edit","Missed data item") Else SQL1.ExecNonQuery("UPDATE tblUsers set Username ='"& txtUsername.text &"',Password ='"& txtPassword.text &"' WHERE ID = " & ID) DBload End If End Sub Sub cmdExit_Click Activity.finish End Sub خدمتتون لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ شما لیست ویویی که داری singleLine هست و مثدار برگشتی نداره Sinle Line 2 بذار یه مقدار برگشتی میگیره که اون متنی که میخوای ارسال بشه رو قرار بده توی اون هم از طرف دیگه، شما نه کدهایی که من دادم رو توی این سورس گذاشتی نه تصویر ارورت رو هموطن... لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ شما لیست ویویی که داری singleLine هست و مثدار برگشتی نداره Sinle Line 2 بذار یه مقدار برگشتی میگیره که اون متنی که میخوای ارسال بشه رو قرار بده توی اون هم از طرف دیگه، شما نه کدهایی که من دادم رو توی این سورس گذاشتی نه تصویر ارورت رو هموطن... http://s3.picofile.com/file/8229299976/SQLiteDemo.zip.html قربان کدی که شما دادین برداشتم این هم سورس اصلیش واقعا ممنون میشم تغییرات لازم را برام ایجاد کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ زحمتش می کشید ؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ دوستم نیاز نیست اسپم بدید اگر تا 12 ساعت تاپیکتون پاسخ نگرفت، میتونید به روزش کنید... قبل از این زمان، اخطار میگیرید... خوب گوشی پیشم نیست منتاسفانه این رو شما یه تست بزن... کتابخونه phone هم حتما تیکش رو بزن.. http://s6.picofile.com/file/8229312118/SQLiteDemo.rar.html لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ دوستم نیاز نیست اسپم بدید اگر تا 12 ساعت تاپیکتون پاسخ نگرفت، میتونید به روزش کنید... قبل از این زمان، اخطار میگیرید... خوب گوشی پیشم نیست منتاسفانه این رو شما یه تست بزن... کتابخونه phone هم حتما تیکش رو بزن.. http://s6.picofile.com/file/8229312118/SQLiteDemo.rar.html وقتی رو باتوم ارسال کلیک میکنم هیچ واکنشی نشون نمیده لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ من یه باتن دیگه اضافه کردم به لایه ات حالا شما یه کدو از دکمه هات که کار میکنن رو ، کدهای این دکمه رو کپی کن توش با دکمه ای که کار میکنه تست کن الان مشکل برنامه نویسی نداره اگرم باشه مشکل منطقیه که باید تست کنی و مشکلات رو ببینی و برطرف کنیم.. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ من یه باتن دیگه اضافه کردم به لایه ات حالا شما یه کدو از دکمه هات که کار میکنن رو ، کدهای این دکمه رو کپی کن توش با دکمه ای که کار میکنه تست کن الان مشکل برنامه نویسی نداره اگرم باشه مشکل منطقیه که باید تست کنی و مشکلات رو ببینی و برطرف کنیم.. داداش شما بالا کد l.Initialize("") sendbtn.Initialize("send") به من دادین ولی تو سورسی که برام فرستادین نبود لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 1 دی، ۱۳۹۴ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ l.Initialize("")sendbtn.Initialize("send") عزیزم من اینارو نوشته بودم برای وقتی که شما کلا هیچی ندارید دکمه و لیست ویو رو اینیاشیالایز میکنه شما وفتی از توی دیزاینتر تعریف میکنید، اینیشیالایز لازم نداره اگه با بعضی مفاهیم اشنا نیستید، بخش اموزش های مبتدی رو حتما دنبال کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
parham01 82 ارسال شده در 1 دی، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۴ l.Initialize("") sendbtn.Initialize("send") عزیزم من اینارو نوشته بودم برای وقتی که شما کلا هیچی ندارید دکمه و لیست ویو رو اینیاشیالایز میکنه شما وفتی از توی دیزاینتر تعریف میکنید، اینیشیالایز لازم نداره اگه با بعضی مفاهیم اشنا نیستید، بخش اموزش های مبتدی رو حتما دنبال کنید ممنون از این که وقت گذاشتید خدمتتون عرض کردم آماتور هستم . . . کدی هم که فرمودین قرار دادم تو باتومی که کار میکنه ولی عکس العمل خاصی نداشت . . . لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
parham01 82
سلام و درود
دوستان من یک لیست ویو دارم با اسم LVDb
میخواستم محتویات این لیست ویو رو که از دیتا بیس نمایش داده میشه رو عینا sms کنم به یه شماره
اگه کمکم کنید واقعا ممنونتون میشم
لینک ارسال
به اشتراک گذاری در سایت های دیگر
21 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.