AccessTr.neT

Merhaba arkadaşlar. Arzuhalmatik isminde bir uygulama yazıyorum. Şimdi kodlamayı incelerken sanki iki satır gereksiz bir yer buldum. Gereksiz kodları temizleyip sade bir altyapı istiyorum. Size danışmak istiyorum yardımcı olur musunuz? 

Aşağıdaki kod tüm uygulamaya ait bir kod.

Option Explicit On

Public Class Arzuhalmatik

    Const SW_SHOWNORMAL = 1





    Private Declare Function ShellExecute Lib "shell32.dll" _

    Alias "ShellExecuteA" _

    (ByVal hwnd As Long, _

    ByVal lpOperation As String, _

    ByVal lpFile As String, _

    ByVal lpParameters As String, _

    ByVal lpDirectory As String, _

    ByVal nShowCmd As Long) As Long



    Private Sub GenelHacizTalebi1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim PrintIt As Long

        'PrintIt = ShellExecute(Me.hwnd, "print", "C:\My Documents\MyDoc.Doc", "", "", -1) - Şeklinde kod uygulaması ile D dizininde bulunan MyDoc.pdf isimli dosyayı dışarıdan yazdır komutu ile besliyoruz.

        PrintIt = ShellExecute(Me.Handle, "print", "D:\MyDoc.pdf", "", "", SW_SHOWNORMAL)

    End Sub



    Private Sub Arzuhalmatik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub

End Class

Ancak şu iki satırın gereksiz olduğunu düşünüyorum. Bu satırı silersem uygulamanın çalışmasında bir zararı olur mu ?

    Private Sub Arzuhalmatik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub

Bilmediğimi çözmeye yardımcı olan tüm arkadaşlara teşekkür ederim. Allah sizden razı olsun.

 Private Sub Arzuhalmatik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
XXXXXXXXXXXXXX
XXXXXXXXXX
XXXXXXXX
   End Sub

Bu kod  "Arzuhalmatik" isimli formun "Yüklendiğinde" ne yapmak istersen onu yazmak için,"xxxxxx" olarak araya yazdıgım yere misal sunu yazarsan 

   MsgBox("Merhaba ")
form açıldıgı zaman mesaj verir,sonuç olarak Private Sub ile End Sub arasında birşey yazılı olmadıgı için bir anlamı yok,sil gitsin

Sayın Uğur, ByVal = ByValue, ByRef = ByReference, Byval bir fonksiyonda değerin ta kendisidir. Byref ise bellekteki adresi yani değişken adıdır. Eğer load olayında bir değişken kullanmayacaksanız bir fonksiyonu yok. Kolay gelsin.

Elle silmeniz halinde hata alabilirsiniz. Formun Load olayına gidin Properties penceresinden. Load olayında sağ tıklayıp reset yazana tıklayın. Sonra tekrar kod tarafına bakın kod duruyorsa elle silebilirsiniz.

(18/06/2017, 16:34)C*e*l*o*y*c*e yazdı: [ -> ]  Private Sub Arzuhalmatik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
XXXXXXXXXXXXXX
XXXXXXXXXX
XXXXXXXX
   End Sub

Bu kod  "Arzuhalmatik" isimli formun "Yüklendiğinde" ne yapmak istersen onu yazmak için,"xxxxxx" olarak araya yazdıgım yere misal sunu yazarsan 

   MsgBox("Merhaba ")
form açıldıgı zaman mesaj verir,sonuç olarak Private Sub ile End Sub arasında birşey yazılı olmadıgı için bir anlamı yok,sil gitsin

İlgin için teşekkür ederim. : dediğin gibi yaptım.

(18/06/2017, 20:30)biberli33 yazdı: [ -> ]Sayın Uğur, ByVal = ByValue, ByRef = ByReference, Byval bir fonksiyonda değerin ta kendisidir. Byref ise bellekteki adresi yani değişken adıdır. Eğer load olayında bir değişken kullanmayacaksanız bir fonksiyonu yok. Kolay gelsin.

Evet ilginiz için çok teşekkür ederim.