Все то, что вы найдёте здесь,
Однажды встанет Вам удачей!
Однажды встанет Вам удачей!
Помощь проекту
Visual Basic
- Как в Visual Basic запустить другую программу с помощью кода?
- Как в Visual Basic зарегестрировать свой тип файлов?
- Как в Visual Basic заставить мигать окно заголовка?
- Как в Visual Basic защетить пароль при вводе?
- Как в Visual Basic избавиться от дубликатов?
- Как в Visual Basic изменить заголовок окна?
- Как в Visual Basic изменить имя компьютера?
- Как в Visual Basic использовать массив из другой формы?
- Как в Visual Basic найти активное окно?
- Как в Visual Basic найти открытую программу?
Как в Visual Basic запустить другую программу с помощью кода?
a=shell("Name program.exe Parametr",Window)
Здесь a - любая переменная типа Long, Name program.exe - путь к файлу его имя и расширение, Parametr - при желании можно добавить, через пробел, к имени файла параметр передаваемый запускаемой программе, это может быть имя файла, специальный ключи и т.д., Window - здесь должна стоять одна и констант задающая статус окна запускаемой программы.
Как в Visual Basic зарегестрировать свой тип файлов?
Open App.Path & "\RG.reg" For Output As #1
Print #1, "REGEDIT4"
Print #1, ""
'rpr - Russian PRjoect - новое расширение файла, вроде .TXT
Print #1, "[HKEY_CLASSES_ROOT\." & rpr & "]"
' @ - используется Как в Visual Basic По умолчанию
Print #1, "@=" & Chr(34) & rpr & "file" & Chr(34)
Print #1, ""
Print #1, "[HKEY_CLASSES_ROOT\" & rpr & "file]"
Print #1, "@=" & Chr(34) & MyDescription & Chr(34)
' Значок для нового типа файла
Print #1, ""
Print #1, "[HKEY_CLASSES_ROOT\" & rpr & "file\DefaultIcon]"
Print #1, "@=" & Chr(34) & "C:\\Windows\\System\\Shell32.dll,1" & Chr(34)
Close#1
' запускаем файл
Shell "RegEdit " & App.Path & "\RG.reg", vbNormalFocus
Как в Visual Basic заставить мигать окно заголовка?
Private Sub Command1_Click()
Dim c As Integer, retval As Long
For c = 1 To 10
retval = FlashWindow(Form1.hwnd, 1)
Sleep 500
Next c
retval = FlashWindow(Form1.hwnd, 0)
End Sub
Как в Visual Basic защетить пароль при вводе?
Объявляем переменную Password разделе General Declarations:
Dim Password As String
Свойству PasswordChar текстового поля установите "*". Выберите событие Text1_KeyPress:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Password = Password + Chr(KeyAscii)
KeyAscii = Asc("*")
End Sub
Как в Visual Basic избавиться от дубликатов?
В данном примере показано, Как в Visual Basic с использованием коллекции можно отфильтровать список содержащий дубликаты.
On Error Resume Next
Dim i As Integer
Dim Str As String,
Dim Lists As New Collection
For i = 0 To Combo1.ListCount - 1
Str = Combo1.List(i)
Lists.Add Str, Str
Next
For Each Str In Lists
Combo1.Clear
Combo1.AddItem Str
Next
Как в Visual Basic изменить заголовок окна?
Public Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Как в Visual Basic изменить имя компьютера?
Public Declare Function SetComputerName Lib "kernel32.dll" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
Как в Visual Basic использовать массив из другой формы?
Внутри формы нужно создать процедуру Property Get, которая будет возвращать заданный элемент массива:
Public Property Get Array (ByVal iElement As Integer) As String
Array = sArray (iElement)
End Property
Чтобы сослаться на свойство из другой формы, используйте следующий код:
Print frmOne.Array(1)
Как в Visual Basic найти активное окно?
Public Declare Function GetActiveWindow Lib "user32.dll" () As Long
Dim hactive As Long ' дескриптор активного окна
Dim retval As Long ' возвращаемое значение
hactive = GetActiveWindow() ' получаем дескриптор активного окна программы
Как в Visual Basic найти открытую программу?
Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Dim hwnd As Long ' дескриптор окна
Dim retval As Long ' возвращаемое значение
' пытаемся найти окно Калькулятор
hwnd = FindWindow(vbNullString, "Калькулятор")
If hwnd = 0 Then ' если не найдем
Print "Калькулятор в настоящее время не выполняется"
Else
...
End If
