یه سوال کوچولو

[rezalo]

با عرض سلام خدمت برو بچ برنامه نویس. من یه سوال کوچولو دارم اگه ممکنه راهنماییم کنید.

سوالم اینه که تو یه فرم دو تا list box داریم و دو تا دکمه OK که تو لیست اول 5 تا اسم داریم میخوام وقتی رو دکمه اول که کلیک کنم اون آیتمی که کنترل روشه به لیست دوم منتقل بشه و از لیست 1 به قول معروف انتقال پیدا کنه به لیست2 و با کلیک رو دکمه 2 همه اون 5 تا اسم منتقل بشه به لیست دوم همین. مرسی از لطفتون

 

[rezalo]

یعنی هیچکس بلد نیست جواب منو بده؟

 

[cracki]

فر کنم اینو می خواستی
یه پروژه مثال برات نوشتم آپلود کردم
موفق باشی:happy:

 

[rezalo]

آره قربونه مرامت همین بود دمت گرم.

 

[rezalo]

سلام بچه ها من یه سوال دیگه دارم. تو یه فرم یه یه لیست باکس داریم که چند تا آیتم داریم و یه میبل چه کدی باید رو دکمه بنویسیم که لیبل ما برابر تعداد کاراکترای لیستمون ستاره تایپ بشه داخلش همین جا کدشم بنویسید من متوجه میشم مرسی.

 

[cracki]

منظورت از تعداد کاراکتر های لیست باکس دقیقا چیه؟

 

[rezalo]

حالا فرض کنیم که مثلا نمیدونیم چند تاست اصلا همچین چیزی میشه؟

 

[cracki]

چه چیزی بابا؟ می خواید تعداد آیتم های توی لیست رو بدونید؟
list1.ListCount
این دستور تعداد آیتم های توی لیست رو می گه
آیتم اولی از صفر هست فقط . یعنی ایندکس اون از صفره تا تعداد منهای یک خب دیگه می دونید

دیگه ساختن استرینگ با تعداد ستاره ها آسونه دیگه
یه for مثلا که به تعداد دور بزنه و به یه متغییر متنی یه ستاره اضافه کنه
نمی دونم دستور مستقیم مثل Space داره یا نه ولی خب یه حلقه سادست...

موفق باشید

 

[Para2x]

سوال اولت : فکر کنم این به دردت بخوره

For i = 0 to list1.ListCount - 1
      If List1.Selected(i) = True Then
          Msgbox "Selected Item: "    & List1.List(i)
      End If
  Next

 

[miladatashin2]

rezalo سئوالت واضح نیست اگه درست منظورت رو فهمیده باشم باید این کار رو بکونی

Private Sub Command1_Click()
Label1.Caption = String(Len(List1), "*")
End Sub​