ledlight

same spot letter heap start

Jan 23rd, 2021 (edited)
974
18 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Text
  2.  
  3. Public Class Form1
  4.     Dim Billarechnung As TextBox
  5.     Dim Brückenübergang As String
  6.     Dim ix, slitter As Integer
  7.     Dim dest(5) As Char
  8.  
  9.     Public Sub New()
  10.         Me.BackColor = Color.Beige
  11.  
  12.         InitializeComponent()
  13.  
  14.         Billarechnung = New TextBox
  15.         Me.Controls.Add(Billarechnung)
  16.         With Billarechnung
  17.             .Location = New Point(250, 250)
  18.             '.MaxLength = 27
  19.             .Text = Brückenübergang
  20.         End With
  21.  
  22.     End Sub
  23.  
  24.     Sub Kein_Stress_beim_Essen(e As KeyEventArgs)
  25.         Dim NumSticks As String
  26.         NumSticks = Billarechnung.Text.ToString
  27.         Dim whilecatchOutsideoperators As New StringBuilder(NumSticks, 27) '
  28.  
  29.         For ix = 0 To slitter
  30.             If slitter < 27 Then
  31.                 whilecatchOutsideoperators.CopyTo(ix * 1, dest, 1, 1)
  32.             End If
  33.         Next ix
  34.         Select Case e.KeyCode
  35.             Case Keys.Space
  36.                 slitter += 1
  37.                 Me.Invalidate()
  38.         End Select
  39.     End Sub
  40.  
  41.     Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
  42.         Kein_Stress_beim_Essen(e)
  43.     End Sub
  44.  
  45.     Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
  46.         With e.Graphics
  47.             .DrawString(dest, New Font("Consolas", 22),
  48.             New SolidBrush(Color.FromArgb(184, 190, 132, 230)), New Point(420, 170))
  49.         End With
  50.     End Sub
  51.  
  52.     Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
  53.         Me.ActiveControl = Nothing
  54.         Form1_Enter(sender, e)
  55.     End Sub
  56.  
  57.     Private Sub Form1_Enter(sender As Object, e As EventArgs) Handles Me.Enter
  58.         Me.BackColor = Color.BurlyWood
  59.     End Sub
  60.  
  61. End Class
RAW Paste Data