Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_Click() Text1 = File1.List(File1.ListIndex) If Mid(Dir1.Path, Len(Dir1.Path), 1) <> "" Then Text2.Text = Dir1.Path + "" + Text1.Text Else Text2.Text = Dir1.Path + Text1.Text End If End Sub Private Sub Dri

Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.

Baslık	Kategori	Hit
Text box nesnesinde default popop menüler açılmasın	VISUAL BASIC	167
Web sayfalarına gönderdirme	VISUAL BASIC	132
DataEnvironment ile veritabanındaki kayıt sayısını bulmak	VISUAL BASIC	195
Yazı dizisi - 3 - MDB `leriniz bozulmasın	VISUAL BASIC	126
API ÜÇGEN FORM ŞEKLİ	VISUAL BASIC	214