Vb6 to VB net

Question

Hallo zusammen !
Habe eine frage, wie wird diese Code

Dim txtHgt As Integer



Dim aTxtBox As TextBox



txtHgt = aTxtBox.Parent.Scale(VB6.PixelsToTwipsY(aTxtBox.Height), aTxtBox.Parent.Scale(vs.vbPixels))

  in VB NET richtig geschrieben ?


Danke für die Antworten !

Answer 1

' Vom Formdesigner erzeugt:
Friend WithEvents TextBoxDaten As System.Windows.Forms.TextBox

 '
        'TextBoxDaten
        '
        Me.TextBoxDaten.Location = New System.Drawing.Point(59, 157)
        Me.TextBoxDaten.Name = "TextBoxDaten"
        Me.TextBoxDaten.Size = New System.Drawing.Size(170, 20)
        Me.TextBoxDaten.TabIndex = 3


'eigener Code
     'die Grösse einer Textbox zur Laufzeit ermitteln
        Dim xyloc As New System.Drawing.Point
        Dim i, j As Integer
        'entweder so als xy Koordinate
        xyloc.X = TextBoxDaten.Width
        xyloc.Y = TextBoxDaten.Height
        ' liefert: xyloc = {X = 170 Y = 20}
        ' oder so als Einzelwerte
        i = TextBoxDaten.Width
        j = TextBoxDaten.Height

Hallo API Checker,

hier mein Beispiel. Sowohl mit der Klasse Point und auch als einzelne
Integerwerte. Auch mit der Klasse Size möglich, wohl hier sinnvoll.
Viel Erfolg und schöne Grüße
Ellen

Answer 2

Viele dank für die Hilfe !
Super, jetzt gehts alles !