Formumuza Bir tane modül ekleyelim
forma da bir text ve bir commadbutton ekleyelim.
--------------------------------------------------
bunlar modüle
--------------------------------------------------------------------------
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetUser() As String
Dim User As String, retVal As Long
User = String(100, Chr$(0))
GetUserName User, 100
User = Left(User, InStr(User, Chr(0)) - 1)
GetUser = User
End Function
--------------------------------------------------------------------------------
bunlar Form a
----------------------------------------------------------------------------
Private Sub Command1_Click()
Text1 = GetUser
End Sub
TEŞŞEKÜRLERİNİZİ BEKLERİM!
-------------------------------------------------------------------------------------
HİÇ KİMSE DUYMAK İSTEMEYENLER KADAR SAĞIR DEĞİLDİR!
forma da bir text ve bir commadbutton ekleyelim.
--------------------------------------------------
bunlar modüle
--------------------------------------------------------------------------
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetUser() As String
Dim User As String, retVal As Long
User = String(100, Chr$(0))
GetUserName User, 100
User = Left(User, InStr(User, Chr(0)) - 1)
GetUser = User
End Function
--------------------------------------------------------------------------------
bunlar Form a
----------------------------------------------------------------------------
Private Sub Command1_Click()
Text1 = GetUser
End Sub
TEŞŞEKÜRLERİNİZİ BEKLERİM!
-------------------------------------------------------------------------------------
HİÇ KİMSE DUYMAK İSTEMEYENLER KADAR SAĞIR DEĞİLDİR!