Új hozzászólás Aktív témák
-
#696
[HUN]Zolee
őstag
Apollo17hu
#695
[HUN]Zolee
őstag
válasz
Apollo17hu
#695
üzenetére
mi volt a hibaüzenet, és mi volt a feltételed?
-
#695
Apollo17hu
őstag
[HUN]Zolee
#692
Apollo17hu
őstag
válasz
[HUN]Zolee
#692
üzenetére
Így próbáltam, de hibaüzenettel leállt a makró.
Valószínűleg át kell majd írnom az egész kódot...
Kösz a segítséget. -
Möhönce
csendes tag
Üdv!
A hibakód: 429 Runtime error
A program egy másik alkalmazást vezérel SendeKeys-ekkel. (Aminek a Windows neve zárójelben van a Tasks-nál. Ez elvileg bármi lehet ami éppen fut, pl. ''Számológép''.)
Word-ben csináltam aztán VB6-tal is rendben volt sokáig. Ennek már 6 éve most meg egyikben sem megy ez az egyetlen sor.
Probáltam win98 alatt is a régi gépemen ugyanúgy ahogy akkoriban lehetett de teljesen ugyanez az eredmény.
Annyira jutottam összesen hogy beíráskor csak akkor jelenik meg a Tasks() paramétere, ha a References ablakban kijelölöm a Microsoft word Object Libraryt.
Talán valamilyen objektum vagy referencia kellhet ami régen megvolt most meg hiányzik? -
#692
[HUN]Zolee
őstag
Apollo17hu
#691
[HUN]Zolee
őstag
válasz
Apollo17hu
#691
üzenetére
ha mindkét feltátelnek telejesülnie kell, akkor And el kapcsolod össze, ha csak az egyiknek akkor Or -al.
-
#691
Apollo17hu
őstag
Apollo17hu
őstag
Hali!
Hogyan oldható meg az a probléma legegyszerűbben, ha egy Do ... Loop Until ciklusban az Until után 2 különböző feltételt szeretnék megadni? -
Möhönce
csendes tag
Sziasztok!
Még pár éve írtam egy rövid progit ami tartalmazott egy ilyen sort:
Tasks(''Programnév'').Visible = False
Akkor rendben ment de most valamiért ezt a hibát adja:
AktiveX component cant create object
Nem vagyok otthon VB-ben és nem emléxem már mit hogy csináltam akkoriban. Miért nem jó most? Talán valami komponens kell neki? A weben ennyit találtam róla:
http://msdn2.microsoft.com/en-us/library/aa212443(office.11).aspx
Légyszi segítsen aki tud. Meg vagyok lőve. -
amargo
addikt
Sziasztok volna egy segítség kérésem, mivel a VBS hez halvány lilasegédfogalmam sincs, ezért nem tudom, hogy mit kellene és hogy csinálni, hoyg ezt a függvényt meg tudjam hívni.
Paraméterként kell neki? Vagy, miként is megy itt? van valami main-e?
Itt találtam rá: [link]
De ezt milyen OP rendszeren tudom futtatni?
''This function is not supported on Windows 2000 & NT''?
Function GetPrinterStatus(strComputer, strPrinterDevID)
'Accepts a computer name and printer device ID as string parameters
'Returns the printer status as a string
Dim intStatus: intStatus = 0
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
On Error Resume Next
Err.Clear
Set objWMIService = GetObject(''winmgmts:\\'' & strComputer &
''\root\CIMV2'')
Set colItems = objWMIService.ExecQuery(''SELECT * FROM Win32_Printer
Where DeviceID = ''' _
& strPrinterDevID & ''''', ''WQL'', wbemFlagReturnImmediately + _
wbemFlagForwardOnly)
If Err.Number = 0 Then
For Each objItem In colItems
intStatus = objItem.PrinterStatus
Next
Else
GetPrinterStatus = ''Error Getting Printer Status''
End If
Select Case intStatus
Case 1
GetPrinterStatus = ''Other''
Case 2
GetPrinterStatus = ''Unknown''
Case 3
GetPrinterStatus = ''Idle''
Case 4
GetPrinterStatus = ''Printing''
Case 5
GetPrinterStatus = ''Warmup''
Case 6
GetPrinterStatus = ''Stopped Printing''
Case 7
GetPrinterStatus = ''Offline''
Case 0
GetPrinterStatus = ''Error Getting Printer Status''
End Select
End Function
MsgBox GetExtendedPrinterStatus(''.'',''YourPrinter'')
Function GetExtendedPrinterStatus(strComputer, strPrinterDevID)
'Accepts a computer name and printer device ID as string parameters
'Returns the extended printer status as a string
'This function is not supported on Windows 2000 & NT
Dim intStatus: intStatus = 0
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
On Error Resume Next
Err.Clear
Set objWMIService = GetObject(''winmgmts:\\'' & strComputer &
''\root\CIMV2'')
Set colItems = objWMIService.ExecQuery(''SELECT * FROM Win32_Printer
Where DeviceID = ''' _
& strPrinterDevID & ''''', ''WQL'', wbemFlagReturnImmediately + _
wbemFlagForwardOnly)
If Err.Number = 0 Then
For Each objItem In colItems
intStatus = objItem.ExtendedPrinterStatus
Next
Else
GetExtendedPrinterStatus = ''Error Getting Printer Status''
End If
Select Case intStatus
Case 1
GetExtendedPrinterStatus = ''Other''
Case 2
GetExtendedPrinterStatus = ''Unknown''
Case 3
GetExtendedPrinterStatus = ''Idle''
Case 4
GetExtendedPrinterStatus = ''Printing''
Case 5
GetExtendedPrinterStatus = ''Warmup''
Case 6
GetExtendedPrinterStatus = ''Stopped Printing''
Case 7
GetExtendedPrinterStatus = ''Offline''
Case 8
GetExtendedPrinterStatus = ''Paused''
Case 9
GetExtendedPrinterStatus = ''Error''
Case 10
GetExtendedPrinterStatus = ''Busy''
Case 11
GetExtendedPrinterStatus = ''Not Available''
Case 12
GetExtendedPrinterStatus = ''Waiting''
Case 13
GetExtendedPrinterStatus = ''Processing''
Case 14
GetExtendedPrinterStatus = ''Initialization''
Case 15
GetExtendedPrinterStatus = ''Power Save''
Case 16
GetExtendedPrinterStatus = ''Pending Deletion''
Case 17
GetExtendedPrinterStatus = ''I/O Active''
Case 18
GetExtendedPrinterStatus = ''Manual Feed''
Case 0
GetExtendedPrinterStatus = ''Error Getting Printer Status''
End Select
End Function
A cél az volna, hogy a nyomtató státuszát szeretném lekérdezni, nem nem elég, hogy a nyomtatónak ellett küldve az adat, az kell, hogy a nyomtatóból mikor jött ki az utolsó lap és már nem nyomtatt.
A többi error az nem érdekelne.
Köszönöm a segítséget! -
Gh0sT
addikt
Nah, akkor felvázolom a teljes feladatot:
Timert használok, de nem erre. Egy adatbázishoz nyúlok hozzá meghatározott időközönként és futtatok le egy lekérdezést. Erre kell nekem a timer. A timer_tick eseményen belül kell a formot popup ablakként felvillantanom. Viszont nem tudom, hogy timeren belül lehet-e még egy timert aktiválni, ráadásul szerintem 100% lenne a proci terheltség. -
Gh0sT
addikt
Sziasztok!
Tudna valaki segíten egy cseppet? Azt szeretném megcsinálni, hogy egy form a képernyő jobb alsó sarkában popup szerűen jöjjön fel. Ezt részben sikerült is megoldanom, de valamiért a rajta lévő objektumok a mozgás közben nem látszanak, vagy teljesen feketék. Mit rontok el?
Dufresne: nézz át az Excel topickba, szerintem ott kapni fogsz segítséget.
[Szerkesztve] -
Dufresne
addikt
Sziasztok!
Nektek profiknak biztos egyszerű, de nekem mivel nem is tanultam és igazából nincs is rá szükségem kicsit nehéz.
Szóval excel visual basic részében kéne kis progit írni, ami 1-tő 10-ig végignézi a számokat, aztán kiírja az összes páros szám átlagát, majd még kilistázza, hogy hány darab páros szám van, vagy a páros számokat konkrétan.
Tudom, hogy ez nem túl sok, szóval ha valamelyikötök lenne olyan kedves és akár priviben megoldaná nekem, annak örök hálám
-
Polyák
tag
-
lapa
veterán
üdv. vbscriptben szeretnék könyvtárat tallózni. van ugyan ilyen: [link], de ez elég bénácska, ugyanis nem tudom a kezdő könyvtárat megadni benne. a ''root'' nekem nem jó, mert akkor annál feljebb nem enged brózolni. nekem olyan kéne, ami a desktoptól indul, de az általam megadott könyvtárat jelöli ki defaultban. vagy csak én néztem be és van benne ilyen?
-
Maza75
csendes tag
Sziasztok!
Egy kérdésem lenne, mire nem találom a megoldást:
Lehet-e egy tábla azonosító mezőjére (ami autóinkrementált) keresni a FindFirst utasítással? Nekem mindíg azt írja ki, hogy típuseltérési hiba a feltételkifejezésben, pedig a kifejezés értéke elméletileg string.
Az alábi utasítás is szintén a fennti hibát generálja.
Set rs = CurrentDb.OpenRecordset(''select * from Termék where Azonosító = ' '' + Format(Str(azon)) + '' ' '', dbOpenDynaset)
Köszi a segítséget előre is. -
sonar
addikt
vb6
C nekem azért lenne praktikus mert progizok néha mikorvezérlőket is és asm-mel kiegészítve hatékony lenne. Amugy semmi bajom nem lenne az egésszel ha nem ilyen szarul lenne megcsinálva.
A frameworkel is az a bajom,hogy nekem sok régi gyengébb gépre kell kódolnom és ott eszméletlen lassú v nem is fut... -
-
Eccerű, a VB egy objektum orientált (khmm, inkább objektum alapú) nyelv. Egy objektum viszont önmagában csak akkor fog létezni ,ha először létrehozzuk, erre szolgál a Set parancs. Na most a filerendszer is önmagában egy objektum, és ez az objektum tartalmazza pl a fileokat, a megnyitó (open) parancsot, stb.
A te példádban az fso csak az objektum neve, ez bármi lehetne. -
Polyák
tag
válasz
Jester01
#628
üzenetére
Köszi.
Az este folyamán rájöttem mind a 3 kérdésremre. Kreáltam probaprogit oszt kifundáltam mindent. Minden sikerült és köszönom neked is és ollie-ek is!
Ezek amugy hogy működnek és mire jók?
set fso = CreateObject(''Scripting.FileSystemObject'')
set f = fso.GetFile(filename); -
Jester01
veterán
1. mert a \ után következő kartaktertől akarod visszakapni a stringet
2. oda a hossz kerül, csak kihasználta, hogy a string hosszánál nagyobb számot is oda lehet írni
3. a rev az hátulról keres
Amúgy ilyesmire a Scripting.FileSystemObject és társai valók. Pl:
set fso = CreateObject(''Scripting.FileSystemObject'')
set f = fso.GetFile(filename);
és utána az f tulajdonságait (Drive, Path, Name) tetszés szerint használhatod. -
Polyák
tag
Köszönöm a válaszod!
Még nem próbáltam ki, de elmagyaráznád nekem ezt a függvényt?
Azt értem hogy a ''\''-ig levágja.
mid (filename, inStrRev(cstr(filename),''\'')+1, 255)
1. miért kell hozzáadni egyet?
2. és a 255?
3. Mi a külömbség az inStr és az inStrRev között?
Előre is köszi! -
Használd az inStr és az inStrRev kereső funkciókat
pl: mid (filename, inStrRev(cstr(filename),''\'')+1, 255)
ha a filename =''e:\kepek\vegyes\uj.jpg''
akkor a végeredmény uj.jpg lesz
A meghajtó betűjelét nagyon egyszerű megállapítani (ugye csak az első karaktere a filenévnek), a maradékot meg e kettő levágásából kapod.
Egyébként ez VBScript, de gondolom VB-ben is ugyanígy kell használni.
[Szerkesztve] -
Polyák
tag
Kéne egy kis segítség!
Van egy képnézegető progim. Társítva vannak hozzá a jpg formátumú képek. Tehát ha megnyitok egy képet ezzel a progivan indul. Ez müxik.
A progi ablaka alján van egy Drive egy Paht egy File list. Amikor futtatom a progit itt tudom keresni a képeket és megnyitni. Azt szeretném hogy amikor képet nyitok meg (kep = command ; kepmegj.Picture = LoadPicture(kep) - érted.) akkor a Drive, Path és File elemen a kép útvanala legyen.
Pl.: A kép útvaonala ''e:\kepek\vegyes\uj.jpg''. A Drive1.Drive legyen ''e'', a Path1.path legyen ''e:\kepek\vegyes'', és a File1.path is ugyan így.
Nos ezt hogy lehetne megoldani? Nagyon fontos lenne!
Előre is köszi!
[Szerkesztve] -
-
#617
sonar
addikt
whitewolf5
#614
sonar
addikt
válasz
whitewolf5
#614
üzenetére
sajnos adatbázisokkal eddig még nem nagyon volt időm foglalkozni
-
#615
whitewolf5
csendes tag
whitewolf5
#614
whitewolf5
csendes tag
válasz
whitewolf5
#614
üzenetére
Egyszerübben teszem fel a kérdést.. hogyan lehet DataGridből Visual Basic segítségével cellából kiolvasni adatot illetve azt visszatenni oda? Visual studio 2005-ben!
-
#614
whitewolf5
csendes tag
sonar
#613
whitewolf5
csendes tag
Ezek szerint nem voltam érthető..
A Grid ImageField része tartalamazza az elérési utat. Hogyan tudom abbol kiszedni...? Amugy kösz.. (A PicturaPath egy oszlop a gridben. Ha beirom hogy GridView1.Columns(0). akkor feljönnek tulajdonságok, de egy sem az, ami elárulná nekem az adatbázisból lekérdezett Picturepath értékét..Pedig az kell nekem!)
[Szerkesztve] -
#613
sonar
addikt
whitewolf5
#612
sonar
addikt
válasz
whitewolf5
#612
üzenetére
dim valtozo as string
valtozo=PicturePath
-
#612
whitewolf5
csendes tag
whitewolf5
csendes tag
Üdv Mindenkinek!
Visual Studio 2005-ben dolgozom és GridView-val jelenítem meg az adatokat. Van egy kép oszlopom, amibe a DataimageUrlField tulajdonságnak beállítottam azt az oszlopot(PicturePath a neve) amely tartalmazza a kép elérését a szerveren.
Hogyan tudom az az útvonalat Visual basicben egy változóba betenni?
-
Mikyyy
csendes tag
Sziasztok!
Visual Basic 2005 Express-ben írtam egy kisebb progit és szeretném az adatokat egy Access táblába elmenteni, de nem nagyon sikerül, pedig a fekete könyvből is néztem hozzá kódot. Nagyon fontos lenne, hogy ezt meg tudjam oldani, úgyhogy ha valaki tud nekem segíteni, akkor nagyon hálás lennék!!!!!!!Sajnos nem sokáig tudok fórum közelben maradni, úgyhogy megadom az e-mail címem: mikyy@freemail.hu Köszi!! -
#608
sonar
addikt
[HUN]Zolee
#607
sonar
addikt
válasz
[HUN]Zolee
#607
üzenetére
Ez csak egy elméleti fogós kérdés. De ha gondolod összedobok egy programrészt.
Jövőhéten jön meg a haverom a nyaralásból és nekiállunk a VB portálnak -
#604
sonar
addikt
[HUN]Zolee
#603
sonar
addikt
válasz
[HUN]Zolee
#603
üzenetére
Azt tudtam, hogy 13 de ne textBox-al próbáld annál müxik, hanem commandbutton-nal
-
#602
sonar
addikt
[HUN]Zolee
#601
sonar
addikt
válasz
[HUN]Zolee
#601
üzenetére
Hát nem jött össze, de nem is érdekel. space-val müxik jól
A class-ra tudsz mondani vmit?
Új hozzászólás Aktív témák
Hirdetés
- Csere-Beszámítás! RGB Számítógép PC játékra! R5 5600X / RTX 3060Ti 8GB / 32GB DDR4 / 500GB SSD
- BESZÁMÍTÁS! Gigabyte H510M i5 11400F 16GB DDR4 512GB SSD GTX 1070Ti 8GB Rampage SHIVA TT 500W
- Apple iPhone SE 2020 64GB, Yettel függő, 1 Év Garanciával
- AKCIÓ! Microsoft XBOX Series S 512GB játékkonzol garanciával hibátlan működéssel
- 120 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070 (48 hónap garancia!)
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest