mirror of
https://github.com/jeremytammik/RevitSdkSamples.git
synced 2026-08-13 08:17:42 +00:00
Jeremy Tammik
82 lines
2.7 KiB
VB.net
82 lines
2.7 KiB
VB.net
'
|
|
' (C) Copyright 2003-2007 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 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.
|
|
'
|
|
|
|
''' <summary>
|
|
''' Form class to pop up a hello message
|
|
''' </summary>
|
|
Public Class HelloRevitForm
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
''' <summary>
|
|
''' construction method
|
|
''' </summary>
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
InitializeComponent()
|
|
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' resource clear method
|
|
''' </summary>
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
Friend WithEvents LabelHelloRevit As System.Windows.Forms.Label
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.LabelHelloRevit = New System.Windows.Forms.Label
|
|
Me.SuspendLayout()
|
|
'
|
|
'LabelHelloRevit
|
|
'
|
|
Me.LabelHelloRevit.Location = New System.Drawing.Point(42, 40)
|
|
Me.LabelHelloRevit.Name = "LabelHelloRevit"
|
|
Me.LabelHelloRevit.Size = New System.Drawing.Size(64, 16)
|
|
Me.LabelHelloRevit.TabIndex = 0
|
|
Me.LabelHelloRevit.Text = "Hello Revit!"
|
|
'
|
|
'HelloRevitForm
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(157, 102)
|
|
Me.Controls.Add(Me.LabelHelloRevit)
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
|
Me.MaximizeBox = False
|
|
Me.MinimizeBox = False
|
|
Me.Name = "HelloRevitForm"
|
|
Me.ShowInTaskbar = False
|
|
Me.Text = "Hello Revit"
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
End Class
|