انتخاب چند عكس با هم با drag & drop و ذخيره آدرس آنها در ديتابيس اكسس

[runttx]

با سلام ! :لبخندساده:
من ميخوام در vb وقتي روي يك كليد كليك كرديم يك پنجره نتخاب باز بشه و بعد بتوانيم تعدادي دلخواه عكس را با عمل drag & drop انتخاب كرده و بعد با زدن كليدي ، آدرس اين عكس هاي انتخابي در ديتابيس اكسس ذخيره شود. البته من اين كار را با كنترل CommonDialog انجام دادم ولي مشكل اينجاست كه اين كنترل فقط ميتوان يك عكس را انتخاب و آدرس آن در ديتابيس ذخيره كرد و در هنگام لزوم ان عكس را فراخواني و در image box يا هر چيز ديگري نمايش داد. كد زير براي كنترل بالا نوشته ام :


On Error GoTo mburi
Dim Filename As String
CD1.Filter = "Files Images (*.jpg; *.jpeg; *gif)|*.jpg*;*.jpeg*;*.gif*"
CD1.ShowOpen
Filename = CD1.Filename
mburi:
Text2.Text = Filename

با استفاده از كد بالا همانطور كه گفتم يك عكس را مي توان انتخاب كرد.
من مي خواهم با هر كنترلي كه باشد فرقي نمي كند بتوان در هنگام انتخاب ، چند عكس را انتخاب كند و ذخيره كند. از دوستاني كه جواب بدهند صميمانه تشكر مي كنم.
از لطف دوستان ممنون !:قلب:

دوستاني اگر نمونه كدي دارند كه اين كار را به درستي انجام مي دهد ممنون مي شود آنرا برايم ميل كنند :

NASSERIYA14@GMAIL.COM