Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Brogyi: CTEK akkumulátor töltő és másolatai
- Krumple: [Xpenology] DSM 7.3 telepítése proxmox 9 alatt - GUIval
- eBay-es kütyük kis pénzért
- Kalandor: „Ha engedtem volna a lelkiismeretemnek, az üzlet kevésbé lett volna jövedelmező”
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
LOGOUT
Ú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
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
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
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
● olvasd el a téma összefoglalót!
- Luck Dragon: Asszociációs játék. :)
- Gyúrósok ide!
- OLED TV topic
- Sorozatok
- Megtartotta Európában a 7500 mAh-t az Oppo
- NFL és amerikai futball topik - Spoiler veszély!
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Energiaital topic
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- OpenMediaVault
- További aktív témák...
- Olcsón! LG 34WR55QC-B 100Hz 21:9 UltraWide USB-C PD Machez is! Gari: 2027.áprilisig.
- Liquid Freezer III 360 - használt, garancia: Alza 2031.02.16-ig - ALKUKÉPES.
- Asus Rog Strix G513 144hz Laptop Eladó!
- Mobil LTE hotspot router TP-Link M7200 V4 4G/LTE 150Mb/s,WiFi 2,4GHz 300M
- Four Connect Stage2 2x10mm2 prémium hangfalkábel Nakamichi banándugókkal
- Új és újszerű 13-14 Gamer, ultrabook, üzleti, 2in1, X360, Touch készülékek kedvező áron Garanciával
- HIBÁTLAN iPhone 12 Mini 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS3645
- GYÖNYÖRŰ iPhone 12 mini 128GB Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS3415 94% Akkumulátor
- GYÖNYÖRŰ iPhone 13 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3205
- Apple iPhone 12 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest