Программирование для карманных компьютеров. Владимир Волков. Читать онлайн. Newlib. NEWLIB.NET

Автор: Владимир Волков
Издательство:
Серия:
Жанр произведения: Программирование
Год издания: 0
isbn: 978-5-469-01300-6
Скачать книгу
к коду приложения обработчик события Form_Load(). Код обработчика приведен в листинге 3.13. В него добавлены комментарии, которые можно не вводить в код приложения. Они потребуются лишь для удобства рассмотрения этого фрагмента.

Листинг 3.13

      Rem 1

      Dim mnuFile As MenuBarMenu

      Rem 2

      Dim mnuSep, mnuClrl, mnuClr2, mnuClr3 As MenuBarButtor

      Rem 3

      Set mnuFile = MenuBarl.Controls.АсШепиС'Файл", «mnuFile»)

      Rem 4

      mnuFile.Items.Add 1, «itFont», «Редактирование шрифта»

      Rem 5

      mnuFile.Items.Item(1). SubItems.Add 1, «itBold», «Полужирный»

      mnuFile.Items.Item(1). SubItems.Add 2, «itItal», «Наклонный»

      mnuFile.Items.Item(1). SubItems.Add 3, «itSize», «Размер»

      Rem 6

      mnuFile.Items.Item(1). SubItems.Item(3). SubItems.Add 1, «it8», «* 8»

      mnuFile.Items.Item(1). SubItems.Item(3). SubItems.Add 2, «it10», «10»

      mnuFile.Items.Item(1). SubItems.Item(3). SubItems.Add 3, «it12», «12»

      Rem 7

      mnuFile.Items.Add 2, "", ""

      mnuFile.Items.Item(2). Style = mbrMenuSeparator

      Rem 8

      mnuFile.Items.Add 3, «itOpen», «Открыть»

      Rem 9

      mnuFile.Items.Add 5, "", ""

      mnuFile.Items.Item(5). Style = mbrMenuSeparator

      Rem 10

      mnuFile.Items.Add 6, «itExit», «Завершить работу»

      Rem 11

      Set mnuSep = MenuBar1.Controls.AddButton(«mnuSep»)

      mnuSep.Style = mbrSeparator

      Rem 12

      Set mnuClr1 = MenuBar1.Controls.AddButton("1")

      mnuClr1.Style = mbrButtonGroup

      mnuClr1.Caption = " 1»

      Set mnuClr2 = MenuBar1.Controls.AddButton("2")

      mnuClr2.Style = mbrButtonGroup

      mnuClr2.Caption = " 2»

      Set mnuClr3 = MenuBar1.Controls.AddButton("3")

      mnuClr3.Style = mbrButtonGroup

      mnuClr3.Caption = " 3»

      Rem 13

      Frame1.Top = -200

      List1.Clear

      End Sub

      13. Теперь этот листинг надо детально рассмотреть. В качестве ссылок будут использоваться номера комментариев в тексте.

      1) Объявляется переменная типа MenuBarMenu. Переменная одна, значит, на панели команд устройства будет один пункт меню.

      Конец ознакомительного фрагмента.

      Текст предоставлен ООО «ЛитРес».

      Прочитайте эту книгу целиком, купив полную легальную версию на ЛитРес.

      Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.

/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wgARCAFgAPoDASIAAhEBAxEB/8QAGwAAAgMBAQEAAAAAAAAAAAAAAAQBAwUCBgf/xAAaAQEBAQEBAQEAAAAAAAAAAAAAAQIDBAUG/9oADAMBAAIQAxAAAAHzoH0vogAESAAAAAAAAAAAAAAAAAAAAExJACmnmaWctZmoYw+hdXnD6EcrFlVlvPHXZVy5mU9W0nGP6DmjV1kKe85uT28qGOUHKZyNdJcUDt2JiU5n6Bz8meAn3WH1uCaU+lmGmGYacGaaQZurwSVJaRWaacLmmkGaaQZpphmGmGYaVkZJ7ufE8HPvLrNKGYz89JTZQ8vebU2/nb6iYZMzTR05uR46Vq3NYRupbo0M95OS2I4urO6OF1uqbuMAJF62FOnTrRv6+v5l5vOma4mM5kAT4fOe0R6ZUDQKzzRKzjRDPNEM40QzjRDNNIM2dEM40QznbDeQDpAArgOckgXyszl+jrurXoQ9HHNNW49ozCN1MUxnL6jPpqTQtStkX2fHP6u3GapGno+bfkt9N4f3GcyBnIAVBxznZmaFvPEXnadi9rk2LJccWVHK7C98ptVWwLjNNtJF1XZ3FF6FUMKu2vzTZUSWgFKD6GL5+xlH0dadzKkXJX1r6B5D13kOPKr0nmm+m/P+u8+5q1LsuGWj6ZJXs+qhH7leTnXyGSnSzeh0w/SSYPufA/Q8zoDnypovOTy2vpG7n0a5GTOqVOXqEiSW2avGNugvQ/JTn6wZVz5WG5oBivuBjZ/qS3Ir2xErGiQAigDnCYDy/ON6H1d89g5hLYyqtXQV71pEu6cq33fnKcVNhzUyMzM2Vd23zTibdqzSl1V2aXn4Z9p4L3ecXAcuZMSLnPXKBEnmo9NHTfkrfS1W4m7ZZnPl9HXLfN5XujV8pZ6iU8Zqb5Xmdh8k8U56kuufO+kM58Xb6+d68T7C4kkgzmQBaeeeE76o6LeeV18On1fj1Hoe8rD1zabXo8vU8lnU8h1PM1JE1JHnl9EY8VsmJJtTk3j4g9UzBCgHGScxHSjWVNeZ2eHMeu1ivvpx0jL468Nc86zZsz5+lfTzTOFs1lWcFVRVX1bNtNpLGc+XHInRz0KkxycmfgTn6unB7Y2OMlzPut0Um95zV7EfZ5m7sBjRixLT579FPE+e9ESZ1WtNJr6kmUw8Vk6nQSQRM89VRBVynkMxuN+Erdaz1oxtRHz/AFOPceV3vV49rnKy++rjJnRrZ876jF0Zqr51npBqLp46TnqhRNQxOjZMdu12UXYmeekwc61DtyyrKbePK1rK48XuueV1Xe/qOuf0M9a2n6vx6gfsV9Wu+jKb2bLLqzzMpOc8rmXtc2KdM9CejVbHcwEzz0eXSeT9XLIntNGaHVPN801sHW8v6fV7p58/t5u85f8AU+PuX1M7xLiTYdJ1WQ1k0zr6a7Jd5c7Ku2JFudGYytGwJADrnqvMqOIenmhj62QbSUr8vFw4j6PzfYezNDM8f18Zyyz1+Lcqy/STCzndvo81WbuK9cYbvTd68OQzy4UWWGSUscnLNQXdqNynfHSebxtLD9EnJfz7LLVm8eWnTyrOHs9Ehbd8/wDQ0TxVc2PIep9XireifX8+Z5mzpNuTNnSmTKZgiq2nuDTQcwvmCJ647PPeB+i/N/RjSX5VnDQqRY55h/0rWvTgXah5PrYje0115LtdUenxXU3Fi6DuRWs3m6eVkxOUc2TFVszlz3E5SROU9cd1j/PPpnk/RjNQv17cz3zPWdcc2lqtbMai/VtmCi+jm5aWaI9N6Wik9nMSSQR5ZPWT5dSPZz5CuPZz5D1WFpBhNlfZnrt9eiLtEWyQL0cyTAAEnMdhX30ESEETAKtCHUTlMxOQBgEGZPddh//EAC4QAAICAQUAAAUCBgMBAAAAAAIDAQQABRESExQQICEiMBU0JTEyMzVAIyRQYP/aAAgBAQABBQL/AODpoBszqP1KTsvj2xGpLgcsVFuqadVEiJIt1dt/rba4PpXwHaiA8JEf0jTKxnZogJMy2zy3zt7UKsC9nsZvfSCnwUUaN2Bm3bqIizYq9I/PTsCmZ09czTkKt3zFvqRrILFnrYd30WpeK9WbShjLMrTTrSFilcHyUq9xtcal9jL1FgC+K1VGakYHcYY/pWm2BSe9zOs7Vy+7vtWmBNi5VB9mxwTT/wBFLqgLtWJs2P8AR8yMmsnOheWKJcvC/PBYzwWM8FjPBYzwWM8FjPBYzwvzwWM8FjPBYzwWM8FjPBYzwWM8FjPBYzwWM8FjPBYzwWM8FjF0GycVVCPnTnQrOhWdCs6FYdceIzvkfLZsSkysgOdo8wsqmJsqjO9fP1KyGQSk2+celfH0r4+gIkXgRx8hZvtil95edWdCs6V/I5f1EpmI+RyiM/L9pVziYqs28g54946DBoK4Kip9s1yKZqQUzXLBRwfBfJOREvOIgY+ckRv0MzoZnQzOhmd