несколько вопросов по vb6 - VB

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


textual

Код к задаче: «несколько вопросов по vb6 - VB»

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.200 из 5



Похожие ответы
  1. Доброго вам всем дня дорогие форумчане! подскажите направьте в нужном направлении как решить такого рода момент, собрать воедино, т.е в один блок, код, а то мне кажется раздуется мой проект как пузырь). заранее спасибо всем !PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Public a As Byte Public b As Byte Public c As Byte Public d As Byte   Private Sub Text1_Change() c = Len(Text1.Text) If c > 4 Then MsgBox "Не соответствие символов для поля! " & Label1 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub Private Sub Text2_Change() a = Len(Text2.Text) If a > 10 Then MsgBox "Не соответствие символов для поля! " & Label2 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub Private Sub Text3_Change() b = Len(Text3.Text) If b > 10 Then MsgBox "Не соответствие символов для поля! " & Label3 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub   Private Sub Text9_Change() d = Len(Text9.Text) If d > 14 Then MsgBox "Не соответствие символов для поля! " & Label9 & "", vbInformation, "СООБЩЕНИЕ!" End If End Sub   .........ну и так далее

  1. Подскажите в чем ошибка, не получается что окружности красного и зеленого цвета не рисуется как окружности синего цвета

  1. возможно ли задать несколько условий в операторе if например: if усл.1 или усл.2 или усл.3.... или усл.N then?

  1. Составить программу в Visual Basic для рисования на форме с помощью графических методов грозди вишен. Помогите пожалуйста, буду очень признательна)

  1. Здравствуйте,не уверен была ли такая тема на форуме. Стоит задача сделать опрос с типами вопросов (1 из многих,несколько из многих,на введение пропущенного слова,на сортировку) это все нужно реализовать на одной форме.Чтобы после ответа выводило правильность или неправильность ответа и переходило на следующий вопрос выбранный из списка из 15 вопросов РАНДОМНЫМ ОБРАЗОМ, ПРИЧЕМ ЧТОБЫ ЭТИ ВОПРОСЫ В ДАЛЬНЕЙШЕМ НЕ ПОВТОРЯЛИСЬ.Как это все реализовать?

  1. Здравствуйте, Господа Программёры! Подскажите, пожалуйста ламерше: 1) Можно ли в семи вкладках/окнах интернет-браузера ОДНОВРЕМЕННО нажать кнопку "Enter"? 2) Или с очень большой скоростью, недоступной для ручной печати, заранее запрограммировать последовательное нажатие кнопки "Enter" в семи вкладках/окнах. 3) Осуществима ли эта идея с помощью нескольких активных окон? И вообще, могут ли быть активными несколько окон?

  1. Доброго времени суток! Сразу скажу, что VB почти не знаю, так что сорри за тупой вопрос. Но спросить не у кого, в Инете тоже ничего не нашел... Написал в модуле Access процедуру Sub с 3-мя текстовыми аргументами: Public Sub CheckField(Table1 As String, Table2 As String, Field As String) CurrentDb.Execute ("delete from " + Table2) CurrentDb.Execute ("insert into " + Table2 + " select ID from " + Table1 + " where " + Field + " like '* *'") CurrentDb.Execute ("update " + Table2 + " set Поле='" + Field + "',Ошибка='Двойной пробел' where Поле is NULL") End Sub Private Sub qw() CheckField("Дела","TextErrors", "NameDela") MsgBox "Готово!" End Sub Уже при написании кода (в той строке, где процедура CheckField вызывается) vb показывает ошибку - Compile Error: Expected: = При этом, раньше все отлично работало, когда в процедуре использовался только 1 аргумент (Field) и процедура вызывалась так: CheckField("NameDela"). Сейчас захотелось совершенства и имена таблиц тоже передавать в качестве аргументов, но вот не получается... Подскажите, пожалуйста, как правильно вызвать процедуру.