powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Webbrowser без звука
16 сообщений из 16, страница 1 из 1
Webbrowser без звука
    #36073712
аплоадер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем доброго бремени суток!=)
Есть вопросик. Как убрать в Webbrowser controle характерный звук клика(щелчёк) при переходе?
Заранее благодарен=)
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36073728
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Панель управления - Звуки и аудиоустройства - Звуки - Проводник - Начать обзор.
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36073792
аплоадер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Antonariy,

так и любой ламо может=)
Ну а серьёзно. Именно для этого веббраузера. =)
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36074134
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Никак.
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36074421
аплоадер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Antonariy,

ненадо. всё возможно, если хорошенько подумать
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36074426
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот и подумай.
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36090477
аплоадер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
вот и подумаю
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36090539
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Начни свои размышления с того, что это настройка не веббраузера, а шелла, браузер ей просто пользуется с тех времен, когда был частью шелла.
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36094973
аплоадер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
однако я видел компонент на Delphi где есть все решения, но я сижу на VB и по этому аблом. может кто знает, где такой активис взять в котором можно было устанавливать свойства тип использовать звуки?
Вот компонент для дельфи
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36095380
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Решение все-таки есть и оно все время было у тебя под носом.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 procedure  TEmbeddedWB.DisableNavSound(bDisable: Boolean);
 var 
  i, Code: Integer;
 begin 
  Val(GetIEVersionMajor, I, Code);
   if  Code =  0   then 
   begin 
     if  I >=  7   then 
     begin 
      CoInternetSetFeatureEnabled(FEATURE_DISABLE_NAVIGATION_SOUNDS, FEATURE_FROM_PROCESS, bDisable);      Exit;
     end ;
   end ;
  EwbTools.DisableNavSound(bDisable);
 end ;

Код: plaintext
1.
2.
Declare Function CoInternetSetFeatureEnabled Lib "urlmon.dll" ( _
    ByVal FeatureEntry As INTERNETFEATURELIST, ByVal dwFlags As Long, _
    ByVal fEnable As Long) As Long

Jah loves you.
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36095866
Фотография Mr.Power
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy,
спасибо вот тока константа FEATURE_FROM_PROCESS чему равна?=)
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36095894
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
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.
typedef enum _tagINTERNETFEATURELIST {
    FEATURE_OBJECT_CACHING =  0 ,
    FEATURE_ZONE_ELEVATION =  1 ,
    FEATURE_MIME_HANDLING =  2 ,
    FEATURE_MIME_SNIFFING =  3 ,
    FEATURE_WINDOW_RESTRICTIONS =  4 ,
    FEATURE_WEBOC_POPUPMANAGEMENT =  5 ,
    FEATURE_BEHAVIORS =  6 ,
    FEATURE_DISABLE_MK_PROTOCOL =  7 ,
    FEATURE_LOCALMACHINE_LOCKDOWN =  8 ,
    FEATURE_SECURITYBAND =  9 ,
    FEATURE_RESTRICT_ACTIVEXINSTALL =  10 ,
    FEATURE_VALIDATE_NAVIGATE_URL =  11 ,
    FEATURE_RESTRICT_FILEDOWNLOAD =  12 ,
    FEATURE_ADDON_MANAGEMENT =  13 ,
    FEATURE_PROTOCOL_LOCKDOWN =  14 ,
    FEATURE_HTTP_USERNAME_PASSWORD_DISABLE =  15 ,
    FEATURE_SAFE_BINDTOOBJECT =  16 ,
    FEATURE_UNC_SAVEDFILECHECK =  17 ,
    FEATURE_GET_URL_DOM_FILEPATH_UNENCODED =  18 ,
    FEATURE_TABBED_BROWSING =  19 ,
    FEATURE_SSLUX =  20 ,
    FEATURE_DISABLE_NAVIGATION_SOUNDS =  21 ,
    FEATURE_DISABLE_LEGACY_COMPRESSION =  22 ,
    FEATURE_FORCE_ADDR_AND_STATUS =  23 ,
    FEATURE_XMLHTTP =  24 ,
    FEATURE_DISABLE_TELNET_PROTOCOL =  25 ,
    FEATURE_FEEDS =  26 ,
    FEATURE_BLOCK_INPUT_PROMPTS =  27 ,
    FEATURE_ENTRY_COUNT =  28 
} INTERNETFEATURELIST;
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36095897
Фотография Mr.Power
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нашёл FEATURE_FROM_PROCESS=&O2

спасибо Antonariy, в очередной раз помог!=)
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36095905
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36096877
аплоадер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
слушай а как там можна отключить загрузку изображений?
я там нахожу свойство downloadimages а функции не нахожу.
...
Рейтинг: 0 / 0
Webbrowser без звука
    #36096917
аплоадер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
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.
33.
34.
procedure TCustomEmbeddedWB.SetDownloadOptions(const Value: TDownloadControlOptions);
begin
  FDownloadControlOptions := Value;
  UpdateDownloadControlValues;
  with (Application as IOleControl) do
  begin
    OnAmbientPropertyChange(DISPID_AMBIENT_DLCONTROL);
    _Release;
  end;
end;




procedure TCustomEmbeddedWB.UpdateDownloadControlValues;
const
  acardDownloadControlValues: array[TDownloadControlOption] of Cardinal =
  ($ 00000010 , $ 00000020 , $ 00000040 , $ 00000080 ,
    $ 00000100 , $ 00000200 , $ 00000400 , $ 00000800 ,
    $ 00001000 , $ 00002000 , $ 00004000 , $ 00008000 ,
    $ 00010000 , $ 00020000 , $ 00040000 , $ 10000000 ,
    $ 20000000 , $ 40000000 , $ 80000000 );
var
  dco: TDownloadControlOption;
begin
  FDownloadOptionValue :=  0 ;
  if (FDownloadControlOptions <> []) then
    for dco := Low(TDownloadControlOption) to High(TDownloadControlOption) do
      if (dco in FDownloadControlOptions) then
        Inc(FDownloadOptionValue, acardDownloadControlValues[dco]);
end;





вот коечто нарыл, но не пойму чё к чему и куда =)

?????
...
Рейтинг: 0 / 0
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Webbrowser без звука
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]