Все то, что вы найдёте здесь,
Однажды встанет Вам удачей!
Однажды встанет Вам удачей!
Помощь проекту
Visual Basic
- Как в Visual Basic сравнить строки?
- Как в Visual Basic таскать форму за любое место?
- Как в Visual Basic убрать программу с панели задач?
- Как в Visual Basic удалить файл в Корзину?
- Как в Visual Basic узнать версию программы?
- Как в Visual Basic узнать заголовок окна?
- Как в Visual Basic узнать имя компьютера?
- Как в Visual Basic узнать имя пользователя?
- Как в Visual Basic узнать какие шрифты установлены в системе?
- Как в Visual Basic узнать кодовую страницу?
Как в Visual Basic сравнить строки?
If StrComp(a$, b$, vbTextCompare) = 0 Then
'строки равны
End If
Как в Visual Basic таскать форму за любое место?
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
Как в Visual Basic убрать программу с панели задач?
Необходимо установить значение False свойству формы ShowInTaskbar
Как в Visual Basic удалить файл в Корзину?
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As Byte) As Long
' Удаляем файлы в корзину
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Private Sub Form_Load()
Dim SHFileOp As SHFILEOPSTRUCT
CDBox.DialogTitle = "Сейчас будем удалять" ' заголовок для диалогового окна
CDBox.Filter = "All Files (*.*)|*.*"
CDBox.ShowOpen ' показываем диалог 'Open File'
With SHFileOp
.wFunc = FO_DELETE ' удаление файла
.pFrom = CDBox.filename ' выбор файла
.fFlags = FOF_ALLOWUNDO ' удаление в Корзину
End With
SHFileOperation SHFileOp 'начинаем операцию удаления
MsgBox "Файл '" + CDBox.filename + "' был перемещен в Корзину !", vbInformation + vbOKOnly, App.Title
End Sub
Как в Visual Basic узнать версию программы?
Show
With App
Print .Major & "." & .Minor & "." & .Revision
End With
В данном примере свойства Maior, Minor, Revision указываю доли текщей версии имеющие приоритет по отношению друг к другу в соответствии с порядком их следования.
Вообще можно обойтись последним, т.к. компилятор в основном меняет лишь его.
Как в Visual Basic узнать заголовок окна?
Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Dim titlebar As String ' текст заголовка
Dim slength As Long ' длина возвращаемой строки
titlebar = String$(256, " ") ' создаем место для текста и нулевого символа
slength = GetWindowText(Form1.hWnd, titlebar, 255) ' получаем текст заголовка
titlebar = Left$(titlebar, InStr(titlebar, vbNullChar) - 1) ' извлекаем информацию из буфера
Print "Заголовок окна: "; titlebar
Как в Visual Basic узнать имя компьютера?
Поместите этот код в модуль
Public Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetMachineName() As String
Dim sBuffer As String * 255
If GetComputerNameA(sBuffer, 255&) <> 0 Then
GetMachineName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
Else
GetMachineName = "(Not Known)"
End If
End Function
Как в Visual Basic узнать имя пользователя?
Поместите этот код в модуль
Public Declare Function WNetGetUserA Lib "mpr" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Public Function GetUser() As String
Dim sUserNameBuff As String * 255
sUserNameBuff = Space(255)
WNetGetUserA vbNullString, sUserNameBuff, 255&
GetUser = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) - 1)
End Function
Как в Visual Basic узнать какие шрифты установлены в системе?
Show
For I=0 to Screen.FontCount-1
Print Screen.Fonts(I)
Next
Здесь свойсво FontCount содержит общее количество количество установленных шрифтов, так Как в Visual Basic нумерация начинается с нуля то последний по порядку шрифт будет иметь индекс меньше на еденицу. Для получения имени шрифта используется свойсво Fonts где I номер по порядку.
Как в Visual Basic узнать кодовую страницу?
Declare Function GetACP Lib "kernel32" () As Long
