-
Fórumok
LOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokPROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Tabletek, E-bookok Nyomtatók, szkennerek PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
Új hozzászólás Aktív témák
-
Gh0sT
addikt
-
sonar
addikt
UP!
És karakter táblát nem tudjátok hogyan lehet állítani? Van egy strconv parancs de az elvileg csak unicode-ba tud konvertálni.
-
Möhönce
csendes tag
Köszi de nem a saját programomat hanem a vezéreltet kellene elérni. Félig-meddig közben megoldódott az office újratelepítéssel. Wordből legalább már megy, VB-ből továbbra sem. Na mindegy így is jó lesz amire kell.
-
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í?
-
[HUN]Zolee
őstag
Í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.mi volt a hibaüzenet, és mi volt a feltételed?
-
Apollo17hu
őstag
ha mindkét feltátelnek telejesülnie kell, akkor And el kapcsolod össze, ha csak az egyiknek akkor Or -al.
Í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. -
sonar
addikt
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.Ha a kód azt a célt szolgálja amire gondolok akkor próbáld helyett
az App.visible= True/false sort -
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? -
[HUN]Zolee
ő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?ha mindkét feltátelnek telejesülnie kell, akkor And el kapcsolod össze, ha csak az egyiknek akkor Or -al.
-
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? -
Polyák
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.Hali!
Mi a hiba kódja? Én is találkoztam hasonló hibával. Az a hibakód ''5941'' volt.
Mi célt szolgál a progi? Word-be vagy Excel-be van? Word-be igaz? -
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. -
Polyák
tag
-
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! -
sonar
addikt
-
Polyák
tag
-
sonar
addikt
LPT porthoz nincs vkinek vmi jó kis anyaga?
-
Gh0sT
addikt
-
Polyák
tag
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.Lehet Timer-en belül Timert idítani!
Szvsz nem húzza annyira a procit a Timer. -
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. -
Polyák
tag
Időzítővel?
Timer1_Timer()
If Form1.Top > 1500 Then ' 1500 magasig emelkedik
Form1.Top = Form1.Top - 120
End If
End
Lehet hogy hülyeséget mondok de én asszem igy csináltam.
-
Gh0sT
addikt
-
sonar
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]talán ha kicsit konkretizálnád a dolgot.
vb mennyi... -
Polyák
tag
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
Szerintem sima Fx függvényekkel is ki lehet ezt számolni. A ''ha'' , ''darabteli'' , ''átlag'' , ''szum'' függvények kombinációjára gondolok.
-
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
Senki programozópalánta?

-
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
-
sonar
addikt
Esetleg lemez infót hogyan tudok kiolvasni? azt nem tudja vki?
dvd-nél milyen alapanyag,.... -
sonar
addikt
-
Jester01
veterán
-
sonar
addikt
-
sonar
addikt
-
ollie
MODERÁTOR
Hátizé...
Szerinted az and meg az or akkor nem bitművelet? Sőt van olyan, hogy egész osztás (vagyis jobbra lehet tolni a biteket), na meg szorzás is (balra tolja a biteket). -
sonar
addikt
azt nem tudja vki, hogy a memóriában futó progikat hogyan tudom lekérdezni?
-
Polyák
tag
Na mivan, behal a Topic?

-
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?
-
Polyák
tag
-
sonar
addikt
Az egyik nagy szívfájdalmam, még hogy nem lehet asm kódot beszurni és nem tud bitműveleteket. Nem sűrűn, de néha nagyon jól jönne.
mod: mármint ami hiányzik a vb6-ból
[Szerkesztve] -
Maza75
csendes tag
-
Jester01
veterán
Az adatbázis oszlop nem string típusú szerintem. Magyarul ezt próbáld ki:
Set rs = CurrentDb.OpenRecordset(''select * from Termék where Azonosító = '' + CStr(azon), dbOpenDynaset) -
Maza75
csendes tag
-
Jester01
veterán
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.Ha autoincrement akkor szerintem nem string.

-
sonar
addikt
-
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. -
Polyák
tag
-
sonar
addikt
Tudom, hogy könnyebb a Basic (azért basic
) csak sokkal korlátozottabbak a képességei -
Polyák
tag
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...É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 VB
-
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... -
Polyák
tag
Hiiiiiijjj!
A C++ az engem kiakasztott! de nem volt olyan vészes. Amugy annyira bonyolult nekem hogy már nem is nagyon emlékszek rá. Van pár progim forrkóddal együtt ha kell. de szeintem maradj a VB-nál.
Te amugy melyik VB-t használod? -
sonar
addikt
-
Polyák
tag
-
sonar
addikt
Ezzel már én is próbálkoztam, de én se találtam semmi használhatót
-
Polyák
tag
Hi!
Lenne egy kérdésem!
Ablak táma vagy séma vagy valami hasonló van a VB6-hoz, vagy csak s sima ablak lehetséges?
Kipróblátam PictureBox-okból ablakkeretet csinálni de nem valami szép. Persze levettem az eredeti keretet. Ez igy jó megoldás? Vagy megoldható máshogy is? -
sonar
addikt
-
sonar
addikt
-
Goose-T
veterán
-
sonar
addikt
-
Jester01
veterán
-
Goose-T
veterán
-
Jester01
veterán
Megvalósítás: az oprendszer megfelelő szolgáltatásának igénybevétele.
Nem többszálú pollozás, mert az erőforráspazarlás. -
Goose-T
veterán
-
Jester01
veterán
Nem kell. .NET esetén a FileSystemWatcher osztályt lehet erre használni.
-
Goose-T
veterán
-
sonar
addikt
azt nem tudjátok hogyan csinálok error level-t?
Mármint ha batc-ből hívják a progit akkor error level-t kéne visszadnom.
Másik:
Fájl vizsgálatra van vmi olyan módszer amivel nem kergetem ciklusba?
Hanem addig vár amig megnem jön 
-
ollie
MODERÁTOR
-
szokrika
tag
Sziasztok!
VBScriptel hogyan olvashatom ki egy ablak Title-jét, vagyis a címét? Ki kellene egy csomó képnek mentsem a címét...
Kezdő vagyok!
Köszi előre! -
ollie
MODERÁTOR
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. -
sonar
addikt
Ez az úgynevezett objectum deklarálás.
A részletes kifejtést kihagynám, mert 100%-ban nálam sem világos, és nem akarlak téveszmékkel traktálni.
amugy pü-megy -
Polyák
tag
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.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
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]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! -
ollie
MODERÁTOR
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]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] -
[HUN]Zolee
őstag
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]Hy.Ha szépen megkérlek, átküldenéd nekem a programodat? szeretnék belőle tanulni egy kicsit.e-mail címemre jöhet. köszi

-
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] -
ollie
MODERÁTOR
Közben találtam egy DAO360.CHM nevű file-t, pont ami kell nekem. Az Office 2000 telepíti.
Azért kössz. -
sonar
addikt
Per pillanat én se tudok ilyen oldalt, max az az A1 vmi ami lentebb vhol be van linkelve.
Mondjuk ha vkinek lenne egy olyan 2000 körüli msdn cd-je azon biztos lenne. De én sehol se találok
-
ollie
MODERÁTOR
hi!
Nekem VBScript DAO (ADO jelen esetben nem jó) példaprogramok (vagy tutorial) kellenének.
El tudtok irányítani valahova? MSN Techneten jobbára csak ADO van. -
sonar
addikt
az az igazság, hogy szeptemberig sztem nem lesz belőle semmi.
Heti 2xer angolra járok munka után, meg most melóba is hajtás van. Mert szept 1ig át kell adni egy rendszert... emiatt mondtam le egy Németországi nyaralást is
de nincs elfelejtve a project! -
Polyák
tag
Cső sonar!
Bocs hogy eddig nem írtam, de nyaralni voltam az alföldön!
A portál hogy áll? Amugy mi lesz a neve, címe? -
matekmatika
tag
Selteco Menu Maker? Szerintem nézd meg. Igaz ez menükészítésre van de egyetlan parancsgomb is készíthető vele, és elég jó dizájnolható.
[Szerkesztve] -
sonar
addikt
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]sajnos adatbázisokkal eddig még nem nagyon volt időm foglalkozni

-
sonar
addikt
Egy simple kérdés! A commandbuttont nem tudjátok hogyan lehet átrajzolni?
Más alak, más design?
Designt még megoldom, hogy beletöltök egy picturet, de hogy gömbölyü legyen a sarka?
egyedi alakja? Azt hogy lehet megcsinálni? -
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]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!

-
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] -
sonar
addikt
Ü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?
dim valtozo as string
valtozo=PicturePath
-
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!! -
sonar
addikt
Sziasztok
Még egy kérdés!
Azt hogyan tudom megcsinálni,hogy egyidőbe egyszer fusson a program?
Azaz ha már el lett indítva mégegyszer ne tudja elindítani amíg fut.
Milyen uton kéne elindulnom?

-
[HUN]Zolee
őstag
-
sonar
addikt
Hy.
Ha eljuttatod hozzám a programot/részt akkor megnézem, hátha kitudok hozni belőle valamit
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 -
[HUN]Zolee
őstag
-
sonar
addikt
Egy újabb fogós kérdés:
ha a focus a button-on van, hogyan érem el, hogy csak a space billentyűre cselekedjen? -
sonar
addikt
A megoldás:
nem a KeyPress hanem a Click eseménybe kell írni és jó lesz
-
sonar
addikt
upsz, mostvettem észre hogy rosszat másoltam
nem 10 hanem 13 , de mindegy, ugaz én textboxnál ellenőriztem.
sajna 6-ba nemvagyok otthonAzt tudtam, hogy 13 de ne textBox-al próbáld annál müxik, hanem commandbutton-nal
-
[HUN]Zolee
őstag
-
sonar
addikt
csak tippleni tudok énis.

Keyascii az adott billentyű ascii kódjával dolgozik a Keycode,meg a VB-ben definiált kód alapján.Hát nem jött össze, de nem is érdekel. space-val müxik jól
A class-ra tudsz mondani vmit? -
[HUN]Zolee
őstag
Új hozzászólás Aktív témák
-
Fórumok
LOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokPROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Tabletek, E-bookok Nyomtatók, szkennerek PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
- Projektor topic
- Milyen videókártyát?
- Vicces képek
- Luck Dragon: Asszociációs játék. :)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Kerékpárosok, bringások ide!
- Huawei Watch Fit 5 Pro - jó forma
- Formula-1
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- exHWSW - Értünk mindenhez IS
- További aktív témák...
- 24 magos AMD Threadripper alapú munkára kiváló félgép, 128GB RAM-mal
- HP ZBook Fury 15 G7 i7-10850H 32GB 512GB SSD Quadro T2000 4GB FHD HUN bill, szép állapotban eladó
- Eladó MacBook Pro 16,1 2019 CTO
- új 0 km es garanciás lenovo loq rtx 5050 8gb
- Eladó teljesen újszerű karcmentes Samsung Galaxy Watch Ultra
- Apple Watch Ultra 2 49mm Titanium Case Sapphire Glass Karcmentes 91% akkumulátor 2027.04.09-ig garan
- 27% - ASUS ROG STRIX X670E-I GAMING WIFI Alaplap!
- AKCIÓS ! MacBook Pro 16" M1 Pro 16GB RAM 512GB SSD! 1 év garancia!
- Thrustmaster TMX Force Feedback Kormány szett 3 hónap Garancia Beszámítás Házhozszállítás
- Kezdő Gamer PC-Számítógép! Csere-Beszámítás! I7 4770K / GTX 1060 6GB /16GB RAM /250SSD + 500GB SSHD
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest











