Hirdetés
- CMF Phone 1 - egy jó telefon
- MWC 2026: Na, fussunk vele még egy kört!
- iPhone topik
- Sokkal jobb ajánlat lett elődjénél az iPhone 17e
- Xiaomi 17 Ultra - jó az optikája
- Samsung Galaxy S25 - végre van kicsi!
- Akciófigyelő: Jelentős kedvezményekkel veheted meg a Xiaomi 17-eket
- Új design és okosabb AI: megjött a Galaxy S25 készülékcsalád
- MWC 2026: Kezünkben a frissen bemutatott Motorola Edge 70 Fusion
- MWC 2026: Végre mindent tudunk a Motorola Razr Foldról
Ú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
- BestBuy topik
- CMF Phone 1 - egy jó telefon
- Wuthering Waves
- Spórolós topik
- OLED monitor topic
- Milyen légkondit a lakásba?
- Fejhallgató erősítő és DAC topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Lítium-ion/Li-ion akkumulátorok
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- További aktív témák...
- HIBÁTLAN iPhone 12 Pro Max 256GB Pacific Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4533
- Telefon felvásárlás!! Samsung Galaxy S21/Samsung Galaxy S21+/Samsung Galaxy S21 Ultra
- ÚJ/BONTATLAN Microsoft Surface Laptop 7 X Elite 16GB 512GB
- BESZÁMÍTÁS! 1TB Samsung 980 Pro NVMe SSD meghajtó garanciával hibátlan működéssel
- Lenovo IdeaPad Slim 3 Ryzen 7 8840HS 15" FHD+ 16GB 1000GB Teljeskörű garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

