Új hozzászólás Aktív témák
-
Polyák
tag
Én Dev-C++t használtam. a Visual C++ nekem magas. Szvsz a VB sokkal könnyeb és érthetőbb mint a C++. Vagy lehet hogy ez saját vélemény. Még a végén lehet hogy én is C++-ozni fogok megint.
ÁÁÁ , kétlem. Marad a VBAz alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
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
-
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?
-
Polyák
tag
Elindult a VBPortal beta-ja!
[link]
Ezt nem reklámnak szántam!Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
Polyák
tag
Na mivan, behal a Topic?
Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
sonar
addikt
azt nem tudja vki, hogy a memóriában futó progikat hogyan tudom lekérdezni?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
Polyák
tag
Az a1vbcode.com-on [link] nézted már?
Én rákerestem a ''program'' és a ''memory'' kulcsszavakkal és kidobott 2 oldalt, de nem tudom h melyik kell neked. Igazából nem a témával kapcsolatos progik voltak amiket megnéztem de aztán lehet hogy van. 5 progit néztem meg.Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
sonar
addikt
Esetleg lemez infót hogyan tudok kiolvasni? azt nem tudja vki?
dvd-nél milyen alapanyag,....A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
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 -
Dufresne
addikt
Senki programozópalánta?
-
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]Soha nem késő, hogy azzá válj, aki lehettél volna.
-
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.Soha nem késő, hogy azzá válj, aki lehettél volna.
-
sonar
addikt
LPT porthoz nincs vkinek vmi jó kis anyaga?
A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
-
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!“The workdays are long and the weekend is short? Make a turn! Bike every day, bike to work too!”
-
Polyák
tag
Hali Gh0sT!
Itt egy progi, hogy bemutassam, hogy a timer nem huzza a procit: [link]
Egy popup kiablak lesz lenn a sarokban. Sajna csak 1024*768-ban müködik rendesen. Esetleg tudná valaki a megoldást erre?Az alkotó élet titka az, hogy felnőttkorban is megőrizzük a gyermekkor szellemét.
-
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. -
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? -
[HUN]Zolee
senior tag
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.
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
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? -
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. -
[HUN]Zolee
senior tag
válasz Apollo17hu #695 üzenetére
mi volt a hibaüzenet, és mi volt a feltételed?
''<[HUN]DrH>valaki mondjon egy tuningolos programot a mivel kocsis képeket tudok tuningoloni.'' https://ferromag.aranyoldalak.hu/
-
sonar
addikt
Hogyan tudom kiolvasni a hdd serial számát? (Nem a kötetre gondolok! ami minden formázáskor más)
Turom ezt a rohadt guglit de csak shareware progikat/dll-t találok, source-t sehol
vki tudna segítení?A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!
Új hozzászólás Aktív témák
- Kerékpárosok, bringások ide!
- iPhone topik
- Kicsit extrémre sikerült a Hyte belépője a készre szerelt vízhűtések világába
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Motoros topic
- Sorozatok
- Debrecen és környéke adok-veszek-beszélgetek
- Gaming notebook topik
- E-roller topik
- Horgász topik
- További aktív témák...