Всім привіт! Допоможіть, будь ласка, розібратися з формою. У програмування не селен, а зробити дуже потрібно. Ніяк не можу зрозуміти як мені зробити форму (з кнопками) при натисканні на кнопки не йтиме фокус від іншої програми. Створив форму з 2 кнопками, які імітують натискання Up і Down. Прибрав всі межі, зробив її по верх всіх вікон. Але ось як зробити так, що при натисканні на одну з 2 кнопок фокус не "йшов" від попереднього вікна. Як це реалізовано в екранній клавіатурі. Пробував передавати SendKey-си вікна, але вікно при цьому мерехтить коли постійно змінюється фокус. Заранее спасибо за будь-яку допомогу. p.s. не знаю на скільки це принципово але це хочу використовувати на тачскрінеДобавлено через 14 годин 27 хвилин ласка, хоч натякніть як це можна реалізувати? Додано через 10 годин 34 хвилини На просторах знайшов ось такий код на VB6:
Вводимо ім'я принтера в текстове поле, натискаємо на кнопку, з'являється вікно властивостей принтер. см.скрін. Чи можливо його отримати? заранее спасибо за відповіді і допомогу.
Всім привіт. Як зробити перевірку, що значення в ListBox обрані. І як зробити перевірку що ListBox не пустили? Ось програмка і код виклав. І ще як забезпечити доступність кожної з кнопок тільки в необхідні моменти часу? Vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Public Class Form1 Private Sub Button1_Click (sender As Object, e As EventArgs) Handles Button1.Click ListBox2.Items.Add (ListBox1.Text) ListBox1.Items.RemoveAt (ListBox1.SelectedIndex) End Sub Private Sub Button3_Click (sender As Object, e As EventArgs) Handles Button3. Click For Each var As Object In ListBox1.Items ListBox2.Items.Add (var) Next ListBox1.Items.Clear () End Sub Private Sub Button2_Click (sender As Object, e As EventArgs) Handles Button2.Click ListBox1.Items.Add ( ListBox2.Text) ListBox2.Items.RemoveAt (ListBox2.SelectedIndex) End Sub Private Sub Button4_Click (sender As Object, e As EventArgs) Handles Button4.Click For Each var As Object In ListBox2.Items ListBox1.Items.Add (var) Next ListBox2.Items.Clear () End Sub End Class
Доброго вам дня! Є код: vb.net1 2 3 4 5 6 7 Private Sub Form1_Load (sender As Object, e As EventArgs) Handles MyBase.Load Timer1.Start () Me.Enabled = False End Sub Private Sub Timer1_Tick (sender As Object, e As EventArgs) Handles Timer1.Tick Label1.Text = "Текст" End SubМожно чи додати виключення в дію форми Me.Enabled = False, наприклад для label?
Всім здрастуйте. Мова про роботу з послідовним портом за допомогою елемента управління SerialPort. Точно знаю, що в послідовному порту після посилу в нього певної команди виявиться 8 байт. Точно знаю, що це HEX байти 02,46,03,04,00,00, C9, B3. Припустимо я захотів вважати тільки перші 7: vb.net1 nReadByte = SerialPort1.Read (bReceived, 0, 7) 'де bReceived - байтовий масив нехай наприклад на 100 байт Перевіряю масив bReceived і бачу наступне: B3,46,03,04,00 , 00, C9,00. Причому кількість лічених байт nReadByte = 1 (не 8!) Vb.net1 nReadByte = SerialPort1.Read (bReceived, 0, 6) дасть C9, B3,03,04,00,00,00,00 і nReadByte = 2 Якщо виконати vb .net1 nReadByte = SerialPort1.Read (bReceived, 0, 90), тобто з запасом, то кількість лічених байт nReadByte = 8 і результат - очікуваний (02,46,03,04,00,00, C9, B3). Як це розуміти? Добре, що я знаю скільки байт має виявитися в буфері com-порту. А якщо немає! Або в результаті темних електричних сил якийсь байт загубиться! Як пояснити настільки дивна поведінка функції і як уберегтися від помилки? Додано через 2 хвилини повний код процедури на всякий випадок: vb.net1 2 3 4 Private Sub SerialPort1_DataReceived (ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived 'Автоматично викликається кожен раз, коли дані надходять в послідовний порт nReadByte = SerialPort1.Read (bReceived, 0, 8) End Sub