Bilgisayar Adının Public Tanımlanması

[bluefalcon]

Arkadaşlar merhaba,

Hazırladığım programda yetki ataması yapabilmek adına aşağıdaki kod ile bilgisayar adını alabiliyorum;

CreateObject("WScript.Network").computerName

bu kodu her seferinde çalıştırmamak adına Public olarak nasıl tanımlayabilirim?

 

[Haluk]

Aşağıdaki gibi dosyanın açılışında bilgisayar ismini bir Public değişkene atayabilir, daha sonra da bunu başka prosedürlerde kullanabilirsiniz.

Değişken, Public olarak tanımlandığı için diğer modüllerdeki prosedürler tarafından çağırıldığı zaman da kullanılabilir.

Public strCompName As String
'
Sub Auto_Open()
    strCompName = CreateObject("WScript.Network").computerName
End Sub
'
Sub Test()
    MsgBox strCompName
End Sub

 

[bluefalcon]

Aşağıdaki gibi dosyanın açılışında bilgisayar ismini bir Public değişkene atayabilir, daha sonra da bunu başka prosedürlerde kullanabilirsiniz.

Değişken, Public olarak tanımlandığı için diğer modüllerdeki prosedürler tarafından çağırıldığı zaman da kullanılabilir.

Public strCompName As String
'
Sub Auto_Open()
    strCompName = CreateObject("WScript.Network").computerName
End Sub
'
Sub Test()
    MsgBox strCompName
End Sub

Haluk Bey teşekkürler, peki bu kodları ayrı bir modülde aşağıdaki şekilde yazarsam tüm program içerisinde strCompName ifadesini çağırdığımda aynı veriyi alabilir miyim diye denedim ancak hata verdi. Sizce nasıl bir düzenleme yapabilirim?


Public strCompName as String= CreateObject("WScript.Network").computerName

 

[Haluk]

Sorunuzun cevabı yukarıdaki mesajımda var.

Yani, o mesajdaki "Test" isimli prosederün başka bir modülde olduğunu düşünün.

.