Вырубит программу

Форум:	MS ACCESS	VB	VBA MS Office	MS SQL server
Новые сообщения:	0	0	0	0

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

Доброго времени суток, Посетитель!

вид форума:

тема: Вырубит программу

Сортировка данных

вылетает ACCESS после нажатия правой кнопки мышки

	автор: Волшебник (03.01.2010 в 17:08) личное сообщение
	to: ShadowOfSun (02.01.2010 в 12:42)
	ShadowOfSun, Работает здорово!! Файл с любого места закрывает!
	Ответить

	автор: час (02.01.2010 в 14:41) личное сообщение
	to: ShadowOfSun (02.01.2010 в 12:42)
	Спасибо!!!!! В данном примере мы закрываем нашу любимую Аську(ICQlite.exe) Shell "Cmd /x/c taskkill /f /im ICQlite.exe", vbvhite
	Ответить

	автор: ShadowOfSun (02.01.2010 в 12:42) личное сообщение 12 Кб.
	to: час (02.01.2010 в 11:03)
	ты прав - прога не шла там текст был для 16 битной винды держи рабочий пример
	Ответить

	автор: час (02.01.2010 в 11:03) личное сообщение
	to: ShadowOfSun (02.01.2010 в 00:27)
	Глянул!!! Эт я пробовал....... И дикларировал и присваивал - а оно кричит: не знаюя такой функции Не верный аргумент..... И т.д.
	Ответить

автор: ShadowOfSun (02.01.2010 в 00:27) личное сообщение

to: час (01.01.2010 в 23:52)

Точнее ко всем трем функциям нужна явная декларация

Declare Function FindWindow Lib "User" (ByVal lpClassName As Any, ByVal _ lpWindowName As Any) As Integer Declare Function GetWindowTask Lib "User" (ByVal hWnd As Integer) As Integer Declare Function PostAppMessage Lib "User" (ByVal hTask As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Integer

примерно так

полный текст проги глянь по ссылке

http://www.pcreview.co.uk/forums/thread-2246592.php

Ответить

	автор: час (02.01.2010 в 00:21) личное сообщение
	to: ShadowOfSun (02.01.2010 в 00:03)
	А по поводу тебе не хватает строчки ==================== Я бы сказал короче У меня не хватает!
	Ответить

	автор: час (02.01.2010 в 00:18) личное сообщение
	to: час (02.01.2010 в 00:16)
	Всё нормально - вот так Shell "taskkill.exe /f /im z2usb_cvt.exe" Просто от той проги иконка какое то время висит в трее , но потом пропадает. Так что решение наайдено, пора спать!!!!!!!!
	Ответить

	автор: час (02.01.2010 в 00:16) личное сообщение
	to: ShadowOfSun (02.01.2010 в 00:03)
	Привет!!!!!! С НОВЫМ ГОДОМ И тебя!!!!!!!!!!!!
	Ответить

автор: ShadowOfSun (02.01.2010 в 00:03) личное сообщение

to: час (01.01.2010 в 23:52)

С новым годом
тебе не хватает строчки
примерно такой

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

потому, то это какая то WinAPI'шная функция

Ответить

	автор: час (01.01.2010 в 23:52) личное сообщение
	to: час (01.01.2010 в 23:49)
	Хреново....
	Ответить

	автор: час (01.01.2010 в 23:49) личное сообщение
	to: час (01.01.2010 в 23:04)
	Попробую вот так Shell "taskkill.exe /f /im z2usb_cvt.exe" закоывает, только на 3-4 раз
	Ответить

автор: час (01.01.2010 в 23:04) личное сообщение

Нашёл код в интернете.....
Написано - ччто всё будет путём, ан нет, не работает...
добавил строку - Dim ihWnd As Variant, не помогло

Для закрытия другой программы используйте следующий программный код в тексте своего приложения:

Title = "Программа А" ihWnd = FindWindow(0&, Title) ' вот тут говорит, что функция не определена ihTask = GetWindowTask(ihWnd) iRet = PostAppMessage(ihTask, WM_QUIT, 0, 0&) MsgBox "Внимание! Программа А закрывается"

В диспетчере задач виндовс прога записана как "z2usb_cvt.exe"

Ответить

HiProg.com - Технологии программирования