ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сделать программно скрин вкладки
25 сообщений из 189, страница 2 из 8
  2  все
сделать программно скрин вкладки
    #37795979
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro, печалька, и что это может быть?, Вы как то декрарировали чтобы работало SendMessage? (просто я забыл)
...
Рейтинг: 0 / 0
15.05.2012, 20:39
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37795980
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
ну ведь выделяет у меня всю строку SendMessage(Active,WM_CLOSE, 0&, 0&) и говорит ошибка в синтаксе, вот ересь
...
Рейтинг: 0 / 0
15.05.2012, 20:41
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37796000
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
катастрофаВы как то декрарировали чтобы работало SendMessage? (просто я забыл)разумеется. И где взять декларацию я тебе уже сказал.
...
Рейтинг: 0 / 0
15.05.2012, 21:09
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37796008
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro, закрывает да только не то что надо, закрывает Ворд
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
'закрыть окно
'нужно декларировать Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
PostMessage Active, WM_CLOSE, 0&, 0&


Active - не правильно обсчитывается или ересь??
...
Рейтинг: 0 / 0
15.05.2012, 21:19
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37796013
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
вот и косяк на страницах форума, эти строки заремарчены, но форум об этом умалчивает
Код: vbnet
1.
2.
3.
4.
 ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
...
Рейтинг: 0 / 0
15.05.2012, 21:21
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37796030
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
катастрофавот и косяк на страницах форумаОтписал про глюк на ОНС
...
Рейтинг: 0 / 0
15.05.2012, 21:36
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37796382
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Proу меня работает и закрывает
выложите пжл код где всё работает
...
Рейтинг: 0 / 0
16.05.2012, 09:14
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37796603
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
катастрофаShocker.Proу меня работает и закрывает
выложите пжл код где всё работает
Код: vbnet
1.
2.
Shell "rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus
SendMessage GetForegroundWindow, &H10, 0&, 0&
...
Рейтинг: 0 / 0
16.05.2012, 11:10
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797440
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro, спасибо!!!!!!

открыли - закрыли вкладку
Код: vbnet
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.
Option Explicit

Private Declare Function GetForegroundWindow Lib "user32" () As Long
'
Sub OpenОткрыть_вкладку_модемы()

'отключаем дёргание экрана при выполнении кода
  Application.ScreenUpdating = False

  '1
  'control.exe — служит для работы с панелью управления
  'telephon.cpl — оснастка панели управления для телефонии
  '1 — номер вкладки, которую нужно активировать при открытии (отсчет с нуля)
  'Shell "control.exe telephon.cpl,,1"

  '2
  'можно и так сразу открывается вторая вкладка
  'Shell "control.exe modem.cpl"

  '3
  Shell "rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus

  'MyID - идентификатор процесса
  'MyID = Shell("rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus)

  'закрыть вкладку
  SendMessage GetForegroundWindow, &H10, 0&, 0&

  'отменяем отключенное ранее дёргание экрана при выполнении кода
  Application.ScreenUpdating = True

End Sub



можно это сделать "втёмную", как считать вкладку между открытием и закрытием и поместить её в picturebox?, это возможно?
Подскажите код
...
Рейтинг: 0 / 0
16.05.2012, 16:44
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797476
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
AndreTMкатастрофа...плавали, знаем не сходится ответ на запрос с тем, что на вкладкеЭндрю, то есть ты, до сих пор не разобрался, что там было неверно в твоем коде? Не удосужился хоть немного почитать по предложенным вариантам (а, насколько я помню, разговор тогда дошел до того, что можно было проверить наличие/работоспособность модемов AT-командами).
И теперь принялся выдумывать новые обходные пути... которые, если что и получилось бы, были преподнесены как очередное озарение и "фирменный подход"
Пичалька

согласен про печальку, плачу..., посмотрите пжл в файле все разногласия: http://files.mail.ru/V85R16
...
Рейтинг: 0 / 0
16.05.2012, 17:04
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797568
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Код: vbnet
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.
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, _
    ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Const SRCCOPY = &HCC0020


Private Sub Command1_Click()
    Dim hwnd As Long
    Dim hdc As Long
    Dim rc As RECT
    
    Shell "rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus
    hwnd = GetForegroundWindow
    hdc = GetDC(hwnd)
    GetWindowRect hwnd, rc
    BitBlt Picture1.hdc, 0, 0, rc.Right - rc.Left, rc.Bottom - rc.Top, hdc, 0, 0, SRCCOPY
    DeleteDC hdc
    SendMessage hwnd, &H10, 0&, 0&

End Sub
...
Рейтинг: 0 / 0
16.05.2012, 17:51
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797583
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
катастрофа
Код: vbnet
1.
2.
'отключаем дёргание экрана при выполнении кода
  Application.ScreenUpdating = False

абсолютно тут не нужно, ты же не работаешь с документом
...
Рейтинг: 0 / 0
16.05.2012, 17:56
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797809
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Proкатастрофа
Код: vbnet
1.
2.
'отключаем дёргание экрана при выполнении кода
  Application.ScreenUpdating = False

абсолютно тут не нужно, ты же не работаешь с документом
Shocker.Pro, понял, учту
а можно закрыть это окно используя MyID, Foreground или Active?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
'MyID - идентификатор процесса
MyID = Shell("rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus)

'идентификатор окна, которое рисуется поверх остальных
'нужно декларировать Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Foreground = GetForegroundWindow
'идентификатор активного окна
'нужно декларировать Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Active = GetActiveWindow



Antonariy, спасибо завтра опробую, отпишусь
...
Рейтинг: 0 / 0
16.05.2012, 20:46
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797810
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
катастрофаа можно закрыть это окно используя MyID, Foreground или Active?а я как закрываю?
...
Рейтинг: 0 / 0
16.05.2012, 20:47
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797815
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro'закрыть вкладку
Код: vbnet
1.
  SendMessage GetForegroundWindow, &H10, 0&, 0&
...
Рейтинг: 0 / 0
16.05.2012, 20:49
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797820
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ты ответил на свой вопрос?
...
Рейтинг: 0 / 0
16.05.2012, 20:56
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797824
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro, неа, осталось
>Antonariy, спасибо завтра опробую, отпишусь
>можно это сделать "втёмную", как считать вкладку между открытием и закрытием и поместить её в picturebox?, это возможно? Подскажите код
...
Рейтинг: 0 / 0
16.05.2012, 21:02
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37797947
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
катастрофаShocker.Pro, неа, осталосьAntonariy
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
...
    Shell "rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus
    hwnd = GetForegroundWindow

    hdc = GetDC(hwnd)
    GetWindowRect hwnd, rc
    BitBlt Picture1.hdc, 0, 0, rc.Right - rc.Left, rc.Bottom - rc.Top, hdc, 0, 0, SRCCOPY
    DeleteDC hdc

    SendMessage hwnd, &H10, 0&, 0&
...
...
Рейтинг: 0 / 0
16.05.2012, 23:32
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37798079
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
AndreTMкатастрофаShocker.Pro, неа, осталосьAntonariy
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
...
    Shell "rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus
    hwnd = GetForegroundWindow

    hdc = GetDC(hwnd)
    GetWindowRect hwnd, rc
    BitBlt Picture1.hdc, 0, 0, rc.Right - rc.Left, rc.Bottom - rc.Top, hdc, 0, 0, SRCCOPY
    DeleteDC hdc

    SendMessage hwnd, &H10, 0&, 0&
...


ой я даже не смотрел, ну ничего всё равно до вечера
...
Рейтинг: 0 / 0
17.05.2012, 04:45
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37798083
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
вообще то не стал ничего дожидаться попробовал на домашней машине, Picture то никогда не пользовался, в Ворде на форму добавил
Microsoft Picture Clip Control, version 6.0
получил отлуп
Could not complete the operation due to error 800a0011
как лечить?
...
Рейтинг: 0 / 0
17.05.2012, 05:10
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37798140
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Picture Clip это совсем не то
...
Рейтинг: 0 / 0
17.05.2012, 08:28
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37798196
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Antonariy, понял, а эта штука в ВБА есть? если есть как называется? или только в ВБ6?
...
Рейтинг: 0 / 0
17.05.2012, 09:20
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37798267
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
А зачем это все вообще? Ну скопировали на форму картинку, почему недостаточно посмотреть на саму закладку?
...
Рейтинг: 0 / 0
17.05.2012, 10:06
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37798400
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Antonariy,
>А зачем это все вообще?
человек он царь компьютеров, это точно, насчёт зверей спорно
что будет плохого если у меня расширится кругозор, если на форме будет фото закладки, если она откроется тоже не плохого, любому не верующему нос утрёт, но не могу управлять, чтобы она появлялась по человечески, по центру
...
Рейтинг: 0 / 0
17.05.2012, 11:03
| Ответить | Цитировать | Написать  
сделать программно скрин вкладки
    #37798427
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Antonariy, если с Вашим кодом скомпилировать на ВБ6.0, тогда запуская экзешник не понятно что происходит, если пошагово делать
получаю сообщение Недостаточно памяти для запуска; закрыть
что за ересь??
...
Рейтинг: 0 / 0
17.05.2012, 11:12
| Ответить | Цитировать | Написать  
25 сообщений из 189, страница 2 из 8
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / сделать программно скрин вкладки
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37797947&tid=2157618]:
 0ms
get settings:
 12ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 281ms
total:  431ms
созд. / загр.: 431ms
x
x
Закрыть


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