Printable View
سلام دوستان ميخاستم بدونم چه طور ميشه مسير يك فايلو با درگ كردن روي فرم پيدا كرد
مثلا روي فرم ما يه تكست داريم به نامه text1.txt حالا يه فايل از اين مسير روي فرم درگ ميكنيم d:\b.jpg
حالا چه كار كنيم روي اون تكست مسير اون عكس رو بنويسه يعني روي اون تكست بنويسه d:\b.jpg
اميد وارم منظورم رسونده باشم
ممنونتون ميشم كمكم كنيد:11:
سلام .
دوست من برای این کار فقط کافیه خاصیت OLEDropMode فرم رو به Manual تعغییر بدی . بعد یه تکست باکس روی فرم قرار بدی و خاصیت MultiLine اون رو True قرار بدی . و کد زیر رو به فرمت اظافه کنی :10:
کد:Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
For i = 1 To Data.Files.Count
Text1.Text = Text1.Text & vbCrLf & Data.Files.Item(i)
DoEvents
Next
End Sub
اگه سوالی هست در خدمتم . :11:
اقا واقعا ممنون نميدونمم چه طوري تشكر كنم
يه چيز جالب هم اينجاست كه من فقط يه دونه فايل در نظر داشتم حالا با اين كدي كه شما گفتين هر چند تا فايل رو كه بخوام ميتونم يه جا درگ كنم و مسير همشنو بنويسه با تشكر فروان
برات دعا ميكنم
دوست من کمک کردن وظیفه همه ماست :10:
برای این کار بهتره از یک ListBox استفاده بشه به جای TextBox . ولی چون شما گفتی TextBox من TextBox گزاشتم . حالا به جای TextBox یه ListBox روی فرمت بزار و کد رو به این صورت تعغییر بده .نقل قول:
يه چيز جالب هم اينجاست كه من فقط يه دونه فايل در نظر داشتم حالا با اين كدي كه شما گفتين هر چند تا فايل رو كه بخوام ميتونم يه جا درگ كنم و مسير همشنو بنويسه
:19:کد:Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
For i = 1 To Data.Files.Count
List1.AddItem Data.Files.Item(i)
DoEvents
Next
End Sub
سلام
بله در اصل براي همين كار ميخواستم ولي فكر كردم اول روي تكست باشه تا ساده تر باشه بعد خودم ببرم رو ليست و ي ليست از تكست هم ساده تر بود
حالا يه سوال ديگه
من قبلا از دستور شل استفاده ميكردم كه داس رو انجام ميداد ولي ديروز هر چي زور زدم نشد كه نشد
مثلا من ميخام يه فايل رو از طريق داس پاك كنم
و حتما هم مهمه كه از طريقه داس باشه ولي نميشه كه نميشه
براي مثال اين طوي نشد كه نشد
ممنون ميشم بگين كجاي كارم مشكل دارهکد:shell ("del d:\a.txt")
سلام.
شل فایل اجرا میکنه. del فایل نیست. یه دستور داخلی command prompt است. مثل shell که دستور داخلی vb هست.
شما برای پاک کردن فایل یا باید از دستور kill استفاده کنید یا api یا اگه میخواید با دستورات داخلی command prompt کار کنید باید ابتدا یه بچ فایل بسازید و اونو شل کنید.
سلام شايد شما دقيقا متوجه نشدين منظورمو
ببينيد اين دستور رو روي ويژال بيسيك 6 اجرا كنيد
خواهيد ديد كه دستور داس هستش هم از طريق داس اجرا ميشه و هم عين اونو كپي كني تو شل همون كارو ميكنه و يه درايو مجازي درست ميكنهکد:shell ("subst q: c:\")
سلام.
عرض کردم del دستور داخلی command prompt نیست.
فایل subst در سیستم 32 موجوده و هنگام شل کردن شما اجرا میشه. ولی فایلی به نام del در سیستم32 موجود نیست که اجرا بشه.
در واقع شما به اشتباه فکر میکنید هر دستوری که در command prompt تایپ و اجرا بشه باید از طریق شل ویبی هم اجرا بشه که این طور نیست. یک سری از دستورات مثل subst یا net یا reg و ... فایل های موجود در سیستم32 ویندوز هستن که از طریق command prompt هم قابل فراخوانی و اجرا هستن. این دستورات و در واقع فایل ها از طریق شل ویبی هم قابل اجرا هستن. ولی یک سری از دستورات مختص خود command prompt هست. مثل del یا dir یا md و ... . این دستورات قابل اجرا درون ویبی نیستن. چون دستور داخلی command prompt هستند نه فایل اجرایی.
همون طور که عرض کردم برای استفاده از این دستورات باید از بچ فایل استفاده کنید. یعنی دستورات خود را داخل فایل با پسوند bat بنویسید و با شل اون فایل bat رو اجرا کنید.
اقا خيلي خيلي ممنوننقل قول:
پس اين همه مدت من نگو اشتبا ه ميكردم
حالا يه روشي به ذهنم رسيد
اول يه فايل درست كنيم بعد هرچي ميخايم از دستور داس توش بنويسيم بعد با سوند bat ذخيره و اجرا كنيم و بعد با دستور kil پاكش كنيم
نظرتون چيه؟
سلام.نقل قول:
نوشته شده توسط navid_ice_heart_128 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
قربون آدم چیز فهم.
این دقیقاً همون کاریه که باید بکنی.
موفق باشد.