دادن مسیر جستجو از یک فرم به فرم دیگر

[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

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

[padeshah]

برنامم شامل دو فرم (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 تو یه کامند بنویس @

کد php:

Private Sub Command1_Click()
Dim i As Integer
Dim addressfile As String
For i = 0 To Form1.File1.ListCount - 1
addressfile = Form1.File1.List(i)
MsgBox addressfile
Next
End Sub 


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

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

[sepideh032]

mer30 . be dard bekhore

[MFARIDIRAD]

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