کار با باfilelistbox

[hoooooo]

کمک من می خواهم بر نامه در ست کنم که کل محتویاتfilelistboxرا به لیست باگس بریزد:متفکر:
کمک:اشتباه:

[saeedvir]

سلام


Private Sub Command1_Click()

For i = 0 To File1.ListCount - 1
List1.AddItem File1.List(i)
Next i

End Sub

يا


Private Sub Command2_Click()

For i = 0 To File1.ListCount - 1
List1.AddItem File1.Path & File1.List(i)
Next i

End Sub

[hoooooo]

سلام


Private Sub Command1_Click()

For i = 0 To File1.ListCount - 1
List1.AddItem File1.List(i)
Next i

End Subيا


Private Sub Command2_Click()

For i = 0 To File1.ListCount - 1
List1.AddItem File1.Path & File1.List(i)
Next i

End Sub

خیلی ممنون یکم توضیح بده:لبخند:
خیلی دنبالش بودم:چشمک:

[hoooooo]

سلام


Private Sub Command1_Click()

For i = 0 To File1.ListCount - 1
List1.AddItem File1.List(i)
Next i

End Subيا


Private Sub Command2_Click()

For i = 0 To File1.ListCount - 1
List1.AddItem File1.Path & File1.List(i)
Next i

End Sub

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

[vbhamed]

سلام
واضح تر توضيح بدين
يعني چي
يعني وقتي روش كليك مي كنيم يا اينكه كلي پيكجر باكس همزمان داشته باشيم ؟

[hoooooo]

سلام
واضح تر توضيح بدين
يعني چي
يعني وقتي روش كليك مي كنيم يا اينكه كلي پيكجر باكس همزمان داشته باشيم ؟
ببین دوست عزیز من دارم نرم افزار نشان دادن تصویر می سازم در ضمن نمی خوام از اکتیو ایکسی که توی ویژال بیسیک نباشه استفاده کنم مثلا مثلا نمی خوام از وین سوکت اس ت فاده کنم پس یک فرم جدید درست کردم تا کار بر ها بتونن عکس های دلخوا هشون رو باز کنند
من خواستم که خود نرم افزار بقیه عکس ها رو وا کنه تا کار بر عصبی نشه پس توی آن لود فرم باز کردن عکس کد زیر رو نوشتم
Private Sub diba()

For i = 0 To File1.ListCount - 1
Form1.List1.AddItem File1.Path & File1.List(i)
Next i

End Sub
'---------------------------

Private Sub Form_Unload(Cancel As Integer)
Call diba
End Sub

افتاد یا نه:لبخند:
آهان راستی توی همون فرم نمایشگر عکس نمایش داده می شه و لیست باگس غیب هست و کار بر بهش دسرسی نداره
و از طریق دکمه باید عکس به جلو و عقب بره (عکس بعدی واشه)
در ضمن بازم میگم پیکچر باکس
تو ضیح از این کامل تر؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[fazelm]

پس چرا می خوای از filelistbox به لیست باکس بریزی ؟؟؟

[hoooooo]

پس چرا می خوای از filelistbox به لیست باکس بریزی ؟؟؟
آقا جان تو کار مارو راه بنداز با هر چی
کــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــمـــــــــــــــــ ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ــــــــــــــــک
:گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه:

[parselearn]

http://barnamenevis.org/forum/showthread.php?t=153090

[hoooooo]

http://barnamenevis.org/forum/showthread.php?t=153090
ببخشید اما بدردم نخورد کــــــمـــــک

[vbhamed]

سلام

دو تا دكمه بعدي و قبلي بزاريد و كدهاي زير رو بنويسيد

Private Sub diba()

Dim i%

Form1.List1.Clear
For i = 0 To File1.ListCount - 1

Form1.List1.AddItem Replace(File1.Path & "\" & File1.List(i), "\\", "\")

Next

End Sub

Private Sub Form_Load()

diba

End Sub

Private Sub cmdNext_Click()

If List1.ListIndex < List1.ListCount - 1 Then List1.ListIndex = List1.ListIndex + 1

End Sub

Private Sub cmdPrev_Click()

If List1.ListIndex > 0 Then List1.ListIndex = List1.ListIndex - 1

End Sub

Private Sub List1_Click()

On Error Resume Next

If List1.ListIndex > 0 Then

Picture1.Picture = LoadPicture(List1.Text)

Else

Picture1.Picture = LoadPicture()

End If

End Sub