This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.
Paste #593

Posted by:
Posted on: 2026-02-23 16:13:11
Age: 1 day ago
Views: 6
Private Sub Form_Load()

    ' Очищаем список
    lstIgnore.Clear
    
    ' Запрашиваем игнор-лист у сервера
    Form1.SendMessageToUser "", "/ignore-list"

End Sub

Private Sub Form_Resize()

    Dim margin As Integer
    Dim btnWidth As Integer
    Dim btnHeight As Integer
    Dim spacing As Integer
    
    margin = 120
    btnWidth = 1000
    btnHeight = 350
    spacing = 120
    
    ' Если форма слишком маленькая — не ломаем интерфейс
    If Me.Width < 2500 Then Exit Sub
    If Me.Height < 2000 Then Exit Sub
    
    ' --- ListBox ---
    lstIgnore.Left = margin
    lstIgnore.Top = margin
    lstIgnore.Width = Me.ScaleWidth - btnWidth - (margin * 3)
    lstIgnore.Height = Me.ScaleHeight - (margin * 2)
    
    ' --- Кнопки справа ---
    cmdAdd.Width = btnWidth
    cmdRemove.Width = btnWidth
    cmdClear.Width = btnWidth
    cmdOK.Width = btnWidth
    
    cmdAdd.Height = btnHeight
    cmdRemove.Height = btnHeight
    cmdClear.Height = btnHeight
    cmdOK.Height = btnHeight
    
    cmdAdd.Left = Me.ScaleWidth - btnWidth - margin
    cmdRemove.Left = cmdAdd.Left
    cmdClear.Left = cmdAdd.Left
    cmdOK.Left = cmdAdd.Left
    
    cmdAdd.Top = margin
    cmdRemove.Top = cmdAdd.Top + btnHeight + spacing
    cmdClear.Top = cmdRemove.Top + btnHeight + spacing
    cmdOK.Top = cmdClear.Top + btnHeight + spacing

End Sub

Private Sub cmdOK_Click()
    Unload Me
End Sub

Private Sub Form_Load()

    ' Очищаем список
    lstIgnore.Clear
    
    ' Запрашиваем игнор-лист у сервера
    Form1.SendMessageToUser "", "/ignore-list"

End Sub

Private Sub Form_Resize()

    Dim margin As Integer
    Dim btnWidth As Integer
    Dim btnHeight As Integer
    Dim spacing As Integer
    
    margin = 120
    btnWidth = 1000
    btnHeight = 350
    spacing = 120
    
    ' Если форма слишком маленькая — не ломаем интерфейс
    If Me.Width < 2500 Then Exit Sub
    If Me.Height < 2000 Then Exit Sub
    
    ' --- ListBox ---
    lstIgnore.Left = margin
    lstIgnore.Top = margin
    lstIgnore.Width = Me.ScaleWidth - btnWidth - (margin * 3)
    lstIgnore.Height = Me.ScaleHeight - (margin * 2)
    
    ' --- Кнопки справа ---
    cmdAdd.Width = btnWidth
    cmdRemove.Width = btnWidth
    cmdClear.Width = btnWidth
    cmdOK.Width = btnWidth
    
    cmdAdd.Height = btnHeight
    cmdRemove.Height = btnHeight
    cmdClear.Height = btnHeight
    cmdOK.Height = btnHeight
    
    cmdAdd.Left = Me.ScaleWidth - btnWidth - margin
    cmdRemove.Left = cmdAdd.Left
    cmdClear.Left = cmdAdd.Left
    cmdOK.Left = cmdAdd.Left
    
    cmdAdd.Top = margin
    cmdRemove.Top = cmdAdd.Top + btnHeight + spacing
    cmdClear.Top = cmdRemove.Top + btnHeight + spacing
    cmdOK.Top = cmdClear.Top + btnHeight + spacing

End Sub

Private Sub cmdOK_Click()
    Unload Me
End Sub

Private Sub cmdAdd_Click()

    Dim user As String
    
    user = InputBox("Enter username to ignore:", "Add to Ignore List")
    
    If Trim(user) = "" Then Exit Sub
    
    ' Отправляем на сервер
    Form1.SendMessageToUser "", "/ignore-add " & Trim(user)
    
    ' Обновляем список
    Form1.SendMessageToUser "", "/ignore-list"

End Sub
Download raw | Create new paste
Recent Posts

Paste #593
