Помощь проекту
|
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
|
|