folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Visual Basic 6 Text Boxlardaki Yazıyı Save Yapma



Visual Basic 6 Text Boxlardaki Yazıyı Save Yapma

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Explosive
    Explosive's avatar
    Banlanmış Üye
    Kayıt Tarihi: 06/Temmuz/2010
    Erkek

    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

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Explosive
    Explosive's avatar
    Banlanmış Üye
    Kayıt Tarihi: 06/Temmuz/2010
    Erkek

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

    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    sokoban
    sokoban's avatar
    Kayıt Tarihi: 23/Ocak/2010
    Erkek

    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/

    .
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

     

    Modül:

    Kod:
    Option Explicit
Public Declare Function getprivateprofilestring Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpdefault As String, ByVal lpreturnedstring As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function writeprivateprofilestring Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function ReadINI(Section As String, KeyName As String, FileName As String) As String
Dim sRet As String
sRet = String(255, Chr(0))
ReadINI = Left(sRet, getprivateprofilestring(Section, ByVal KeyName$, "", sRet, Len(sRet), FileName))
End Function

Function WriteINI(sSection As String, sKeyName As String, sNewString As String, sFileName) As Integer
Dim r
r = writeprivateprofilestring(sSection, sKeyName, sNewString, sFileName)
End Function
    Okutmak (form load'a koyun.) :

    Kod:
    Text1.Text = ReadINI("FRMTR", "Nero", App.Path & "\settings.ini")
    Kaydetmek (form unload'a koyun.) :

    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:
    [FRMTR]
Nero = TheNeroStyle

    Kaynak: http://www.frmtr.com/visual-basic/3181428-visual-basic-6-0-ini-dosyasi-okutmak-yazdirmak.html

    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Explosive
    Explosive's avatar
    Banlanmış Üye
    Kayıt Tarihi: 06/Temmuz/2010
    Erkek

    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 bölü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

    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Explosive
    Explosive's avatar
    Banlanmış Üye
    Kayıt Tarihi: 06/Temmuz/2010
    Erkek

    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

     

     

    Reply With Quote Alıntı yap
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

    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 Sub

    Private Function dosyaismi(metin As String) As String
    On Error Resume Next
    Dim sps As Integer
    For sps = Len(metin) To 1 Step -1
    If Mid(metin, sps, 1) = "/" Then
    dosyaismi = Mid$(metin, sps + 1)
    Exit For
    End If
    Next
    End Function

    Reply With Quote Alıntı yap
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Explosive
    Explosive's avatar
    Banlanmış Üye
    Kayıt Tarihi: 06/Temmuz/2010
    Erkek

    DE5TROY3R bunu yazdı:
    -----------------------------

    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 Sub

    Private Function dosyaismi(metin As String) As String
    On Error Resume Next
    Dim sps As Integer
    For sps = Len(metin) To 1 Step -1
    If Mid(metin, sps, 1) = "/" Then
    dosyaismi = Mid$(metin, sps + 1)
    Exit For
    End If
    Next
    End Function


    -----------------------------

    saol hocam oldu wallaha :D saolasın

    Reply With Quote Alıntı yap
Toplam Hit: 4908 Toplam Mesaj: 8