mirror of
https://github.com/jeremytammik/RevitSdkSamples.git
synced 2026-08-18 19:30:09 +00:00
Jeremy Tammik
102 lines
3.7 KiB
VB.net
102 lines
3.7 KiB
VB.net
'
|
|
' (C) Copyright 2003-2008 by Autodesk, Inc.
|
|
'
|
|
' Permission to use, copy, modify, and distribute this software in
|
|
' object code form for any purpose and without fee is hereby granted
|
|
' provided that the above copyright notice appears in all copies and
|
|
' that both that copyright notice and the limited warranty and
|
|
' restricted rights notice below appear in all supporting
|
|
' documentation.
|
|
'
|
|
' AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL ITS FAULTS.
|
|
' AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
|
|
' MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
|
|
' DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
|
|
' UNINTERRUPTED OR ERROR FREE.
|
|
'
|
|
' Use, duplication, or disclosure by the U.S. Government is subject to
|
|
' restrictions set forth in FAR 52.227-19 (Commercial Computer
|
|
' Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
|
|
' (Rights in Technical Data and Computer Software), as applicable.
|
|
'
|
|
|
|
Imports System.Drawing
|
|
|
|
Public Class AboutAPIToolbarForm
|
|
|
|
Public Sub New(ByVal dataBuffer As AboutAPIToolbar)
|
|
MyBase.New()
|
|
|
|
InitializeComponent()
|
|
Initialize(dataBuffer)
|
|
End Sub
|
|
|
|
Private m_dataBuffer As AboutAPIToolbar
|
|
Private m_captionFont As Font
|
|
|
|
Private Sub Initialize(ByVal dataBuffer As AboutAPIToolbar)
|
|
m_dataBuffer = dataBuffer
|
|
m_captionFont = New Font(aboutToolbarRichTextBox.Font.FontFamily, _
|
|
aboutToolbarRichTextBox.Font.Size, _
|
|
FontStyle.Bold)
|
|
|
|
contactLinkLabel.Links.Clear()
|
|
contactLinkLabel.Links.Add(0, contactLinkLabel.Text.Length, "mailto:cxlou@hslcn.com;junyang@hslcn.com")
|
|
|
|
Dim aboutToolbar As Dictionary(Of String, String) = m_dataBuffer.AboutToolbar
|
|
Dim difToolbarItemUsage As Dictionary(Of String, String) = m_dataBuffer.DifToolbarItemUsage
|
|
aboutToolbarRichTextBox.Text = ""
|
|
|
|
For Each key As String In aboutToolbar.Keys
|
|
AddCaption(key)
|
|
AddBodyText(aboutToolbar(key))
|
|
Next
|
|
|
|
For Each key As String In difToolbarItemUsage.Keys
|
|
AddCaption(key)
|
|
AddBodyText(difToolbarItemUsage(key))
|
|
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub AddCaption(ByVal value As String)
|
|
aboutToolbarRichTextBox.AppendText(value + Chr(10))
|
|
|
|
'format the text
|
|
Dim index As Integer = aboutToolbarRichTextBox.Text.IndexOf(value)
|
|
If Not -1 = index Then
|
|
aboutToolbarRichTextBox.Select(index, value.Length)
|
|
aboutToolbarRichTextBox.SelectionFont = m_captionFont
|
|
aboutToolbarRichTextBox.SelectionBullet = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub AddBodyText(ByVal value As String)
|
|
aboutToolbarRichTextBox.AppendText(value + Chr(10) + Chr(10))
|
|
|
|
' format the text
|
|
'int index = aboutToolbarRichTextBox.Text.IndexOf(value);
|
|
Dim length As Integer = value.IndexOf(Chr(10))
|
|
|
|
If -1 = length Then
|
|
length = value.Length
|
|
End If
|
|
|
|
Dim index As Integer = aboutToolbarRichTextBox.Text.IndexOf(value.Substring(0, length))
|
|
|
|
If Not -1 = index Then
|
|
aboutToolbarRichTextBox.Select(index, value.Length)
|
|
aboutToolbarRichTextBox.SelectionIndent = 10
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub contactLinkLabel_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles contactLinkLabel.LinkClicked
|
|
Dim target As String = e.Link.LinkData.ToString()
|
|
|
|
If Not target Is Nothing Then
|
|
System.Diagnostics.Process.Start(target)
|
|
End If
|
|
|
|
End Sub
|
|
End Class |