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 #594
Posted by:
Posted on: 2026-02-23 16:14:02
Age: 1 day ago
Views: 7
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
