Все то, что вы найдёте здесь,
Однажды встанет Вам удачей!
Однажды встанет Вам удачей!
Помощь проекту
Visual Basic
- Как в Visual Basic найти подстроку?
- Как в Visual Basic обеспечить числовой ввод?
- Как в Visual Basic обменять значения переменных?
- Как в Visual Basic обрабатывать ini-файлы?
- Как в Visual Basic обратиться к Рабочему столу?
- Как в Visual Basic ограничить длинну ввода в ComboBox?
- Как в Visual Basic описать необязательный параметр?
- Как в Visual Basic определить версию Windows?
- Как в Visual Basic определить доступно ли окно?
- Как в Visual Basic определить объем свободной памяти?
Как в Visual Basic найти подстроку?
If InStr(1, a$, "vb", vbTextCompare) Then ...
Как в Visual Basic обеспечить числовой ввод?
Function ValidNumber (iAscii As Integer, txtBox As TextBox, bSign As Boolean, bPoint As Boolean) As Integer
ValidNumber = iAscii
Select Case iAscii
Case 8
Case 43, 45
If (Not bSign) Or (txtBox.SelStart > 1) Then
ValidNumber = 0
End If
Case 46
If (Not bPoint) Or (InStr(txtBox.Text, ".")) Then
ValidNumber = 0
End If
Case 48 To 57
Case Else
ValiNumber = 0
End Select
End Function
Как в Visual Basic обменять значения переменных?
Sub Swap (V1 As Variant, V2 As Variant)
Dim Mk As Variant
Mk = V2
V2 = V1
V1 = Mk
End Sub
Вызов процедуры:
Swap x, y
Как в Visual Basic обрабатывать ini-файлы?
Модуль работы с файлами Ini
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Чтение данных из ini
Public Function ReadINIKey(Section As String, KeyName As String, FileName As String) As String
Dim RetVal As String
RetVal = String(255, Chr(0))
ReadINIKey = Left(RetVal, GetPrivateProfileString(Section, KeyName, "", RetVal, Len(RetVal), FileName))
End Function
Запись данных в ini
Public Function WriteInIKey(Section As String, KeyName As String, KeyValue As String, FileName As String)
WritePrivateProfileString Section, KeyName, KeyValue, FileName
End Function
Как в Visual Basic обратиться к Рабочему столу?
Public Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Public Declare Function GetDC Lib "user32.dll" (ByVal hWnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32.dll" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Dim deskhwnd As Long ' дескриптор
Dim deskhdc As Long ' контекст устройства
Dim retval As Long ' возвращаемое значение
deskhwnd = GetDesktopWindow() ' получаем дескриптор рабочего стола
deskhdc = GetDC(deskhwnd) ' получаем контекст устройства
' здесь вы размещаете свой код
retval = ReleaseDC(deskhwnd, deskhdc) ' освобождаем контекст устройства
Как в Visual Basic ограничить длинну ввода в ComboBox?
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Const MAXLENGTH = 10
If Len(Combo1.Text) >= MAXLENGTH And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End Sub
Как в Visual Basic описать необязательный параметр?
Function mfbCheckDBStatus(Optional vroTest As Variant) As Boolean
в данном примере оператор Optional является ключевым, имеен с его помощью описываются необязательные параметры
Как в Visual Basic определить версию Windows?
Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Dim os As OSVERSIONINFO ' информация о версии
Dim retval As Long 'возвращаемое значение
os.dwOSVersionInfoSize = Len(os) ' устанавливаем размер структуры
retval = GetVersionEx(os) ' читаем информацию о версии Windows
Print "Версия Windows:"; os.dwMajorVersion; "."; os.dwMinorVersion; os.dwBuildNumber
Как в Visual Basic определить доступно ли окно?
Public Declare Function IsWindowEnabled Lib "user32.dll" (ByVal hwnd As Long) As Long
Как в Visual Basic определить объем свободной памяти?
Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Занесите в поле dwlength размер типа MEMORYSTATUS. Переменная типа Long берет 4 байта, так что всего выйдет 4*8=32 байта:
Dim ms As MEMORYSTATUS
ms.dwLength = Len(ms)
GlobalMemoryStatus ms
MsgBox "Total physical memory:" & ms.dwTotalPhys & vbCrLf & "Available physical memory:" & ms.dwAvailPhys & vbCrLf & "Memory load:" & ms.dwMemoryLoad
