- Mobil flották
- Megérkezett Európába az Oppo vékony órája
- Motorola Signature - mielőtt aláírnád...
- Honor Magic6 Pro - kör közepén számok
- Android alkalmazások - szoftver kibeszélő topik
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Apple iPhone 17 Pro Max – fennsík
- Honor 200 Pro - mobilportré
- Azonnali mobilos kérdések órája
- Bluetooth-headsetekről általában
Új hozzászólás Aktív témák
-
Ispy
nagyúr
Hát ahhoz írni kell egy win szervizt, mondjuk .NET-be, aztán telepíteni kell a szerviz modulba.
Egyébként nem egy agysebész feladat, kell hozzá egy Visual Studio, meg pár sor kód.
Mondjuk nem tudom ez mennyire jó, mert a szerviz már akkor elindul, amikor feláll a win, tehát még be sem kell hozzá loginolni, lehet jobb lenne, ha leírnád pontosan miért is kell ez.
-
Ispy
nagyúr
válasz
martonx
#2923
üzenetére
Egy biztos: én sosem használok ilyen beépített varázslókat, mindig csak a baj van velük.
![;]](//cdn.rios.hu/dl/s/v1.gif)
Helyett tudom ajánlani az SqlConnection classt.
-
-
Ispy
nagyúr
válasz
alexy92
#2863
üzenetére
Ezt megcsináltad? Minden subrutinba rakd be az Err.Clear-t, mert szerintem amikor hiba után bemegy egy hiba sub-ba, akkor megtartja az eredeti hiba értékét és ezért a 2. körben is a hiba sub-ba fog menni, annak ellenére, hogy ott nincsen hiba.
Szóval minden sub elejére rakjad be, hogy Err.Clear....
-
Ispy
nagyúr
válasz
alexy92
#2855
üzenetére

Na, a feladat a következő: ezt az egészet mentsed el, tedd félre. Nincs az az isten, hogy tapasztalat nélkül ebbe a kóddzsungelben bármit is megtaláljál.
Utána kezd el 0-ról, apránként, minimális kóddal. Ha megy, akkor adjál hozzá még egy részt, és így tovább. Ha nem megy, akkor állj meg és akkor térjünk vissza rá.
-
Ispy
nagyúr
válasz
alexy92
#2851
üzenetére
Nem nagyon programoztam még excelben, szóval az én elképzelésem:
Dim IsError as boolean
Private Sub Main -> a fő kódod, gondolom valamilyen eventre fut le az egész cucc
On Error GoTo ErrHandling
valami kód, amit írtál és mindig gebasz van vele...
IF IsError = True Then
Call Sub2
Else
Call Sub3
End IF
valami kód, amit írtál és mindig gebasz van vele...
IF IsError = True Then
Call Sub4
Else
Call Sub5
End IF
exit sub
ErrHangling:
IsError = True
Resume
End Sub
Private Sub Sub2
IsError = False
....
End SubPersze lehet ezt még finomítani kell, kb. 5 éve nem nyúltam VBA kódhoz, de kb. így csinálnám. A subokat el is lehet hagyni, csak akkor van értelme külön kódba kiemelni, ha több helyen is használod ugyanazt a kódot.
Ha mondjuk egész kódrészleteket beraknál ide, akkor nagyobb eséllyel tudunk hibát keresni mi is....
-
Ispy
nagyúr
válasz
alexy92
#2849
üzenetére
Rakjál be egy breakpointot az else-re és nézzed meg mi az értéke az Err.Number-nek.
Én csinálnék egy class szintű változót (IsError), majd on error goto ...., ide beraknám, hogy IsError = True, majd Resume, IF IsError = True Then sub2 Else sub 3 END IF a subok elején meg IsError = False.
-
Ispy
nagyúr
Gugliban ezt találtam, nem tudom segít-e rajtad.
-
Ispy
nagyúr
válasz
sztanozs
#2823
üzenetére
Hát ilyet én még nem csináltam VBA-ban (szerencsére már semmi nem csinálok VBA-ban jó ideje
), de a gugli szerint lehetséges. -
Ispy
nagyúr
Egyébként a gugli sokat tud ám segíteni, ha megkérdezed

-
Ispy
nagyúr
A kód elejére ird be, hogy
Import system.math, vagy ahol használni akarod oda, hogyMath.sqrt. -
Ispy
nagyúr
Még egyszer:
ennek így nincsen értelme. Szorozni csak számokat lehet, a textbox értékét meg a text tulajdonsággal tudod lekérni/módosítani.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
TextBox2.Text = TextBox1.Text * TextBox1.Text
End Sub -
Ispy
nagyúr
válasz
BigBadPlaYeR
#2774
üzenetére
Form.LocationChanged eventel kell játszani.
-
Ispy
nagyúr
válasz
BigBadPlaYeR
#2769
üzenetére
És ha csinálnál inkább egy datatable-t, azt feltöltöd és utána megadod a gridnek, DataSource=DT.
Új hozzászólás Aktív témák
- Marathon - Mostantól végre ingyen kipróbálhatod!
- Építő/felújító topik
- Milyen légkondit a lakásba?
- Óra topik
- Gyúrósok ide!
- A fociról könnyedén, egy baráti társaságban
- Feje tetejére állt a felskálázóverseny a Resident Evil Requiemben
- Gumi és felni topik
- Milyen billentyűzetet vegyek?
- One otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Eladó AMD Ryzen 7 5700 X / RTX 4060 Gamer PC
- XPS 15 9520 27% 4K+ IPS érintő i7-12700H RTX 3050Ti 32GB 1TB NVMe ujjolv IR kam gar
- T15 Gen2i 27% 15.6" FHD IPS i7-1165G7 16GB 512GB NVMe ujjlolv IR kam gar
- S21 Dobozában
- Ryzen 7 7800X3D +hűtött VRM-es B650M lap +32GB DDR5 RAM! GAR/SZÁMLA (a Te nevedre kiállítva)!
- 5G Lenovo ThinkPad P14s Gen 3 Intel Core i7-1280P Nvidia T550 32GB 512GB 1 év teljeskörű garancia
- Dell Latitude 7320 i5-1145G7 16GB 512GB 1 év garancia
- Keresünk iPhone 14/14 Plus/14 Pro/14 Pro Max
- 224 - Lenovo LOQ (15IRX10) - Intel Core i7-13700HX, RTX 5060 (ELKELT)
- Dell Latitude 9410 i7 / 16GB RAM / 512GB SSD 2in1 érintőkijelző Profi gép, kedvező áron!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

![;]](http://cdn.rios.hu/dl/s/v1.gif)

), de a gugli szerint 


