vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Rechteck skalieiren 
Autor: 00Tobi
Datum: 07.04.16 19:18

Hallo,

ich lasse mir über 2 Textboxen ein Rechteck zentriert in einer Groupbox erstellen.

Public Class Form1
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim x As String
        Dim y As String
        Dim x1 As String
        Dim y1 As String
 
 
        Dim myBrush As New System.Drawing.SolidBrush( _
          System.Drawing.Color.LemonChiffon)
        Dim formGraphics As System.Drawing.Graphics
        formGraphics = Me.GroupBox1.CreateGraphics()
        x = TextBox1.Text
        y = TextBox2.Text
        x1 = (600 - x) / 2
        y1 = (400 - y) / 2
 
        'wenn leer
        If TextBox1.Text = "" Or
            TextBox2.Text = "" Then
 
        Else
            Label1.Text = x / y
            formGraphics.FillRectangle(myBrush, New Rectangle(x1, y1, x, y))
        End If
 
 
    End Sub
 
 
End Class
Wie würdet Ihr es machen, wenn der x Wert größer 580 und/oder der Y Wert größer 380 ist sollen die Maße im Verhältnis herunterskaliert werden.

Beispiel X Wert 870 enspricht den 1,5 fachen von 580, dann sollte auch der Y heruntergerechtnet werden.

Ich hoffe ich habe mich verständlich ausgedrückt.

Gruß
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Rechteck skalieiren1.82100Tobi07.04.16 19:18
Re: Rechteck skalieren1.092Manfred X07.04.16 20:02
Re: Rechteck skalieiren87200Tobi07.04.16 20:39
Re: Rechteck skalieren940Manfred X07.04.16 21:08
Re: Rechteck skalieren195Opossum0129.11.22 21:05
Re: Rechteck skalieren182Manfred X30.11.22 06:44
Re: Rechteck skalieren170Opossum0130.11.22 20:16
Re: Rechteck skalieren310Manfred X30.11.22 21:55
Re: Rechteck skalieren179Opossum0101.12.22 19:07
Re: Rechteck skalieren272Manfred X02.12.22 11:44

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel