Buna ziua tuturor! Te rog ajută-mă să îmi dau seama formularul. În programare, nu seleniu, dar este foarte necesar să o faci. Nu pot să înțeleg cum pot face o formă (cu butoane), făcând clic pe butonul nu va pleca de focalizare de la o altă aplicație. A creat un formular cu 2 butoane care simulează apăsarea Sus și Jos. Eliminate toate frontierele, a făcut-o pe toate ferestrele. Dar iată cum să vă asigurați că, atunci când apăsați unul dintre cele două butoane să se concentreze nu „părăsi“ din fereastra anterioară. Cum este implementat în tastatura de pe ecran. Am încercat să treacă SendKey la fereastră, dar fereastra clipește atunci când focalizarea se schimbă constant. Vă mulțumim în avans pentru orice ajutor. P.S. Nu știu cât de mult este, în principiu, dar doriți să utilizați pe tachskrineDobavleno 14 ore 27 minute vă rugăm chiar indiciu cum poate fi pus în aplicare Publicat 10 ore 34 minute în vastitatea a găsit acum un cod VB6 ?:
Introduceți numele imprimantei în caseta de text, faceți clic pe butonul, apare fereastra cu proprietățile imprimantei. consultați ecranul. Este posibil să o obțină? Vă mulțumim în avans pentru răspunsuri și ajutor.
Bună ziua tuturor. Cum se verifică dacă sunt selectate valorile din Listă. Și cum să verific că lista nu este goală? Iată programul și codul postat. Și cum să se asigure disponibilitatea fiecăreia dintre cheile numai în calendarul necesar? 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 Publice Clasa Form1 Private Sub Button1_Click (expeditor ca obiect, e cum EventArgs) Minere Button1.Click ListBox2.Items.Add (ListBox1.Text) ListBox1.Items.RemoveAt (ListBox1.SelectedIndex) End Sub Private Sub Button3_Click (expeditor ca obiect, e Ca EventArgs) Manere Button3. clic pentru fiecare var ca obiect În ListBox1.Items ListBox2.Items.Add (var) Următoarea ListBox1.Items.Clear () End Sub Private Sub Button2_Click (expeditor ca obiect, e cum EventArgs) Minere Button2.Click ListBox1.Items.Add ( ListBox2.Text) ListBox2.Items.RemoveAt (ListBox2.SelectedIndex) End Sub Private Sub button4_Click (expeditor ca obiect, e cum EventArgs) Minere Button4.Click Pentru fiecare var ca obiect În ListBox2.Items ListBox1.Items.Add (var) Următoarea ListBox2.Items.Clear () Clasa End Sub End
Bună ziua! Orice cod: vb.net1 2 3 4 5 6 7 Private Sub Form1_Load (expeditor ca obiect, e cum EventArgs) Minere MyBase.Load Timer1.Start () Me.Enabled = False End Sub Private Sub Timer1_Tick (expeditor ca obiect, e Ca EventArgs) Mânerele Timer1.Tick Label1.Text = „text“ End SubMozhno dacă pentru a adăuga o excepție de la acțiunea forma Me.Enabled = false, de exemplu, pentru a eticheta?
Bună ziua tuturor. Este vorba despre lucrul cu un port serial care utilizează comanda SerialPort. Doar știu că portul serial după ce a trimis el o anumita comanda va fi de 8 octeți. Doar știu că este bytes HEX 02,46,03,04,00,00, C9, B3. Să presupunem că am vrut să ia în considerare doar primele 7: vb.net1 nReadByte = SerialPort1.Read (bReceived, 0, 7), în cazul în care bReceived - lasa matrice octet cum ar fi o matrice de 100-byte bReceived am verificat și am văzut următoarele: B3,46,03,04,00 , 00, C9.00. Iar numărul de octeți citit nReadByte = 1 (nu 8!) Vb.net1 nReadByte = SerialPort1.Read (bReceived, 0, 6) da C9, B3,03,04,00,00,00,00 și nReadByte = 2 Dacă rulați vb .net1 nReadByte = SerialPort1.Read (bReceived, 0, 90), adică cu o marjă, numărul de octeți citit nReadByte = 8, iar rezultatul - așteptat (02,46,03,04,00,00, C9, B3). Cum trebuie înțeleasă aceasta? Ei bine, știu câte octeți ar trebui să fie în tampon com-port. Și dacă nu! Sau, ca rezultat al forțelor electrice întunecate, se pierde un octet! Cum se explica un astfel de comportament ciudat al funcției și cum să vă protejați de bug-uri Adăugat după 2 minute codul complet de procedură, în orice caz: vb.net1 2 3 4 Private Sub SerialPort1_DataReceived (ByVal expeditorul ca obiect, ByVal e Ca System.IO.Ports.SerialDataReceivedEventArgs) Minere SerialPort1.DataReceived „invocată în mod automat de fiecare dată când datele sunt primite în nReadByte serial = SerialPort1.Read (bReceived, 0, 8) End sub