Несколько вопросов по vb6

Узнай цену своей работы

Формулировка задачи:

Какой код для кнопки, чтобы при нажатии программа закрывалась? Код который блокирует еще один запуск программы? И можно ли изменить дизайн формы InputBox? Как?

Решение задачи: «Несколько вопросов по vb6»

textual
Листинг программы
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Public Function MakeTransparent(ByVal hwnd As Long, Pr As Byte) As Long
Dim R As Long
On Error Resume Next
    If Pr < 0 Or Pr > 255 Then
      MakeTransparent = 1
    Else
      R = GetWindowLong(hwnd, -20) Or &H80000
      SetWindowLong hwnd, -20, R
      SetLayeredWindowAttributes hwnd, 0, Pr, &H2
      MakeTransparent = 0
    End If
    If Err Then
      MakeTransparent = 2
    End If
End Function
Private Sub Form_Load()
 'Me.StartUpPosition = 2 для центрирования в свойствах
Dim LeftPos As Integer
Dim TopPos As Integer
LeftPos = Int((Screen.Width - Me.Width) / 2)
TopPos = Int((Screen.Height - Me.Height) / 2)
Me.Top = TopPos
Me.Left = LeftPos
MakeTransparent Me.hwnd, 100
  
End Sub

Оцени полезность:

10   голосов , оценка 4.2 из 5