フォームやコントãƒãƒ¼ãƒ«ã®å½¢ã‚’変ãˆã‚‹ãƒ•ã‚©ãƒ¼ãƒ を平方四辺形ã«ã™ã‚‹æ¬¡ã®ä¾‹ã§ã¯ãƒ•ã‚©ãƒ¼ãƒ (Form1)ã®å½¢ã‚’平方四辺形ã«ã—ã¾ã™ã€‚ã“ã“ã§ã¯ãƒ•ã‚©ãƒ¼ãƒ ã®Loadイベントãƒãƒ³ãƒ‰ãƒ©å†…ã«ã‚³ãƒ¼ãƒ‰ã‚’書ã„ã¦ã„ã¾ã™ãŒã€ã‚‚ã¡ã‚んフォームã®ã‚³ãƒ³ã‚¹ãƒˆãƒ©ã‚¯ã‚¿å†…ãªã©ã§ã‚‚構ã„ã¾ã›ã‚“。 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'フォームã®ã‚µã‚¤ã‚ºã‚’é©å½“ã«å¤‰æ›´ Me.SetBounds(Me.Left, Me.Top, 201, 101, _ BoundsSpecified.Size) '多角形ã®é ‚点ã®ä½ç½®ã‚’è¨å®š Dim points() As Point = _ {New Point(0, 0), _ New Point(100, 100), _ New Point(200, 100), _ New
{{#tags}}- {{label}}
{{/tags}}