Advertising
advertising
related pastes to tag 'vb'
- 1933985 - olecom: phpbb post vb msword
-
- ==
- == File of "Microsoft Word Objects" aka ThisDocument: Форум_GallopeRU_v001.cls ==
- ==
- VERSION 1.0 CLASS
- BEGIN
- MultiUse = -1 'True
- END
- Attribute VB_Name = "Форум_GallopeRU_v001"
- 1933117 - olecom: phpbb post word vb ms
-
- Public WithEvents прога As Word.Application
- Sub прога_WindowSelectionChange(ByVal Sel As Selection)
- Dim i, j, s, d, возврат, имя
- If Len(Sel.Range.Document.Content.Text) = Len(Sel.Text) Then
- параментры_поста.Show
- If параментры_поста.Tag <> "АГА" Then
- Exit Sub
- 1630004 - VBA: Get Username from PC: user name vba vb
-
- Option Compare Database
- Option Explicit
- Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
- Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
- Public Function GetCurrentUserName() As String
- On Error GoTo Err_GetCurrentUserName
- 1629994 - Access: Get PC Name : pc name vba vb
-
- Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
- Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
- Public Function GetComputerName() As String
- On Error GoTo Err_GetComputerName
- Dim Username As String * 255
- Call GetComputerNameA(Username, 255)
- GetComputerName = Left$(Username, InStr(Username, Chr$(0)) - 1)
- 1629963 - Access: Get Username: access vba username vb
-
- Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
- Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
- Public Function GetCurrentUserName() As String
- On Error GoTo Err_GetCurrentUserName
- Dim lpBuff As String * 25
- Dim ret As Long, Username As String