ايران ويج

برنامم شامل دو فرم (1,2)میباشدودر فرم یک می خوام آدرس فایلی را بدهم (که داخلش تعدادی فایل اتوکد با پسوند DWG است ) و در فرم 2 انها را باز کرده و عملیاتی (عوض کردن TEXT ها) انجام شود-
تمام برنامه نوشتم و ولی نمی تونم مسیر فایل رو بدم که باز کنه -
لطفا کمکم کنید-
فرم یک
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

فرم 2
Private Sub Command2_Click()

'**********************open autocad***********************
Call LinkToAutocad
Acddoc.Open "?????".dwg

چیکار باید بکنم

(۰۵-آبان-۱۳۸۹, ۱۴:۱۲:۱۹)MFARIDIRAD نوشته است: [ -> ]برنامم شامل دو فرم (1,2)میباشدودر فرم یک می خوام آدرس فایلی را بدهم (که داخلش تعدادی فایل اتوکد با پسوند DWG است ) و در فرم 2 انها را باز کرده و عملیاتی (عوض کردن TEXT ها) انجام شود-
تمام برنامه نوشتم و ولی نمی تونم مسیر فایل رو بدم که باز کنه -
لطفا کمکم کنید-
فرم یک
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

فرم 2
Private Sub Command2_Click()

'**********************open autocad***********************
Call LinkToAutocad
Acddoc.Open "?????".dwg

چیکار باید بکنم

من دقیقا منظورت رو نگرفتم چون خودت با ابهام نوشتی .. وقتی تو نوشتی
file1.path=dir1.path
حالا اگر تو اون پوشه که فایل های اتو کد رو ریختی چند تا باشه ... واسه گرفتن همه آدرس اون فایل ها این کد رو تو فرم 2 تو یه کامند بنویس @


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

حالا باز کردنش دیگه با خودته میخوای توی حلقه بنویس ! یا جدا ...

mer30 . be dard bekhore

دستت درد نکنه .خیلی به دردم خورد