Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Pro ENGINEER
  VB.Net Parameter in TextBox einlesen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Creo
Autor Thema:  VB.Net Parameter in TextBox einlesen (1324 mal gelesen)
vladi182
Mitglied
Konstrukteur - CAD-Administrator


Sehen Sie sich das Profil von vladi182 an!   Senden Sie eine Private Message an vladi182  Schreiben Sie einen Gästebucheintrag für vladi182

Beiträge: 46
Registriert: 22.03.2013

Creo/Elements/Pro M070
Workstation HP Z400
Win7 64
MDESIGN 2010
Office 2003

erstellt am: 20. Apr. 2014 20:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Leute ich bin hier schon am verzweifeln ich kriege es bis zum erbrechen nicht hin ein Parameter in TextBox einzulesen.

Den Beispiel aus PTC VB API User Quide S.264 habe ich einigermaßen aussereinander gepflügt allerdings weis ich nicht wie ich explizid sagen muss Nimm den Parameter1 und schreibe diesen in TextBox1 kann mir evl. jemand auf die Sprünge helfen?

Hier mein Kunstwerk:

Code:

'Option Strict On
Option Explicit On
Imports pfcls

Public Class Form1

    Private Sub modeleinlesen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles modeleinlesen.Click

        Dim items As IpfcModelItems
        Dim item As IpfcModelItem
        Dim feature As IpfcFeature
        Dim i, j As Integer
        Dim paramName As String
        Dim dimName As String
        Dim dimValue As Double
        Dim relations As Cstringseq
        Dim paramValue As IpfcParamValue
        Dim param As IpfcParameter
        Dim paramAdded As Boolean
        Dim asyncConnection As IpfcAsyncConnection = Nothing
        Dim cAC As CCpfcAsyncConnection
        Dim session As IpfcBaseSession

        ' Verbindung zu ProE erstellen
        cAC = New CCpfcAsyncConnection()
        asyncConnection = cAC.Connect(Nothing, Nothing, Nothing, Nothing)
        session = CType(asyncConnection.Session, IpfcBaseSession)


        Try
            For i = 0 To features.Count - 1
                feature = features.Item(i)
                '======================================================================
                'Get the dimensions in the current feature
                '======================================================================
                items = feature.ListSubItems(EpfcModelItemType.EpfcITEM_DIMENSION)
                If items Is Nothing OrElse items.Count = 0 Then
                    Continue For
                End If
                relations = New Cstringseq
                '======================================================================
                'Loop through all the dimensions and create relations
                '======================================================================
                For j = 0 To items.Count - 1
                    item = items.Item(j)
                    dimName = item.GetName()
                    paramName = "PARAM_" + dimName
                    dimValue = CType(item, IpfcBaseDimension).DimValue
                    param = feature.GetParam(paramName)
                    paramAdded = False
                    If param Is Nothing Then
                        paramValue = (New CMpfcModelItem).CreateDoubleParamValue(dimValue)
                        feature.CreateParam(paramName, paramValue)
                        paramAdded = True
                    Else
                        If param.Value.discr = EpfcParamValueType.EpfcPARAM_DOUBLE Then
                            paramValue = (New CMpfcModelItem).CreateDoubleParamValue(dimValue)
                            CType(param, IpfcBaseParameter).Value = paramValue
                            paramAdded = True
                        End If
                    End If
                    If paramAdded = True Then
                        relations.Append(dimName + " = " + paramName)
                    End If
                    param = Nothing
                Next
                CType(feature, IpfcRelationOwner).Relations = relations
            Next
        Catch ex As Exception
            MsgBox(ex.Message.ToString + Chr(13) + ex.StackTrace.ToString)
        End Try
    End Sub


Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

San Benedetto
Mitglied



Sehen Sie sich das Profil von San Benedetto an!   Senden Sie eine Private Message an San Benedetto  Schreiben Sie einen Gästebucheintrag für San Benedetto

Beiträge: 29
Registriert: 28.05.2013

Win7
Pro/e Wf4/Creo 2.0
VB2010express
VB2012express

erstellt am: 22. Apr. 2014 09:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für vladi182 10 Unities + Antwort hilfreich

Servus Vladi182

geht's nur um die Windows Form ? oder den Pro/e Teil

textbox1.text = Parameter1

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

vladi182
Mitglied
Konstrukteur - CAD-Administrator


Sehen Sie sich das Profil von vladi182 an!   Senden Sie eine Private Message an vladi182  Schreiben Sie einen Gästebucheintrag für vladi182

Beiträge: 46
Registriert: 22.03.2013

Creo/Elements/Pro M070
Workstation HP Z400
Win7 64
MDESIGN 2010
Office 2003

erstellt am: 22. Apr. 2014 11:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi,

hat sich erledigt danke trotzdem!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz