saolun arkadaşlar şimdi deniyicem birde şunu haletmem lazım şimdi http://www.fileserve.com/file/ZfAk8V5/Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. av bu linkdeki şu blümü herhangi bir textbox a yazdırmak istiyorum yani butona basındıgında verdiğim linkdeki dosya ismini text3 e yazıcak Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. avi b bunun gibi mesela

text2 de bu yazıyr : http://www.fileserve.com/file/ZfAk8V5/Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. avi text 3 e sadece şu kısmını yazdırmam gerek Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. avi bunu nasıl yapabilirim diğerini çzdüm yukarıda paylaşılan kodlarla

Modül: Kod: Option Explicit Public Declare Function getprivateprofilestring Lib "kernel32" Alias "GetPrivateProfileStringA" As Long Public Declare Function writeprivateprofilestring Lib "kernel32" Alias "WritePrivateProfileStringA" As Long Function ReadINI As String Dim sRet As String sRet = String(255, Chr(0)) ReadINI = Left(sRet, getprivateprofilestring(Section, ByVal KeyName$, "", sRet, Len , FileName)) End Function Function WriteINI As Integer Dim r r = writeprivateprofilestring End Function Okutmak : Kod: Text1. Text = ReadINI Kaydetmek : Kod: Call WriteINI("FRMTR", "Nero", Text1. Text, App. Path & "\settings. ini") . ini dosyasının içinde çıkacak şekil budur (Text1. Text te yazan yazı Nero nun karşısına geçer.) : Kod: Nero = TheNeroStyle Kaynak: http://www.frmtr.com/visual-basic/3181428-visual-basic-6-0-ini-dosyasi-okutmak-yazdirmak.html

arkadaşlar bilen yokmu yaw config. ini gibi text de yazılcak olana ordan karar vericek

Normal text dosyasına yazdır sayfa load olurken ordan geri çek http://tdsoftware.wordpress.com/2010/11/30/visual-basic-6-ile-dosya-islemleri/ .

: text2 de bu yazıyr : http://www.fileserve.com/file/ZfAk8V5/Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. avi text 3 e sadece şu kısmını yazdırmam gerek Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. avi bunu nasıl yapabilirim diğerini çzdüm yukarıda paylaşılan kodlarla Private Sub Command1_Click MsgBox dosyaismi("http://www.fileserve.com/file/ZfAk8V5/Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. avi")End SubPrivate Function dosyaismi As StringOn Error Resume NextDim sps As IntegerFor sps = Len To 1 Step -1If Mid(metin, sps, 1) = "/" Thendosyaismi = Mid$(metin, sps + 1)Exit ForEnd IfNextEnd Function

: Explosive bunu yazdı: text2 de bu yazıyr : http://www.fileserve.com/file/ZfAk8V5/Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. avi text 3 e sadece şu kısmını yazdırmam gerek Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. avi bunu nasıl yapabilirim diğerini çzdüm yukarıda paylaşılan kodlarla Private Sub Command1_Click MsgBox dosyaismi("http://www.fileserve.com/file/ZfAk8V5/Tron. Efsanesi.2010. TR. BRRiP. XviD. arsviyap. avi")End SubPrivate Function dosyaismi As StringOn Error Resume NextDim sps As IntegerFor sps = Len To 1 Step -1If Mid(metin, sps, 1) = "/" Thendosyaismi = Mid$(metin, sps + 1)Exit ForEnd IfNextEnd Function saol hocam oldu wallaha :D saolasın

Hocalar şimdi form1 de 10 tane text box var. text1 i yazanları değiştirdiğimde bi buton olsun istiyorum ayarları kayıt etsin yani textbox = www.tahribat.com yazıyor diyelim açılışında ben programı açıp oraya farklı birşey yazdıgımda save butonuna basdıgımda o yazının kalıcı olarak değişmesini istiyorum