Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как создать кнопку, interface IDTExtensibility2 
:(
    Опции темы
umit
  Дата 6.6.2007, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Awaiting Authorisation
Сообщений: 11
Регистрация: 29.4.2007

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



привет.подскажите,научите,помогите.........

1. Запускаю студию ( у меня 2005)
2. Создаю новый проект: Other project types / Extensibility / Shared Add-In
3. Запускается мастер, который помогает настроить этот адд-ин.
4. выбераю прилозгение WORD
5. Все объекты и члены модели автоматизации Visual Studio .NET основаны на объекте DTE. Объект DTE предоставляет IDE Visual Studio .NET и является верхним объектом иерархии модели автоматизации. Он расположен в пространстве имен EnvDTE. Имя сборки .NET для этого пространства имен (envdte) содержится в файле envdte.dll. Имя библиотеки типов COM (Microsoft Development Environment 7.0) содержится в файле dte.olb.

Поскольку объект DTE требуется всем объектам автоматизации, для работы с моделью автоматизации Visual Studio .NET необходимо сделать две вещи: установить ссылку на пространство имен EnvDTE и установить ссылку для объекта DTE.  
6.' Create a new instance of Visual Studio .NET.
Dim DTE As Object
DTE = Microsoft.VisualBasic.Interaction.CreateObject ("VisualStudio.DTE.7.1")

Вопрос:
все ето я  уже сделала , только вот вчем проблема  не понемаю , и не знаю как пользываться DTE ,и не понемаю  ето предложение : Все объекты и члены модели автоматизации Visual Studio .NET основаны на объекте DTE.Объект DTE предоставляет IDE Visual Studio .NET и является верхним объектом иерархии модели автоматизации.

спасибо



PM MAIL   Вверх
Exception
Дата 7.6.2007, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 18
Всего: 186



Какую кнопку?
При чём тут кнопка?
Научитесь формулировать вопросы грамотно!

Добавлено через 1 минуту и 24 секунды
А, если вам непонятно это предложение, возможно, вам следовало бы поучиться языку, прежде чем начинать на нём программировать.
PM   Вверх
umit
  Дата 11.6.2007, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Awaiting Authorisation
Сообщений: 11
Регистрация: 29.4.2007

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



 1 кнопочка  в  приложение WORD 
2  я пишу Add in (получается dll)
3 в опрос наверное деиствительно неправельныи (не полныи),я принашу свои извенения тем кто мучился ,пытаясь понять вопрос.и спасибо за попытку понять и обьяснить
4 на самом деле я только учу етот язык ,поетому задаю такие вопроссы  
 
5 лутше я напишу  код:
Imports Office = Microsoft.Office.Core
imports Extensibility
imports System.Runtime.InteropServices

#Region " Read me for Add-in installation and setup information. "
' When run, the Add-in wizard prepared the registry for the Add-in.
' At a later time, if the Add-in becomes unavailable for reasons such as:
'   1) You moved this project to a computer other than which is was originally created on.
'   2) You chose 'Yes' when presented with a message asking if you wish to remove the Add-in.
'   3) Registry corruption.
' you will need to re-register the Add-in by building the MyAddin1Setup project 
' by right clicking the project in the Solution Explorer, then choosing install.
#End Region

<GuidAttribute("ACE2C18E-09B9-4C43-BEF5-0E399BB6770D"), ProgIdAttribute("MyAddin1.Connect")> _
Public Class Connect

    Implements Extensibility.IDTExtensibility2

    Private MainMenuBar As Office.CommandBar
    Private MenuBarItem As Office.CommandBarControl
    Private WithEvents MyButton As Office.CommandBarButton

    Dim Shape As Microsoft.Office.Interop.Word.Shape


    Dim applicationObject As Object
    Dim addInInstance As Object
  
    Public Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnDisconnection

    End Sub

    Public Sub OnConnection(ByVal application As Object, ByVal connectMode As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
        On Error Resume Next 

        ' create a new instance of visual studio.net 
        Dim DTE As Object 'вот о нем я говорю пытаюсь что то с ним сделать но неполучаетсая 
        DTE = Microsoft.VisualBasic.Interaction.CreateObjec("VisualStudio.DTE.7.1")
        applicationObject = application ' word
        addInInstance = addInInst '  
        
        ' add button 
MyButton = applicationObject.CommandBars("Standard").Controls.Add(applicationObject.msoControlButton )' сдесь я пытаюсь создать кнопочку
        With MyButton
            .Controls.Count.Caption = "My Custom Button"
            .Controls.Count.TooltipText = "My Button BredBred"
            .Controls.Count.Tag = "My Button Bred"
            .Controls.Count.OnAction = "saveasHTML"
        End With
        'add picture  on caption of button
        Shape = applicationObject.ActiveDocument.Shapes.AddPicture (FileName:="c:/2.gif")'картинка
       Shape.Select()
        applicationObject.Selection.CopyAsPicture()
        applicationObject.Selection.Delete()
        applicationObject.CommandBars("Standard").Controls(MyButton.Controls.Count).PasteFace()

        Shape = Nothing


    End Sub


End Class
 подскажите где не правильно,  и как лутше писать ,что пременить?  
когда запускаю ,приcxодит что то странное, и не создает exe 
спасибо.

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »


 




[ Время генерации скрипта: 0.0624 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.