Тема для теста

Dragokas

Angry & Scary Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
7,809
Реакции
6,574
Здесь можно свободно тестировать возможности движка редактора форума...
Сложные оформления текста и т.п.
 
shell:Device Metadata Store| Скрытая папка «DeviceMetadataStore»
1|2|3
shell:Device Metadata Store| Скрытая папка «DeviceMetadataStore»
shell:Device Metadata Store
1|2|3
shell:Device Metadata Store | Скрытая папка «DeviceMetadataStore»
 
Последнее редактирование модератором:
Выравнивание кода.

code
Код:
Function foo(arg)
  call level2()
    call level4()
      call level6()
        call level8()
    dim lr: lr = foo3()
    if (lr) then
        msgbox "ok"   
        WScript.Quit 0
    end if
    msgbox "Happy end !!!"
End Function

code=VB
Код:
Function foo(arg)
  call level2()
    call level4()
      call level6()
        call level8()
    dim lr: lr = foo3()
    if (lr) then
        msgbox "ok"   
        WScript.Quit 0
    end if
    msgbox "Happy end !!!"
    call tab()
    foo = true
End Function

code=vbnet
VB.NET / VBA:
Function foo(arg)
  call level2()
    call level4()
      call level6()
        call level8()
    dim lr: lr = foo3()
    if (lr) then
        msgbox "ok"  
        WScript.Quit 0
    end if
    msgbox "Happy end !!!"
End Function


Код:
Function CbkEnumWin(hwnd, lparam)
    DWX.GetWindowTextW hwnd, Buf, 128 ' Unicode
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function

Код:
    DWX.GetWindowTextW hwnd, Buf, 128 ' Unicode
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function

Код:
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function

Код:
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function

Код:
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function

Код:
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function

Код:
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function

Код:
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1

Код:
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If

Код:
Function CbkEnumWin(hwnd, lparam)
    DWX.GetWindowTextW hwnd, Buf, 128 ' Unicode
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function


Код:
Function CbkEnumWin(hwnd, lparam)
    DWX.GetWindowTextW hwnd, Buf, 128 ' приплыли !
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1 ''''''''''
    CbkEnumWin = 1
End Function
 
Последнее редактирование:
VB.NET / VBA:
Function CbkEnumWin(hwnd, lparam)
    DWX.GetWindowTextW hwnd, Buf, 128 ' Unicode
    Title = DWX.StrGet(Buf, "w")
    'DWX.GetWindowText hwnd, Buf, 256 ' ANSI
    'Title = DWX.StrGet(Buf, "s")
    If Len(Title) > 0 Then
        WinList = WinList & hwnd & vbTab & Title & vbCrLf
        n = n+1
    End If
    m = m+1
    CbkEnumWin = 1 ' Если вернуть 0, вызовы прекратятся.
End Function

...........

[bimg=25%|fright]https://safezone.cc/attachments/633374-1680x1050-kopija-jpg.18042/?temp_hash=59c7512205a9d1b16e2a7e10f39c79a5[/bimg]
akok, ооо, все вообще зашибись: bimg=40%|fright

Спасибо за потраченное время.А это процент от чего высчитывается? Что то не пойму.

633374-1680x1050 - копия.jpg

633374-1680x1050 - копия.jpg
 
Последнее редактирование модератором:
Код:
C:\Users\Yana\Desktop\Launch Internet Explorer Browser.lnk 
C:\Users\Yana\Desktop\firefox.exe.lnk
C:\Users\Yana\Desktop\Google Chrome.lnk 
C:\Users\Yana\Desktop\Internet Explorer.lnk
 
Последнее редактирование:
Мы с @akok пытаемся выяснить, будут ли работать хэштеги, если они не предопределены заранее. Пожалуйста, добавьте кто-нибудь в этот топик сообщение с тегом #произвольныйхэштег
 
Последнее редактирование:
#произвольныйхэштегБез патча не работает, с патчем ошибка выпадает.
 
[encadre]Тестим текстбоксы[/encadre]Какой-то контент[encadre]Тестим текстбоксы без контента[/encadre][encadre=Текстбокс]А так?[/encadre]Мнооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооооого контента[encadre=:Dance4:]:Dance4:[/encadre]:Dance4:[slider]
{slide}:Dance4:{/slide}
{slide}:Shok:{/slide}
{slide}:Curtsey:{/slide}
{slide}:Give Rose:{/slide}
{slide}:Party2:{/slide}
{slide}:Kiss 3:{/slide}
{slide}:Girl In Love:{/slide}
{slide}:Yahoo:{/slide}
[/slider]Чет не понял. А у этой ↑↑↑ штуки есть настройки размера?
 
Последнее редактирование:
[slider=100%]
{slide}:Dance4:{/slide}
{slide}:Shok:{/slide}
{slide}:Curtsey:{/slide}
{slide}:Give Rose:{/slide}
{slide}:Party2:{/slide}
{slide}:Kiss 3:{/slide}
{slide}:Girl In Love:{/slide}
{slide}:Yahoo:{/slide}
[/slider]
 
[slider=100%]

Сильно не увлекайся :)
Минимальная высота, думаю, фиксирована.
 
Спасибо
[slider=bcenter|175x75]
{slide}:Dance4:{/slide}
{slide}:Shok:{/slide}
{slide}:Curtsey:{/slide}
{slide}:Give Rose:{/slide}
{slide}:Party2:{/slide}
{slide}:Kiss 3:{/slide}
{slide}:Girl In Love:{/slide}
{slide}:Yahoo:{/slide}
[/slider]
Так, вроде, лучше :)
 
Последнее редактирование:
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”•–—˜™љ›њќћџ ЎўЈ¤Ґ¦§Ё©Є«¬®Ї°±Ііґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя
 
Последнее редактирование:
Якорь 2 -
Текст под якорем 2
 
Последнее редактирование:
Назад
Сверху Снизу