Hirdetés
- Redmi Note 14 5G - jól sikerült az alapmodell
- Samsung Galaxy S25 - végre van kicsi!
- iPhone topik
- Samsung Galaxy A56 - megbízható középszerűség
- Xiaomi 15T Pro - a téma nincs lezárva
- One mobilszolgáltatások
- Pebble - az átgondolt okosóra
- Google Pixel 9 Pro XL - hét szűk esztendő
- Xiaomi 17 Ultra - jó az optikája
- Vivo X300 Ultra - tárcsázz, ha van rá keret!
-
Mobilarena

Új hozzászólás Aktív témák
-
#10382336
törölt tag
Sziasztok!
A következő kérdésem lenne. Visual studio 2008-ról van szó, azon belül is a C# részről.
Az Object Browser -ben kilistázza a system.management -et és a megfelelő eljárást is, de a fordításnál egy csomó dolgot reklamált. Megnéztem az MSDN -en, ahol kiderült, hogy a system.management.dll -be kell az eljárásnak lennie. Kerestem a gépen és nem volt rajt. A letöltése után tökéletesen működött.
Na most abban kérnék felhomályosítást:
1. Object Browser -ben hogy jelenhet meg ez az eljárás a megfelelő dll nélkül.
2. Ez a dll miért nem települt fel, ez nem a rendszer tartozéka?A Visual Studio előtt Visual Basic 2008 express -t használtam, annál is ugyanezt csinálta.
Ez normális?
-
#10382336
törölt tag
válasz
verynoob
#5032
üzenetére
Szia!
2-héttel ezelőtt Gyuri16 belinkelt egy egész jó összefoglalót C -re. Én ebből a dev-c++ -t töltöttem le. Szerintem ez kezdőknek egész jó.
[Gyuri16 írását megnézheted itt] -
#10382336
törölt tag
Sziasztok!
A kérdésem az lenne, hogy az alábbi vbscript miért nem működik?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colVolumes = objWMIService.ExecQuery _
("Select * from Win32_Volume Where Name = 'D:\\'")Futtatásnál hibajelzést nem ad, de a "colVolumes" értéke "null".
5let? -
#10382336
törölt tag
Sziasztok!
A "http://elvira.mavinformatika.hu/" oldalról szeretném Debrecen
állomás címét megkapni Excel VBA, esetleg VB.net kóddal.
A lépések manuálisan így néznek ki:1.: A "http://elvira.mavinformatika.hu/" oldal megnyitása
2.: "Honnan"="Debrecen", "Hová"="Budapest", majd "Keresés"
3.: A listában valamelyik narancssárga nyilra kattintva megjelenik
egy "Debrecen" feliratú link aminek a célját a böngésző
kijelzi, ez a cím jelenleg: "http://elvira.mav-start.hu/elvira.dll/xslms/af?i=2696&d=10.07.02&language=1&ed=4C2DF2C7"Excel VBA-ban készítettem egy lekérdezést, amely 2 percenként lekérdezi
ezt az oldalt, csak az a baj, hogy ez a cím naponta legalább 1-szer változik,
ami után az Excel "A weblekérdezés nem adott vissza adatot"
hibaüzenetet küldi. Ezután csak úgy működik a program, hogy
manuálisan megnézem az éppen aktuális címet, és ezt írom be egy
új lekérdezésbe. Ezt a folyamatot szeretném valahogy kóddal
automatizálni, de elképzelésem sincs, hogy hogyan.
Lenne valakinek ötlete? -
#10382336
törölt tag
Köszönöm a segítséget.
Ahogy írtad, a notifyicon komponens jelenti a megoldást.
A következő [link] -en
ez alapján találtam egy kódleírást, ami kicsi átalakítással
működik is.
Nagyon sokat segítettél így is, azért még azt megkérdezném,
hogy nincs-e ötleted arra, hogy a tálcáról eltünjön a form és
csak az értesítő résznél maradjon az ikon, tehát a form csak
akkor legyen látható a tálcán is, ha az ikonra duplán rákattintok. -
#10382336
törölt tag
Sziasztok!!!
Az alábbi Visual Basic kód lefordítva egy olyan alkalmazást
eredményez, amely percenként elindítja a "VALAMI" nevű
alkalmazást. Továbbfejlesztve hasonló dolgokra lehetne
képes, mint a Windows feladatütemezője.A kérdésem annyi lenne, hogy például ezt, vagy bármely más
Visual Basic programot hogy lehet úgy megcsinálni, hogy
a program ikonja a tálca jobb oldalán, az óra mellett legyen,
mint például a hangerő, a tűzfal, windows riasztások ikonjai.
Ha valaki tudja a választ, vagy ilyen tartalmú - elsősorban
Magyar nyelvű - linket, kérem írja meg.Előre is köszönöm!
Public Class Form1
Private konz As New Konzol
Private Sub Form1_FormClosing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) _
Handles Me.FormClosing
konz.állj()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
konz.start()
End Sub
End ClassPublic Class Konzol
Private esemeny As New System.Threading.AutoResetEvent(False)
Private megszakitas As System.Threading.TimerCallback = _
AddressOf végrehajtás
Private idozito As System.Threading.Timer
Private szamlalo As Integer
Sub start()
szamlalo = 0
idozito = New System.Threading.Timer(megszakitas, esemeny, 0, 1000)
End Sub
Sub állj()
idozito.Dispose()
End Sub
Sub végrehajtás(ByVal stateInfo As Object)
Dim autoEvent As System.Threading.AutoResetEvent = _
DirectCast(stateInfo, System.Threading.AutoResetEvent)
szamlalo += 1
If szamlalo = 60 Then
Shell(VALAMI)
szamlalo = 0
End If
End Sub
End Class -
#10382336
törölt tag
Private Sub szerkkurzor_click(ByVal sender As Object, ByVal e As System.EventArgs)
label1.Text = "Sor: " + _
textbox1.GetLineFromCharIndex(textbox1.SelectionStart).ToString + " Oszlop: " + _
(textbox1.SelectionStart - textbox1.GetFirstCharIndexOfCurrentLine).ToString + _
" Index: " + textbox1.SelectionStart.ToString
End SubEzt az eseménykezelő eljárást rendeltem hozzá a "textbox1.Click" és a "textbox1.KeyUp"
eseményekhez. Ez azonban csak akkor adja vissza a kurzor valós helyzetét,
ha nincs kijelölt terület. Pl.: a "textbox1" tartalma: "ABCD" és csak a jobbra-balra,
home-end billentyűket használom, akkor valós oszlopot ad. Ha azonban a kurzor a
sor elején van és shift+jobbra billentyűkombinációval kijelölöm az első("A") karaktert,
akkor továbbra is 0-dik sor 0-dik oszlopot mutat.
A
[link] -et nézegettem, azonban sajnos angolból nem állok a helyzet magaslatán,
ezért én ebből sajnos nem tudtam megállapítani, hogy melyik tulajdonság vagy függvény
lenne alkalmas. A "cursor" tulajdonság az egér pozícióját adja vissza. Ilyeneket azonban
nem találok, hogy "currentposition","currentindex" vagy ezekhez hasonló.
Lehet olyan, amit keresek, nincs is? -
#10382336
törölt tag
Visual basic 2008 expressz edition
-
#10382336
törölt tag
Sziasztok!
Meg tudná valaki mondani, hogy a textbox objektum mely tulajdonsága vagy
függvénye adja vissza az aktuális kurzorpozíciót.
A SelectionStart tulajdonság csak a kijelölés kezdetét jelzi. -
#10382336
törölt tag
Sziasztok!
Az alábbi eljárást a microsoft excel visual basic-el készítettem.
A lényege, hogy egy bináris fájlt,vagy annak egy részét olvassa be egy stringbe.Sub bintömbbe(forrásfájl, kezdő, hossz, fájlszám, s)
'forrásfájl: bináris fájl,ahonnan az adatokat olvassa
'kezdő: a forrásfájl fájlmutatója (1-el kezdődik)
'hossz: a beolvasás hossza
'fájlszám: a megnyitandó fájl sorszáma (1-el kezdődően)
's: ahová a bináris fájlt olvasni szeretnénk
Dim fájlhossz
Open forrásfájl For Binary As fájlszám
fájlhossz = LOF(fájlszám)
If hossz = -1 Then
hossz = fájlhossz
End If
If kezdő <= fájlhossz Then
Seek fájlszám, kezdő
If kezdő + hossz - 1 > fájlhossz Then
hossz = 1 + fájlhossz - kezdő
End If
s = Input(hossz, fájlszám)
Else
hossz = 0
End If
Close fájlszám
End SubA kérdésem az lenne, hogy ez hogy nézne ki a microsoft visual basic 2008
express edition programban, mert az egyszerű átmásolás nem működik.
Főleg a következő utasítások helyettesítésére lennék kiváncsi:Open forrásfájl For Binary As fájlszám
Seek fájlszám, kezdő
s = Input(hossz, fájlszám)
Close fájlszám -
#10382336
törölt tag
Köszi szépen, már egy verzió telepítése folyamatban is van, amit a
http://www.microsoft.com/exPress/download/#webInstall
oldalról töltöttem le.
Az expressz változat szóba hozásával nagyon sokat segítettél,
remélhetőleg ez megfelelő lessz. Mégegyszer köszi! -
#10382336
törölt tag
Expressz változatom nincs, de most megpróbálok ilyent keresni.
Egyenlőre köszönöm a tippet Karmá-nak! -
#10382336
törölt tag
Sziasztok!
Tud nekem segíteni valaki abban, hogy honnan lehet letölteni működöképes
visual basic-et?
A kereső csak visual basic cce változatot adja, ezzel azonban .exe fájlt nem lehet létrehozni.
Az is megfelelő lenne, ha valaki a cce változathoz adna tanácsot, hogy mit kell
beszereznem ahhoz, hogy .exe fájlt tudjak vele készíteni.
Új hozzászólás Aktív témák
Hirdetés
● olvasd el a téma összefoglalót!
- Akciókamerák
- bkercso: Tápszűrő-5 SMPS-hez
- Kerékpárosok, bringások ide!
- OLED TV topic
- Assassin's Creed: Valhalla
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Mini-ITX
- Redmi Note 14 5G - jól sikerült az alapmodell
- Goddess of Victory:Nikke
- Budapest és környéke adok-veszek-beszélgetek
- További aktív témák...
- Apple iPhone 14 Pro 128 GB Deep Purple 100% akku
- Kingston A2000 250GB NVMe SSD
- GIGABYTE RX 6800 XT 16GB GDDR6 GAMING OC - Eladó!
- BESZÁMÍTÁS! ASRock A520M R5 5500 16GB DDR4 500GB SSD RX 5700XT 8GB Rampage SHIVA Seasonic 650W
- BESZÁMÍTÁS! MSI B450M R5 5600 16GB DDR4 512GB SSD RX 6650 XT 8GB Rampage SHIVA FSP 650W
- Hp 440 G8 i5-1135G7 16Gb, 256 Gb NVMe, számla, 1 év garancia
- 27% - ASUS ROG Strix XG27ACS Monitor! 2560x1440 / 1ms / 180Hz / G-Sync / FreeSync
- MSI Thin GF63 - 15,6"FHD 144Hz - i5-12450H - 16GB - 512GB - Win11 - RTX 4050 - Garancia - MAGYAR
- 238 - Lenovo Legion Pro 7 (16IRX8) - Intel Core i9-13900HX, RTX 4070
- Apple iPhone 13 / 256GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100%
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest




