Hirdetés
- Külföldi prepaid SIM-ek itthon
- CES 2026: Érintőceruzát támogató komolyabb Motorola várható
- OnePlus 15 - van plusz energia
- Telekom mobilszolgáltatások
- Android alkalmazások - szoftver kibeszélő topik
- Rugalmas OLED panelre válthat a Samsung Galaxy A57
- Huawei Watch D2 - nyomás utána!
- iPhone topik
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Xiaomi MI-3 - odavág a nagyoknak
Új hozzászólás Aktív témák
-
pmonitor
aktív tag
válasz
sztanozs
#3165
üzenetére
Miért? A Form nem Control?
szerk.:
Valahogy így lehet ezt megcsinálni:Imports System.Threading
Public Class Form1
Public variable As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync(Me)
Timer1.Start()
End Sub
Sub Update()
Text = variable
End Sub
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim frm As Form1 = e.Argument
For i = 1 To 100
If (frm.InvokeRequired) Then frm.Invoke(New MethodInvoker(AddressOf Update), Nothing)
Thread.Sleep(1000)
Next
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
variable += 1
End Sub
End Class -
pmonitor
aktív tag
válasz
Diopapa
#3162
üzenetére
Ha egyik formból szeretnél hozzáférni egy másik form metódusához/változójához, az általában rossz program szerkezetre utal. Vb.Net-ben meg tudod oldani, hogy az ilyeneket modulban valósítod meg.
@sztanozs: Meg ha átadná, akkor sem fér hozzá egy control-hoz a DoWork()-ban. Csoda, hogy egyáltalán nem száll el a futásidőben.
Új hozzászólás Aktív témák
- -40% ÚJ DOBOZOS Lenovo Thinkpad T14 Gen 5: Ultra 7 165U/32GB DDR5/512GB/400nit/5MP/vil.MAGYAR bill.
- -300e Ft KEDVEZMÉNY:ÚJ Lenovo Thinkpad T14 Gen 5:Ultra 7 165U/64GB DDR5/512GB/400nit/vil.MAGYAR bill
- iPhone 16 128GB Független Karcmentes/2028.12.30.Gar./Akku 100%/p4665
- Intel passzív csúcsgép: 4,7 GHz Intel i7 1255U, 10 mag / 12 szál barebone
- -42% ÚJ Lenovo ThinkCentre M70s G5 SFF: i5 14500 14mag, 16GB RAM, 512GB NVMe SSD, ÚJ HU bill + egér
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- Keresünk S24/S24+/24 Ultra/S24 FE
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- Xiaomi 15 256GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! GIGABYTE A520M R5 5500 16GB DDR4 512GB SSD GTX 1660 Super 6GB Zalman T3 Plus 400W
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


