Несколько вопросов по 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