Scribd
Upload
118 views1 page

Form 1

This document contains code to initialize and interact with the SmartSketch application using the Ingr.RAD2D API. It initializes SmartSketch with specific application details, adds a new document, and makes the application visible. It also contains a button click handler to close the SmartSketch application.

Uploaded by

Raghu K
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
118 views1 page

Form 1

This document contains code to initialize and interact with the SmartSketch application using the Ingr.RAD2D API. It initializes SmartSketch with specific application details, adds a new document, and makes the application visible. It also contains a button click handler to close the SmartSketch application.

Uploaded by

Raghu K
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

Public Class Form1

Private sskApp As Ingr.RAD2D.Application


Private sskWrapperApp As Ingr.RAD2D.WrapperApplication
Private oDoc As Ingr.RAD2D.Document

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click
'Close SmartSketch
MessageBox.Show("Close SSK")
Ingr.RAD2D.Initialize.RADApplicationStarter.Instance.ExitRADApplication()
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


Button1.Click
' This call is required by the designer.
InitializeComponent()

' Add any initialization after the InitializeComponent() call.


Dim sAppPath As String
Dim sAppResourceName As String
Dim sAppStartUpDllClsid As String
Dim sAppDispatchObjectClsid As String
Dim sAppName As String
Dim sAppEnvironmentName As String

sAppName = "SmartSketch"
sAppPath = "c:\Program Files (x86)\SmartSketch\Program\"
sAppResourceName = "SmartSketch.drx"
sAppStartUpDllClsid = "{AF7DB05C-6427-11D5-868F-00A0C9D8948D}"
sAppDispatchObjectClsid = "{9099087E-A96B-11D1-91A8-08003643CA02}"
sAppEnvironmentName = "Sketch"

sskWrapperApp =
DirectCast(Ingr.RAD2D.Initialize.RADApplicationStarter.Instance.InitializeRADApplic
ation(sAppName, sAppPath, sAppResourceName, sAppStartUpDllClsid,
sAppDispatchObjectClsid, sAppEnvironmentName), Ingr.RAD2D.WrapperApplication)
sskApp = sskWrapperApp.RADApplication

'Add a new document


oDoc = sskApp.Documents.Add()

sskApp.Visible = True
End Sub
End Class

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy