SHARE
TWEET

Экранная клава

Larik Apr 16th, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.  
  3.     Dim a As Integer
  4.  
  5.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.  
  7.  
  8.  
  9.     End Sub
  10.  
  11.     Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  12.  
  13.     End Sub
  14.  
  15.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  16.  
  17.         Close()
  18.  
  19.     End Sub
  20.  
  21.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  22.  
  23.         TextBox1.Text &= Button2.Text
  24.  
  25.         Timer1.Start()
  26.  
  27.     End Sub
  28.  
  29.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  30.  
  31.         TextBox1.Text &= Button3.Text
  32.  
  33.         Timer1.Start()
  34.  
  35.     End Sub
  36.  
  37.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  38.         TextBox1.Text &= Button4.Text
  39.  
  40.         Timer1.Start()
  41.     End Sub
  42.  
  43.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  44.         TextBox1.Text &= Button5.Text
  45.  
  46.         Timer1.Start()
  47.     End Sub
  48.  
  49.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  50.         TextBox1.Text &= Button6.Text
  51.  
  52.         Timer1.Start()
  53.     End Sub
  54.  
  55.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  56.         TextBox1.Text &= Button7.Text
  57.  
  58.         Timer1.Start()
  59.     End Sub
  60.  
  61.     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
  62.         TextBox1.Text &= Button8.Text
  63.  
  64.         Timer1.Start()
  65.     End Sub
  66.  
  67.     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
  68.         TextBox1.Text &= Button9.Text
  69.  
  70.         Timer1.Start()
  71.     End Sub
  72.  
  73.     Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
  74.         TextBox1.Text &= Button10.Text
  75.  
  76.         Timer1.Start()
  77.     End Sub
  78.  
  79.     Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
  80.         TextBox1.Text &= Button11.Text
  81.  
  82.         Timer1.Start()
  83.     End Sub
  84.  
  85.     Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
  86.         TextBox1.Text &= Button12.Text
  87.  
  88.         Timer1.Start()
  89.     End Sub
  90.  
  91.     Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
  92.         TextBox1.Text &= Button13.Text
  93.  
  94.         Timer1.Start()
  95.     End Sub
  96.  
  97.     Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
  98.         TextBox1.Text &= Button14.Text
  99.  
  100.         Timer1.Start()
  101.     End Sub
  102.  
  103.     Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
  104.         TextBox1.Clear()
  105.     End Sub
  106.  
  107.     Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
  108.         TextBox1.Text &= "    "
  109.     End Sub
  110.  
  111.     Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
  112.         TextBox1.Text &= Button17.Text
  113.  
  114.         Timer1.Start()
  115.     End Sub
  116.  
  117.     Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
  118.         TextBox1.Text &= Button18.Text
  119.  
  120.         Timer1.Start()
  121.     End Sub
  122.  
  123.     Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
  124.         TextBox1.Text &= Button19.Text
  125.  
  126.         Timer1.Start()
  127.     End Sub
  128.  
  129.     Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
  130.         TextBox1.Text &= Button20.Text
  131.  
  132.         Timer1.Start()
  133.     End Sub
  134.  
  135.     Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
  136.         TextBox1.Text &= Button21.Text
  137.  
  138.         Timer1.Start()
  139.     End Sub
  140.  
  141.     Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
  142.         TextBox1.Text &= Button22.Text
  143.  
  144.         Timer1.Start()
  145.     End Sub
  146.  
  147.     Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
  148.         TextBox1.Text &= Button23.Text
  149.  
  150.         Timer1.Start()
  151.     End Sub
  152.  
  153.     Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
  154.         TextBox1.Text &= Button24.Text
  155.  
  156.         Timer1.Start()
  157.     End Sub
  158.  
  159.     Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
  160.         TextBox1.Text &= Button25.Text
  161.  
  162.         Timer1.Start()
  163.     End Sub
  164.  
  165.     Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
  166.         TextBox1.Text &= Button26.Text
  167.  
  168.         Timer1.Start()
  169.     End Sub
  170.  
  171.     Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
  172.         TextBox1.Text &= Button27.Text
  173.  
  174.         Timer1.Start()
  175.     End Sub
  176.  
  177.     Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
  178.         TextBox1.Text &= Button28.Text
  179.  
  180.         Timer1.Start()
  181.     End Sub
  182.  
  183.     Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
  184.         TextBox1.Text &= Button29.Text
  185.  
  186.         Timer1.Start()
  187.     End Sub
  188.  
  189.     Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
  190.         TextBox1.Clear()
  191.     End Sub
  192.  
  193.     Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
  194.  
  195.         If Button68.Text = "0" Then
  196.  
  197.             Button31.BackColor = Color.Green
  198.  
  199.             Button2.Text = "Ё"
  200.             Button17.Text = "Й"
  201.             Button18.Text = "Ц"
  202.             Button19.Text = "У"
  203.             Button20.Text = "К"
  204.             Button21.Text = "Е"
  205.             Button22.Text = "Н"
  206.             Button23.Text = "Г"
  207.             Button24.Text = "Ш"
  208.             Button25.Text = "Щ"
  209.             Button26.Text = "З"
  210.             Button27.Text = "Х"
  211.             Button28.Text = "Ъ"
  212.             Button32.Text = "Ф"
  213.             Button33.Text = "Ы"
  214.             Button34.Text = "В"
  215.             Button35.Text = "А"
  216.             Button36.Text = "П"
  217.             Button37.Text = "Р"
  218.             Button38.Text = "О"
  219.             Button39.Text = "Л"
  220.             Button40.Text = "Д"
  221.             Button41.Text = "Ж"
  222.             Button42.Text = "Э"
  223.             Button45.Text = "Я"
  224.             Button46.Text = "Ч"
  225.             Button47.Text = "С"
  226.             Button48.Text = "М"
  227.             Button49.Text = "И"
  228.             Button50.Text = "Т"
  229.             Button51.Text = "Ь"
  230.             Button52.Text = "Б"
  231.             Button53.Text = "Ю"
  232.  
  233.             Button68.Text = "1"
  234.  
  235.         Else
  236.  
  237.             Button31.BackColor = Color.White
  238.  
  239.             Button2.Text = "ё"
  240.             Button17.Text = "й"
  241.             Button18.Text = "ц"
  242.             Button19.Text = "у"
  243.             Button20.Text = "к"
  244.             Button21.Text = "е"
  245.             Button22.Text = "н"
  246.             Button23.Text = "г"
  247.             Button24.Text = "ш"
  248.             Button25.Text = "щ"
  249.             Button26.Text = "з"
  250.             Button27.Text = "х"
  251.             Button28.Text = "ъ"
  252.             Button32.Text = "ф"
  253.             Button33.Text = "ы"
  254.             Button34.Text = "в"
  255.             Button35.Text = "а"
  256.             Button36.Text = "п"
  257.             Button37.Text = "р"
  258.             Button38.Text = "о"
  259.             Button39.Text = "л"
  260.             Button40.Text = "д"
  261.             Button41.Text = "ж"
  262.             Button42.Text = "э"
  263.             Button45.Text = "я"
  264.             Button46.Text = "ч"
  265.             Button47.Text = "с"
  266.             Button48.Text = "м"
  267.             Button49.Text = "и"
  268.             Button50.Text = "т"
  269.             Button51.Text = "ь"
  270.             Button52.Text = "б"
  271.             Button53.Text = "ю"
  272.  
  273.             Button68.Text = "0"
  274.  
  275.         End If
  276.  
  277.     End Sub
  278.  
  279.     Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
  280.  
  281.         TextBox1.Text &= Button32.Text
  282.  
  283.         Timer1.Start()
  284.  
  285.     End Sub
  286.  
  287.     Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
  288.         TextBox1.Text &= Button33.Text
  289.  
  290.         Timer1.Start()
  291.     End Sub
  292.  
  293.     Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
  294.         TextBox1.Text &= Button34.Text
  295.  
  296.         Timer1.Start()
  297.     End Sub
  298.  
  299.     Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
  300.         TextBox1.Text &= Button35.Text
  301.  
  302.         Timer1.Start()
  303.     End Sub
  304.  
  305.     Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
  306.         TextBox1.Text &= Button36.Text
  307.  
  308.         Timer1.Start()
  309.     End Sub
  310.  
  311.     Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
  312.         TextBox1.Text &= Button37.Text
  313.  
  314.         Timer1.Start()
  315.     End Sub
  316.  
  317.     Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
  318.         TextBox1.Text &= Button38.Text
  319.  
  320.         Timer1.Start()
  321.     End Sub
  322.  
  323.     Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
  324.         TextBox1.Text &= Button39.Text
  325.  
  326.         Timer1.Start()
  327.     End Sub
  328.  
  329.     Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click
  330.         TextBox1.Text &= Button40.Text
  331.  
  332.         Timer1.Start()
  333.     End Sub
  334.  
  335.     Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
  336.         TextBox1.Text &= Button41.Text
  337.  
  338.         Timer1.Start()
  339.     End Sub
  340.  
  341.     Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click
  342.         TextBox1.Text &= Button42.Text
  343.  
  344.         Timer1.Start()
  345.     End Sub
  346.  
  347.     Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click
  348.  
  349.     End Sub
  350.  
  351.     Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click
  352.         '44 56 69
  353.        If Button69.Text = "0" Then
  354.  
  355.             Button44.BackColor = Color.Green
  356.             Button56.BackColor = Color.Green
  357.  
  358.             Button2.Text = "Ё"
  359.             Button3.Text = "!"
  360.             Button4.Text = """"
  361.             Button5.Text = "№"
  362.             Button6.Text = ";"
  363.             Button7.Text = "%"
  364.             Button8.Text = ":"
  365.             Button9.Text = "?"
  366.             Button10.Text = "*"
  367.             Button11.Text = "("
  368.             Button12.Text = ")"
  369.             Button13.Text = "_"
  370.             Button14.Text = "+"
  371.             Button17.Text = "Й"
  372.             Button18.Text = "Ц"
  373.             Button19.Text = "У"
  374.             Button20.Text = "К"
  375.             Button21.Text = "Е"
  376.             Button22.Text = "Н"
  377.             Button23.Text = "Г"
  378.             Button24.Text = "Ш"
  379.             Button25.Text = "Щ"
  380.             Button26.Text = "З"
  381.             Button27.Text = "Х"
  382.             Button28.Text = "Ъ"
  383.             Button29.Text = "/"
  384.             Button32.Text = "Ф"
  385.             Button33.Text = "Ы"
  386.             Button34.Text = "В"
  387.             Button35.Text = "А"
  388.             Button36.Text = "П"
  389.             Button37.Text = "Р"
  390.             Button38.Text = "О"
  391.             Button39.Text = "Л"
  392.             Button40.Text = "Д"
  393.             Button41.Text = "Ж"
  394.             Button42.Text = "Э"
  395.             Button45.Text = "Я"
  396.             Button46.Text = "Ч"
  397.             Button47.Text = "С"
  398.             Button48.Text = "М"
  399.             Button49.Text = "И"
  400.             Button50.Text = "Т"
  401.             Button51.Text = "Ь"
  402.             Button52.Text = "Б"
  403.             Button53.Text = "Ю"
  404.             Button54.Text = ","
  405.  
  406.             Button69.Text = "1"
  407.  
  408.         Else
  409.  
  410.             Button44.BackColor = Color.White
  411.             Button56.BackColor = Color.White
  412.  
  413.             Button2.Text = "ё"
  414.             Button3.Text = "1"
  415.             Button4.Text = "2"
  416.             Button5.Text = "3"
  417.             Button6.Text = "4"
  418.             Button7.Text = "5"
  419.             Button8.Text = "6"
  420.             Button9.Text = "7"
  421.             Button10.Text = "8"
  422.             Button11.Text = "9"
  423.             Button12.Text = "0"
  424.             Button13.Text = "-"
  425.             Button14.Text = "="
  426.             Button17.Text = "й"
  427.             Button18.Text = "ц"
  428.             Button19.Text = "у"
  429.             Button20.Text = "к"
  430.             Button21.Text = "е"
  431.             Button22.Text = "н"
  432.             Button23.Text = "г"
  433.             Button24.Text = "ш"
  434.             Button25.Text = "щ"
  435.             Button26.Text = "з"
  436.             Button27.Text = "х"
  437.             Button28.Text = "ъ"
  438.             Button29.Text = "\"
  439.             Button32.Text = "ф"
  440.             Button33.Text = "ы"
  441.             Button34.Text = "в"
  442.             Button35.Text = "а"
  443.             Button36.Text = "п"
  444.             Button37.Text = "р"
  445.             Button38.Text = "о"
  446.             Button39.Text = "л"
  447.             Button40.Text = "д"
  448.             Button41.Text = "ж"
  449.             Button42.Text = "э"
  450.             Button45.Text = "я"
  451.             Button46.Text = "ч"
  452.             Button47.Text = "с"
  453.             Button48.Text = "м"
  454.             Button49.Text = "и"
  455.             Button50.Text = "т"
  456.             Button51.Text = "ь"
  457.             Button52.Text = "б"
  458.             Button53.Text = "ю"
  459.             Button54.Text = "."
  460.  
  461.             Button69.Text = "0"
  462.  
  463.         End If
  464.  
  465.     End Sub
  466.  
  467.     Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
  468.         TextBox1.Text &= Button45.Text
  469.  
  470.         Timer1.Start()
  471.     End Sub
  472.  
  473.     Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click
  474.         TextBox1.Text &= Button46.Text
  475.  
  476.         Timer1.Start()
  477.     End Sub
  478.  
  479.     Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click
  480.  
  481.         TextBox1.Text &= Button47.Text
  482.  
  483.         Timer1.Start()
  484.  
  485.     End Sub
  486.  
  487.     Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click
  488.  
  489.         TextBox1.Text &= Button48.Text
  490.  
  491.         Timer1.Start()
  492.  
  493.     End Sub
  494.  
  495.     Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click
  496.         TextBox1.Text &= Button49.Text
  497.  
  498.         Timer1.Start()
  499.     End Sub
  500.  
  501.     Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click
  502.         TextBox1.Text &= Button50.Text
  503.  
  504.         Timer1.Start()
  505.     End Sub
  506.  
  507.     Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click
  508.         TextBox1.Text &= Button51.Text
  509.  
  510.         Timer1.Start()
  511.     End Sub
  512.  
  513.     Private Sub Button52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button52.Click
  514.         TextBox1.Text &= Button52.Text
  515.  
  516.         Timer1.Start()
  517.     End Sub
  518.  
  519.     Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click
  520.         TextBox1.Text &= Button53.Text
  521.  
  522.         Timer1.Start()
  523.     End Sub
  524.  
  525.     Private Sub Button54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button54.Click
  526.         TextBox1.Text &= Button54.Text
  527.  
  528.         Timer1.Start()
  529.     End Sub
  530.  
  531.     Private Sub Button55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button55.Click
  532.  
  533.     End Sub
  534.  
  535.     Private Sub Button56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button56.Click
  536.  
  537.         If Button69.Text = "0" Then
  538.  
  539.             Button44.BackColor = Color.Green
  540.             Button56.BackColor = Color.Green
  541.  
  542.             Button2.Text = "Ё"
  543.             Button3.Text = "!"
  544.             Button4.Text = """"
  545.             Button5.Text = "№"
  546.             Button6.Text = ";"
  547.             Button7.Text = "%"
  548.             Button8.Text = ":"
  549.             Button9.Text = "?"
  550.             Button10.Text = "*"
  551.             Button11.Text = "("
  552.             Button12.Text = ")"
  553.             Button13.Text = "_"
  554.             Button14.Text = "+"
  555.             Button17.Text = "Й"
  556.             Button18.Text = "Ц"
  557.             Button19.Text = "У"
  558.             Button20.Text = "К"
  559.             Button21.Text = "Е"
  560.             Button22.Text = "Н"
  561.             Button23.Text = "Г"
  562.             Button24.Text = "Ш"
  563.             Button25.Text = "Щ"
  564.             Button26.Text = "З"
  565.             Button27.Text = "Х"
  566.             Button28.Text = "Ъ"
  567.             Button29.Text = "/"
  568.             Button32.Text = "Ф"
  569.             Button33.Text = "Ы"
  570.             Button34.Text = "В"
  571.             Button35.Text = "А"
  572.             Button36.Text = "П"
  573.             Button37.Text = "Р"
  574.             Button38.Text = "О"
  575.             Button39.Text = "Л"
  576.             Button40.Text = "Д"
  577.             Button41.Text = "Ж"
  578.             Button42.Text = "Э"
  579.             Button45.Text = "Я"
  580.             Button46.Text = "Ч"
  581.             Button47.Text = "С"
  582.             Button48.Text = "М"
  583.             Button49.Text = "И"
  584.             Button50.Text = "Т"
  585.             Button51.Text = "Ь"
  586.             Button52.Text = "Б"
  587.             Button53.Text = "Ю"
  588.             Button54.Text = ","
  589.  
  590.             Button69.Text = "1"
  591.  
  592.         Else
  593.  
  594.             Button44.BackColor = Color.White
  595.             Button56.BackColor = Color.White
  596.  
  597.             Button2.Text = "ё"
  598.             Button3.Text = "1"
  599.             Button4.Text = "2"
  600.             Button5.Text = "3"
  601.             Button6.Text = "4"
  602.             Button7.Text = "5"
  603.             Button8.Text = "6"
  604.             Button9.Text = "7"
  605.             Button10.Text = "8"
  606.             Button11.Text = "9"
  607.             Button12.Text = "0"
  608.             Button13.Text = "-"
  609.             Button14.Text = "="
  610.             Button17.Text = "й"
  611.             Button18.Text = "ц"
  612.             Button19.Text = "у"
  613.             Button20.Text = "к"
  614.             Button21.Text = "е"
  615.             Button22.Text = "н"
  616.             Button23.Text = "г"
  617.             Button24.Text = "ш"
  618.             Button25.Text = "щ"
  619.             Button26.Text = "з"
  620.             Button27.Text = "х"
  621.             Button28.Text = "ъ"
  622.             Button29.Text = "\"
  623.             Button32.Text = "ф"
  624.             Button33.Text = "ы"
  625.             Button34.Text = "в"
  626.             Button35.Text = "а"
  627.             Button36.Text = "п"
  628.             Button37.Text = "р"
  629.             Button38.Text = "о"
  630.             Button39.Text = "л"
  631.             Button40.Text = "д"
  632.             Button41.Text = "ж"
  633.             Button42.Text = "э"
  634.             Button45.Text = "я"
  635.             Button46.Text = "ч"
  636.             Button47.Text = "с"
  637.             Button48.Text = "м"
  638.             Button49.Text = "и"
  639.             Button50.Text = "т"
  640.             Button51.Text = "ь"
  641.             Button52.Text = "б"
  642.             Button53.Text = "ю"
  643.             Button54.Text = "."
  644.  
  645.             Button69.Text = "0"
  646.  
  647.         End If
  648.  
  649.     End Sub
  650.  
  651.     Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click
  652.  
  653.  
  654.  
  655.     End Sub
  656.  
  657.     Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click
  658.  
  659.     End Sub
  660.  
  661.     Private Sub Button59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button59.Click
  662.  
  663.         If Button44.BackColor = Color.Green Or Button56.BackColor = Color.Green Then
  664.  
  665.             If Button70.Text = "0" Then
  666.  
  667.                 Button59.BackColor = Color.Green
  668.                 Button61.BackColor = Color.Green
  669.  
  670.                 Button2.Text = "`"
  671.                 Button3.Text = "1"
  672.                 Button4.Text = "2"
  673.                 Button5.Text = "3"
  674.                 Button6.Text = "4"
  675.                 Button7.Text = "5"
  676.                 Button8.Text = "6"
  677.                 Button9.Text = "7"
  678.                 Button10.Text = "8"
  679.                 Button11.Text = "9"
  680.                 Button12.Text = "0"
  681.                 Button13.Text = "-"
  682.                 Button14.Text = "="
  683.                 Button17.Text = "q"
  684.                 Button18.Text = "w"
  685.                 Button19.Text = "e"
  686.                 Button20.Text = "r"
  687.                 Button21.Text = "t"
  688.                 Button22.Text = "y"
  689.                 Button23.Text = "u"
  690.                 Button24.Text = "i"
  691.                 Button25.Text = "o"
  692.                 Button26.Text = "p"
  693.                 Button27.Text = "["
  694.                 Button28.Text = "]"
  695.                 Button29.Text = "\"
  696.                 Button32.Text = "a"
  697.                 Button33.Text = "s"
  698.                 Button34.Text = "d"
  699.                 Button35.Text = "f"
  700.                 Button36.Text = "g"
  701.                 Button37.Text = "h"
  702.                 Button38.Text = "j"
  703.                 Button39.Text = "k"
  704.                 Button40.Text = "l"
  705.                 Button41.Text = ";"
  706.                 Button42.Text = "'"
  707.                 Button45.Text = "z"
  708.                 Button46.Text = "x"
  709.                 Button47.Text = "c"
  710.                 Button48.Text = "v"
  711.                 Button49.Text = "b"
  712.                 Button50.Text = "n"
  713.                 Button51.Text = "m"
  714.                 Button52.Text = ","
  715.                 Button53.Text = "."
  716.                 Button54.Text = "/"
  717.  
  718.             End If
  719.  
  720.         End If
  721.  
  722.     End Sub
  723.  
  724.     Private Sub Button60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button60.Click
  725.         TextBox1.Text &= " "
  726.     End Sub
  727.  
  728.     Private Sub Button61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click
  729.  
  730.        
  731.  
  732.     End Sub
  733.  
  734.     Private Sub Button62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click
  735.  
  736.     End Sub
  737.  
  738.     Private Sub Button63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click
  739.  
  740.        
  741.  
  742.     End Sub
  743.  
  744.     Private Sub Button64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
  745.  
  746.     End Sub
  747.  
  748.     Private Sub Button65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
  749.  
  750.     End Sub
  751.  
  752.     Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click
  753.  
  754.     End Sub
  755.  
  756.     Private Sub Button67_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button67.Click
  757.  
  758.         If Button72.Text = "0" Then
  759.  
  760.             Button67.BackColor = Color.Green
  761.  
  762.             Button3.Text = "F1"
  763.             Button4.Text = "F2"
  764.             Button5.Text = "F3"
  765.             Button6.Text = "F4"
  766.             Button7.Text = "F5"
  767.             Button8.Text = "F6"
  768.             Button9.Text = "F7"
  769.             Button10.Text = "F8"
  770.             Button11.Text = "F9"
  771.             Button12.Text = "F10"
  772.             Button13.Text = "F11"
  773.             Button14.Text = "F12"
  774.  
  775.             Button72.Text = "1"
  776.  
  777.         Else
  778.  
  779.             Button67.BackColor = Color.White
  780.  
  781.             Button3.Text = "1"
  782.             Button4.Text = "2"
  783.             Button5.Text = "3"
  784.             Button6.Text = "4"
  785.             Button7.Text = "5"
  786.             Button8.Text = "6"
  787.             Button9.Text = "7"
  788.             Button10.Text = "8"
  789.             Button11.Text = "9"
  790.             Button12.Text = "0"
  791.             Button13.Text = "-"
  792.             Button14.Text = "="
  793.  
  794.             Button72.Text = "0"
  795.  
  796.         End If
  797.  
  798.     End Sub
  799.  
  800.     Private Sub Button68_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button68.Click
  801.  
  802.     End Sub
  803.  
  804.     Private Sub Button69_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  805.  
  806.     End Sub
  807.  
  808.     Private Sub Button72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button72.Click
  809.  
  810.     End Sub
  811.  
  812.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  813.  
  814.         If Button44.BackColor = Color.Green Or Button56.BackColor = Color.Green Then
  815.  
  816.             Button44.BackColor = Color.White
  817.             Button56.BackColor = Color.White
  818.  
  819.             Button2.Text = "ё"
  820.             Button3.Text = "1"
  821.             Button4.Text = "2"
  822.             Button5.Text = "3"
  823.             Button6.Text = "4"
  824.             Button7.Text = "5"
  825.             Button8.Text = "6"
  826.             Button9.Text = "7"
  827.             Button10.Text = "8"
  828.             Button11.Text = "9"
  829.             Button12.Text = "0"
  830.             Button13.Text = "-"
  831.             Button14.Text = "="
  832.             Button17.Text = "й"
  833.             Button18.Text = "ц"
  834.             Button19.Text = "у"
  835.             Button20.Text = "к"
  836.             Button21.Text = "е"
  837.             Button22.Text = "н"
  838.             Button23.Text = "г"
  839.             Button24.Text = "ш"
  840.             Button25.Text = "щ"
  841.             Button26.Text = "з"
  842.             Button27.Text = "х"
  843.             Button28.Text = "ъ"
  844.             Button29.Text = "\"
  845.             Button32.Text = "ф"
  846.             Button33.Text = "ы"
  847.             Button34.Text = "в"
  848.             Button35.Text = "а"
  849.             Button36.Text = "п"
  850.             Button37.Text = "р"
  851.             Button38.Text = "о"
  852.             Button39.Text = "л"
  853.             Button40.Text = "д"
  854.             Button41.Text = "ж"
  855.             Button42.Text = "э"
  856.             Button45.Text = "я"
  857.             Button46.Text = "ч"
  858.             Button47.Text = "с"
  859.             Button48.Text = "м"
  860.             Button49.Text = "и"
  861.             Button50.Text = "т"
  862.             Button51.Text = "ь"
  863.             Button52.Text = "б"
  864.             Button53.Text = "ю"
  865.             Button54.Text = "."
  866.  
  867.         End If
  868.  
  869.         Button69.Text = "0"
  870.  
  871.         Timer1.Stop()
  872.  
  873.     End Sub
  874. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top