هل بالإمكان عمل عرض تقديمي ديناميكي في الفيجوال بيسك

أخي الكريم

هذا سهل

1- اضف أداة CommonDialog على الفورم

2- أضف زر أمر Command

3- أضف مربع نص TextBox

وضع هذا الكود

Private Sub Command1_Click()
    CommonDialog1.Filter = "PowerPoint |*.ppt|PowerPoint Show |*.pps| "
    CommonDialog1.DialogTitle = "Open"
    CommonDialog1.ShowOpen
    Text1.Text = CommonDialog1.FileName
End Sub

ابو حمد

شكراً جزيلاً للمساعدة ، سأجربه .. إن شاء الله يضبط..

تحياتي..