Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB .NET > как создать кнопку

Автор: umit 6.6.2007, 14:38

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

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 и является верхним объектом иерархии модели автоматизации.

спасибо

Автор: Exception 7.6.2007, 18:35

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

Добавлено через 1 минуту и 24 секунды
А, если вам непонятно это предложение, возможно, вам следовало бы поучиться языку, прежде чем начинать на нём программировать.

Автор: umit 11.6.2007, 15:14

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
спасибо.