MessageBox a zavolani vlastniho Help souboru   otázka

VB.NET

Zdravim,

pokousim se napsat malou aplikaci pro Outlook pomoci VSTO ve Visual Studiu. V jednom bode potrebuji upozornit pouzivatele, ze nema spravne zadane hodnoty (MessageBox). Zaroven mu chci nabidnout vlastni napovedu pres tlacitko Help. Pravdepodobne to bude trivialni, protoze se mi k tomu nepodarilo nic vygooglit. Nebo spatne hledam :o) Muzete mi prosim nekdo poradit jak MessageBoxu vnutit vlastni Help soubor (.chm)? Diky moc.

Alika

Public Class ThisAddIn
    Protected Overrides Function CreateRibbonExtensibilityObject() As Microsoft.Office.Core.IRibbonExtensibility
        Return New Ribbon()
    End Function

    Private Sub ThisAddIn_Startup() Handles Me.Startup

    End Sub

    Private Sub Application_ItemSend(Item As Object, ByRef Cancel As Boolean) Handles Application.ItemSend
        Dim mailItem As Outlook.MailItem = TryCast(Item, Outlook.MailItem)
        Dim StartTag, EndTag As Integer
        Dim Tag As String = String.Empty
        StartTag = 0
        EndTag = 0

        Try
            If Not (mailItem Is Nothing) Then
                'doplni klasifikaci posty na zacatek zpravy
                If Not IsNothing(mailItem.UserProperties.Find("Priznak")) Then
                    Klasifikace = GetUserProperty(mailItem, "Priznak")
                End If

                If Not (Klasifikace Is String.Empty) Then
                    Dim Zahlavi As String = "....text..."
                    
                    StartTag = InStr(1, mailItem.HTMLBody, "<body", vbTextCompare)
                    EndTag = InStr(StartTag + 5, mailItem.HTMLBody, ">")
                    Tag = Mid(mailItem.HTMLBody, StartTag, EndTag - StartTag + 1)
                    mailItem.HTMLBody = Replace(mailItem.HTMLBody, Tag, Tag & Zahlavi)
                Else
                    '''MessageBox.Show("text pro pouzivatele", "hlavicka", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, 0, True)'''
                    Cancel = True
                    Exit Sub
                End If
nahlásit spamnahlásit spam 0 odpovědětodpovědět

Asi bude rozdíl mezi MessageBox(VSTO) nejspíš :

System.Windows.Forms.MessageBox

a voláním MsgBox (VBA) :

Microsoft.VisualBasic.Interaction.MsgBox(Object, [Microsoft.VisualBasic.MsgBoxStyle], [Object]) As Microsoft.VisualBasic.MsgBoxResult

Nebo si máš prý udělat vlastní dialog :

http://www.fmsinc.com/FRee/NewTips/VBA/M...

Nebo snad :

https://www.experts-exchange.com/questio...

MessageBox:

https://msdn.microsoft.com/en-us/library...

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback