- One mobilszolgáltatások
- Xiaomi 17 - még mindig tart
- Bemutatkozott a Poco X7 és X7 Pro
- Nothing Phone 2a - semmi nem drága
- iPhone topik
- Megérkezett a Samsung Galaxy A37 és Galaxy A57
- Táncolni még nem tud, de stabilan áll az Android 17 a lábán
- Youtube Android alkalmazás alternatívák reklámszűréssel / videók letöltése
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Apple Watch Sport - ez is csak egy okosóra
Új hozzászólás Aktív témák
-
Homer
tag
Hello,
én így csinálnám:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _
..........................As System.EventArgs) Handles Button1.Click
.........Dim valasz As integer
.........valasz = MsgBox("Hello", MsgBoxStyle.YesNo, "Semmi")
.........MsgBox("A válaszod: " & valasz)
End SubEszerint az igen válasz esetén a valasz változó értéke 6 nem esetén pedig 7.

...mondjuk ez nem VS2010 hanem VB2003, de sztem használható lesz...
... ha pl kilépésre akarod használni akkor tovább folytatva:
if valasz = 6 then end
-
martonx
veterán
eredmeny() = MsgBoxResult.Ok ez tuti hülyeség. Nem 100%, hogy jó megoldás, mert jóideje nem VB.Net-ezek, de
If MsgBox("Biztos ki akarsz lépni? Mindent mentettél?", Title:="Kilépés", Buttons:=MsgBoxStyle.OkCancel) = = DialogResult.OK Then Close()Így már a feltétel jó lesz, a Close rémlik, hogy jó, bár lehet, hogy Exit kell helyette? Close az aktuálisan nyitott form-ot zárja, ha ez az egy volt csak nyitva, akkor egyenértékű az Exit-tel.
Új ablakot pedig valami ilyesmivel tudsz létrehozni
dim formuj as form - ide majd a VS-ben megcsinált formod neve fog kelleni a form helyett
majd formuj.Show-val jön fel az ablak.
Új hozzászólás Aktív témák
- HP Victus 16-s0001nh Ryzen 5 7640HS / RTX 3050 6GB / 16GB DDR5 / 144Hz Garanciás
- HIBÁTLAN ipad mini 6, 64 GB Wifi + Cellular
- Gamer PC 2020, Intel i7, 16 GB RAM, NVIDIA 1660 GTX
- Vadonatúj, bontatlan iScooter i9Max elektromos roller, 1 év gari 35 km/h
- !AKCIÓ! GAMER PC Intel Core i9-10900X/ASUS ROG Strix X299-E Gaming/NVIDIA GeForce RTX 3080/32 GB RAM
- HIBÁTLAN iPhone 12 Pro 256GB Graphite-1 ÉV GARANCIA - Kártyafüggetlen, MS4518, 100% Akksi
- Apple Watch Series 8 41mm GPS, Újszerű, 1 Év Garanciával
- AKCIÓ! 2TB Samsung 990 PRO NVMe SSD meghajtó garanciával hibátlan működéssel
- Innosick, Samsung Laptop memória DDR5 5600Mhz // ÚJ // Számla // Garancia //
- Lenovo ThinkPad X1 Carbon Gen 10 - 27% ÁFÁS (0332)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


