folder Tahribat.com Forumları
linefolder C#, Asp.Net, .Net Core
linefolder Bu Vb.Net Kodunu Satır Satır Yorumlayabilecek Olan Var Mı?(12 Satır)



Bu Vb.Net Kodunu Satır Satır Yorumlayabilecek Olan Var Mı?(12 Satır)

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

     Dim aDoc As Document

            Dim docfound As Boolean

            Dim doclocation As String

            docfound = False

            doclocation = "c:\myletter.doc"

            For Each aDoc In document

                If InStr(1, aDoc.name, "myletter.doc", 1) Then

                    docfound = True

                    aDoc.Save()

                    Exit For

                End If

            Next aDoc

     

    evet arkadaşlar usta vb.netcilerden satır satır yorum rica ediyorum


    Ayet var, ayet
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    All hail to Tux
    sandman
    sandman's avatar
    Kayıt Tarihi: 01/Eylül/2005
    Erkek

     Dim aDoc As Document

    //Doküman tipinde bir degişken tanımlamışsın

            Dim docfound As Boolean

    //Boolean tipinde bir degişken tanımlamışsın.Boolean özel bir veri tipidir ve sadece dogru yada yanlış olur

            Dim doclocation As String

    //String tipinde bir degişken tanımlamışsın

            docfound = False

    //docfound'un tipini yanlış(false) olarak atamışsın

            doclocation = "c:\myletter.doc"

    //doclocation'ı belirtmişsin

            For Each aDoc In document

    //aDoc içersinde document oldukca döngü çalışıcak

                If InStr(1, aDoc.name, "myletter.doc", 1) Then

    //eger myletter.doc isimli bir dosya bulursa

                    docfound = True

     

                    aDoc.Save()

     

                    Exit For

    //döngüden çıkıyor

                End If

    //if'den çıkıyor

            Next aDoc

    //eger for döngüsünden çıkmamışsa bir sonraki nesneye devam ediyor


    Mühendis kahveyi projeye dönüştüren bir insan evladıdır.
Toplam Hit: 885 Toplam Mesaj: 2