VPF::Кнопочка для студии - Форум программистов

Nastya

Дата 14.11.2005, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 27.3.2002
Где: Мариуполь

Репутация: 5
Всего: 44

Может вопрос не в ту тему, но ..
Студия 7. Как мне е улучшить так, что бы на тулбар, положить кнопочку по нажатии на которую бы сохранялись все файлы проекта SaveAll + запускался некоторый .bat- файл?

--------------------

Что бы понять рекурсию, надо понять рекурсию

"Профессионал - это человек сделавший все возможные ошибки в очень узкой области". Н.Бор

Earnest

Дата 15.11.2005, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 5962
Регистрация: 17.6.2005
Где: Рязань

Репутация: 53
Всего: 183

В 6-й студии были Add-Ins'ы, в 7-й, наверное, тоже есть.
Помню плохо, дело давнее, но там все просто: можно написать программу на C++, а из нее получить доступ к среде и своему проекту, практически все команды среды доступны. Ищи в MSDN'е про Add-Ins'ы.

Это если макросом не удастся обойтись.

--------------------

...

SergeCpp

Дата 16.11.2005, 07:31 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник
Сообщений: 955
Регистрация: 8.8.2005
Где: At Home

Репутация: 15
Всего: 124

Вот почти Ваше решение для VS6 (это работает у меня на <AltCtrlS> - назначьте свою)

Это текст макроса .DSM

Файл я прикрепил внизу

Код



'    Keyboard - change
'    =================

' SaveWork                = Ctrl+Alt+S    in Main
' SaveFile                = Ctrl+S        in Main

'==================================================================================================

' Internal saving, doc is document
' returns: 1 if saved, 0 else
Function SaveDocument( ByRef doc )

    SaveDocument = 0

    If doc Is Nothing Then
        Exit Function
    End If

    'MsgBox "[" & doc.Type & "] [" & doc.FullName & "] [" & TypeName( doc.Name ) & "]"

    If doc.Saved = False Then
        SaveDocument = 1

        ' error if new text document (it is without name)
        If doc.Name = "" Then
            If doc.Type = "Text" Then
                doc.Save ,True
            Else
                MsgBox "Type = [" & doc.Type & "], Title = [" & _
                    doc.ActiveWindow.Caption & "]" & chr( 10 ) & _
                    "Save it from Menu", vbOKOnly + vbExclamation, "Save changed document"
                ' ExecuteCommand "FileSaveAs" ' do not executes
                SaveDocument = 0
            End If

            Exit Function
        End If

        If doc.Type = "Text" Then
            doc.Save
        Else
            ExecuteCommand "FileSave"
        End If
    End If

End Function

'**************************************************************************************************

Sub SaveWork
'DESCRIPTION: Saves Workspace and Modified Files

    Saved = 0
    All   = 0

    Text  = ""
    FName = ""

    Dim myDocument

    For Each myDocument In Application.Documents
        All = All + 1
        'MsgBox cstr( All ) & "Document: " & myDocument.Name
        If SaveDocument( myDocument ) Then
            Saved = Saved + 1
            FName = myDocument.Name
        Else
            If FName = "" And Not myDocument Is Nothing Then
                FName = myDocument.Name
            End If
        End If
    Next

    If Projects.Count > 0 Then
        ExecuteCommand "WorkspaceSave"
        Text = "Workspace with "

        If Projects.Count = 1 Then
            Text = Text & "one loaded project, "
        Else
            Text = Text & cstr( Projects.Count ) & " loaded projects, "
        End If
    End If

    If Saved = 1 Then
        If Text = "" Then
            Text = "F"
        Else
            Text = Text & "f"
        End If

        Text = Text & "ile '" & FName & "'"

        If All > 1 Then
            Text = Text & " from " & cstr( All )
        End If

        Text = Text & " is saved."
    Else
        If Saved = 0 And All = 1 And Projects.Count = 0 Then
            Text = "File '" & FName & "' is not changed."
        Else
            Text = Text & cstr( Saved ) & " files of " & cstr( All ) & " are saved."
        End If
    End If

    If All > 0 Or Projects.Count > 0 Then
        MsgBox Text,vbInformation,"Save Work"
    End If

End Sub

'**************************************************************************************************

Sub SaveFile
'DESCRIPTION: Saves File if it is Modified

    SaveDocument( ActiveDocument )

End Sub

Это сообщение отредактировал(а) SergeCpp - 16.11.2005, 07:32

Присоединённый файл ( Кол-во скачиваний: 4 )

MYMACROS.DSM 19,51 Kb

--------------------

http://zoozahita.ru — Бездомные животные Екатеринбурга ищут хозяев

Nastya

Дата 16.11.2005, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 27.3.2002
Где: Мариуполь

Репутация: 5
Всего: 44

Спасибо, но что с этим макросом делать и как его "прикрутить" к сожалению никогда ничего подобного не делала smile

Где можно рочитать по этому поводу

--------------------

SergeCpp

Дата 16.11.2005, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник
Сообщений: 955
Регистрация: 8.8.2005
Где: At Home

Репутация: 15
Всего: 124

Макрос у меня в D:\VS\Common\MSDev98\Macros (поищите, где у Вас DSM-файлы, sample.dsm)

А потом в студии оптионс - макро и адд-инс (где-то там) галочку поставьте около моего файла

Не знаю точно как в 2005, не работал (у меня 6-ка)

--------------------

http://zoozahita.ru — Бездомные животные Екатеринбурга ищут хозяев

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Общие вопросы \| Следующая тема »